r - 将 df 整数列拆分为 R 中的单个数字

Question

我有一个 df，其中一个变量是一个整数。我想将此列拆分为单独的数字。看我下面的例子

Group Number
A     456
B     3
C     18

到

Group Number Digit1 Digit2 Digit3
A     456    4      5      6
B     3      3      NA     NA
C     18     1      8      NA

Answer 1

我们可以使用 read.fwf 中的 base R 。在“编号”列 ( max ) 中查找字符 ( nchar ) 的 mx 编号。转换为 character ( as.character ) 后读取 'Number' 列，通过 rep 将 'widths' 指定为 1 用 mx 将 1 指定为 1 并将输出分配给数据中新的 'Digit' 列

mx <- max(nchar(df1$Number))
df1[paste0("Digit", seq_len(mx))] <- read.fwf(textConnection(
             as.character(df1$Number)), widths = rep(1, mx))

-输出

df1
#  Group Number Digit1 Digit2 Digit3
#1     A    456      4      5      6
#2     B      3      3     NA     NA
#3     C     18      1      8     NA

数据

df1 <- structure(list(Group = c("A", "B", "C"), Number = c(456L, 3L, 
18L)), class = "data.frame", row.names = c(NA, -3L))