假设我有一个包含 6 列的数据框,并且我想将 col 1:3 设置为 col 4:6 中的值(合并时会经常出现这种情况)。使用数据框很容易:
set.seed(1)
df <- data.frame(matrix(sample(1:100,30),ncol=6))
df
# X1 X2 X3 X4 X5 X6
# 1 27 86 19 43 75 29
# 2 37 97 16 88 17 1
# 3 57 62 61 83 51 28
# 4 89 58 34 32 10 81
# 5 20 6 67 63 21 25
df[,1:3] <- df[,4:6] # very, very straightforward...
df
# X1 X2 X3 X4 X5 X6
# 1 43 75 29 43 75 29
# 2 88 17 1 88 17 1
# 3 83 51 28 83 51 28
# 4 32 10 81 32 10 81
# 5 63 21 25 63 21 25
对于 data.tables,没有那么多:
library(data.table)
dt <- data.table(df)
dt[,1:3,with=F] <- dt[,4:6,with=F]
## Error in `[<-.data.table`(`*tmp*`, , 1:3, with = F, value = list(X4 = c(43L, : unused argument (with = F)
这是可行的,但对于这样一个简单的转换来说似乎非常复杂:
dt[, names(dt)[1:3]:=dt[,4:6,with=F]] # very, very complicated...
dt
# X1 X2 X3 X4 X5 X6
# 1: 43 75 29 43 75 29
# 2: 88 17 1 88 17 1
# 3: 83 51 28 83 51 28
# 4: 32 10 81 32 10 81
# 5: 63 21 25 63 21 25
问题是:是否有更简单的方法将数据表中的一组列分配给同一数据表中另一组列的值?