如何在单元格中返回包含长度大于1的列表或向量的data.tables？

Question

我想在j中指定我想要返回给定列中的完整列表。下面，当我尝试返回列c中的列表时，它会对其进行扩展，以便c中的每个单元格都是单个项目。我实际上希望返回4行，c中的每一行都显示列表list('testing1', 'testing2', 'testing3', 'testing4')。

> x <- data.table(a=1:4, b=5:8)
> x[, list(b, c=list('testing1', 'testing2', 'testing3', 'testing4')), by=a]
    a b        c
 1: 1 5 testing1
 2: 1 5 testing2
 3: 1 5 testing3
 4: 1 5 testing4
 5: 2 6 testing1
 6: 2 6 testing2
 7: 2 6 testing3
 8: 2 6 testing4
 9: 3 7 testing1
10: 3 7 testing2
11: 3 7 testing3
12: 3 7 testing4
13: 4 8 testing1
14: 4 8 testing2
15: 4 8 testing3
16: 4 8 testing4

Answer 1

你说你想要这个：

y <- x[, list(b, c=list(list('testing1', 'testing2', 'testing3', 'testing4'))), by=a]
y[1,c]
# [[1]]
# [[1]][[1]]
# [1] "testing1"
# 
# [[1]][[2]]
# [1] "testing2"
# 
# [[1]][[3]]
# [1] "testing3"
# 
# [[1]][[4]]
# [1] "testing4"

但我怀疑你想要这个：

x[, list(b, c=list(c('testing1', 'testing2', 'testing3', 'testing4'))), by=a]
#   a b                                   c
#1: 1 5 testing1,testing2,testing3,testing4
#2: 2 6 testing1,testing2,testing3,testing4
#3: 3 7 testing1,testing2,testing3,testing4
#4: 4 8 testing1,testing2,testing3,testing4