当按 id 变量聚合时，如何在 data.table 的列表变量中使用 append 个字符向量 - R

Question

我有一个很大的 data.table object，其中一个变量是字符向量列表。 我想通过唯一 ID 进行聚合，并在此过程中组合与该唯一 ID 的每一行关联的所有字符向量。 这是一个简单的可重复示例：

DT <- data.table(ID = c(LETTERS[1:10], LETTERS[1:10]),
                 var = replicate(n = 20,
                                 expr = sample(x = letters, size = 5, replace = F),
                                 simplify = FALSE))
str(DT)

我已经尝试了aggregate function 和适应更具体的 data.table 符号。 聚合 function 无法处理列表，我无法弄清楚列表变量的 data.table 表示法：

appended <- aggregate(var~ID, data = DT, FUN = "append")
appended <- DT[, .(var=append(var), ID=ID[1]), by="ID"]

理想情况下，我的 output 应该是这样的结构：

> str(appended)
Classes ‘data.table’ and 'data.frame':  10 obs. of  2 variables:
 $ ID : chr  "A" "B" "C" "D" ...
 $ var:List of 10
    ..

我不介意每个附加向量（ appended$var ）中的元素是否重复但我计划稍后从每个向量中删除重复项，所以如果这是附加/聚合过程的副作用那么我没关系接着就，随即。

我还没有找到关于这个案例的任何解决方案，甚至只是指向特定文档的链接？

Answer 1

您可以将 append() 与 Reduce() 结合使用：

DT[, .(list(var = Reduce(append, var))), by = ID]

但我会建议 unlist() 相反：

DT[, .(list(var = unlist(var))), by = ID]