根据其他一些聚合多个列答案

【问题标题】：Aggregate multiple columns according to some others根据其他一些聚合多个列
【发布时间】：2015-09-16 09:48:02
【问题描述】：

在 data.frame 中有数据，我想聚合一些列（使用任何通用函数）按其他一些列分组，保持其余列不变（甚至省略它们）。时尚是在SQL 中调用group by 函数。作为一个例子，让我们假设我们有

df <- data.frame(a=rnorm(4), b=rnorm(4), c=c("A", "B", "C", "A"))

我想对a 列中的值求和（例如）并平均（例如）b 列中的值，按c 列中的符号分组。我知道可以使用apply、cbind 或类似方法来实现这样的目标，指定您要使用的功能，但我想知道是否有更智能的（单行）方式（尤其是使用aggregate 功能) 这样做。

【问题讨论】：

这已经被问了无数次了，看这里stackoverflow.com/questions/18799901/data-frame-group-by-column和这里stackoverflow.com/questions/6289538/…和这里stats.stackexchange.com/questions/8225/…
@grrgrrbla 在这种情况下，请投票关闭作为重复项。
Using aggregate for multiple aggregations的可能重复
@tim biegeleisen，已经这样做了
我已经看过以上所有内容，它们都指只聚合一列，可以使用不同的语法轻松完成。

标签： r aggregate

【解决方案1】：

抱歉，我不明白处理多个列会使事情变得复杂。

library(data.table)
dt <- data.table(df)
dt[,.(sum_a = sum(a),mean_b= mean(b)),by = c]

【讨论】：

【解决方案2】：

喜欢这样吗？

    mapply(Vectorize(function(x, y) aggregate(
      df[, x], by=list(df[, 3]), FUN=y), SIMPLIFY = F), 
      1:2, c('sum', 'mean'))

【讨论】：