Question

这个问题与特定的data.table操作有关。

我有：

dataDT <- data.table(ID = c(1:3))
dataDT
> dataDT
   ID
1:  1
2:  2
3:  3

我想创建三个新列来存储来自3个不同来源的数据。

targetDT <- data.table(ID = c(1:3), ID1 = c(1:3), ID2 = c(1:3), ID3 = c(1:3))
targetDT
> targetDT
   ID ID1 ID2 ID3
1:  1   1   1   1
2:  2   2   2   2
3:  3   3   3   3

所以我尝试了：

tempDT_1 <- data.table(ID1 = c(1:3))    # create dummy source 1
tempDT_2 <- data.table(ID2 = c(1:3))    # create dummy source 2
tempDT_3 <- data.table(ID3 = c(1:3))    # create dummy source 3

dataDT[, c("A", "B", "c") := list(tempDT_1, tempDT_2, tempDT_3)]
dataDT
> dataDT
   ID     A     B     c
1:  1 1,2,3 1,2,3 1,2,3
2:  2 1,2,3 1,2,3 1,2,3
3:  3 1,2,3 1,2,3 1,2,3

为什么以上list(tempDT_1, tempDT_2, tempDT_3)不能正常工作？

我已经看到人们在做类似的事情：

dataDT[, c("A", "B", "c") := list(sum(ID), mean(ID), func(ID))]

使用list()来“绑定”新值。

我应该如何修正密码？

Answer 1

自

class(tempDT_1 )
[1] "data.table" "data.frame"

在您的情况下，为了匹配输出，我们应该使用cbind

cbind(dataDT, tempDT_1, tempDT_2, tempDT_3)
   ID ID1 ID2 ID3
1:  1   1   1   1
2:  2   2   2   2
3:  3   3   3   3

Answer 2

如果需要进行复制，则可以选择replicate

setDT(data.frame(replicate(4, dataDT)))[]
#   ID ID.1 ID.2 ID.3
#1:  1    1    1    1
#2:  2    2    2    2
#3:  3    3    3    3

或使用分配（:=）

dataDT[, paste0('ID', 1:3) := ID][]

R data.table一次性创建多个列

2 个答案: