[R轉換整數列，3分因素列基於數字

Question

我有一個整型的像這樣的列：

idNums 
    2 
101 
    34 
    25 
    8 
... 

我需要將它們轉換爲3個因素欄是這樣的：

digit1  digit2   digit3 
    0    0    2 
    1    0    1 
    0    3    4 
    0    2    5 
    0    0    8 
...   ...   ... 

任何建議？

Answer 1

這裏更換呼叫strsplit是使用模塊化的算術運算符%%和%/%一個有趣的解決方案：

d <- c(2, 101, 34, 25, 8) 
res <- data.frame(digit1 = d %/% 100, 
        digit2 = d %% 100 %/% 10, 
        digit3 = d %% 10) 
# digit1 digit2 digit3 
# 1  0  0  2 
# 2  1  0  1 
# 3  0  3  4 
# 4  0  2  5 
# 5  0  0  8 

注意，它有輕微的 - 但是還算不錯 - 返回的附帶好處每個列的數值爲。如果你這樣做，但是，要因素列，而不是，只是跟進使用此命令：

res[] <- lapply(res, as.factor) 

all(sapply(res, class)=="factor") 
#[1] TRUE 

Answer 2

使用formatC和strsplit。

idNums <- c(2, 101, 34, 25, 8) 
idChars <- formatC(idNums, width = 3, flag = "0") 
idChars <- strsplit(idChars, "") 
data.frame(
    digits1 = sapply(idChars, function(x) x[1]), 
    digits2 = sapply(idChars, function(x) x[2]), 
    digits3 = sapply(idChars, function(x) x[3]) 
) 

---

這是使用stringr包乾淨了一點。與

str_split_fixed(idChars, "", 3) 

Answer 3

我覺得裏奇棉花使用formatC的是KEWL，所以我把它組成：

testdat <- read.fwf(textConnection(formatC(idNums, width = 3, flag = "0") ), 
        widths=c(1,1,1), 
        col.names=c("digit1", "digit2", "digit3") 
        ) 
testdat 
#------------ 
    digit1 digit2 digit3 
1  0  0  2 
2  1  0  1 
3  0  3  4 
4  0  2  5 
5  0  0  8