跨数据帧列表聚合并存储所有结果

Question

我有一个9个数据帧的列表，每个数据帧有大约100行和5-6个协议组。

我想根据所有数据帧在另一列中指定的组来聚合列中的值，并将所有结果存储在单独的数据帧中。为了说明这一点，请考虑以下列表

    [[1]]  
    Date  Group  Age
    Nov     A    13
    Nov     A    14
    Nov     B    9
    Nov     D    10
    [[2]]
    Date  Group  Age
    Dec     C    11
    Dec     C    12
    Dec     E    10

我的代码如下

for (i in 1:length(list)){
x<-aggregate(list[[i]]$Age~list[[i]]$Group, list[[i]], sum)
x<-rbind(x)
}

但最后，x只包含来自dataframe 2的聚合结果(因为i =2)，而不包含dataframe 1的聚合结果，尽管我正在尝试绑定结果。

任何帮助都是非常感谢的。

Answer 1

在R中，有许多高效实现的函数，它们有助于避免编写for循环的麻烦。

In his comment，S Rivero建议使用lapply()而不是for循环，并在稍后对聚合进行rbind()：

do.call(rbind, lapply(dflist, function(x) aggregate(Age ~ Group, x, sum)))

我的建议是，首先组合data.frame，然后使用data.table计算聚合。

library(data.table)
rbindlist(dflist)[, sum(Age), by = Group]

Group V1 1: A 27 2: B 9 3: D 10 4: C 23 5: E 10

数据

dflist <- list(structure(list(Date = c("Nov", "Nov", "Nov", "Nov"), Group = c("A", 
"A", "B", "D"), Age = c(13L, 14L, 9L, 10L)), .Names = c("Date", 
"Group", "Age"), row.names = c(NA, -4L), class = "data.frame"), 
    structure(list(Date = c("Dec", "Dec", "Dec"), Group = c("C", 
    "C", "E"), Age = c(11L, 12L, 10L)), .Names = c("Date", "Group", 
    "Age"), row.names = c(NA, -3L), class = "data.frame"))