在一次調(diào)用中按組對多個變量應(yīng)用多個匯總函數(shù)我有以下數(shù)據(jù)框架x <- read.table(text = "  id1 id2 val1 val2 1   a   x    1    9 2   a   x    2    4 3   a   y    3    5 4   a   y    4    9 5   b   x    1    7 6   b   y    4    4 7   b   x    3    9 8   b   y    2    8", header = TRUE)我要計算按Id1和id2分組的val1和val2的平均值，同時計算每個Id1-id2組合的行數(shù)。我可以分別執(zhí)行每一項計算：# calculate meanaggregate(. ~ id1 + id2, data = x, FUN = mean)# count rowsaggregate(. ~ id1 + id2, data = x, FUN = length)為了在一次調(diào)用中進行兩次計算，我嘗試了do.call("rbind", aggregate(. ~ id1 + id2, data = x, FUN = function(x) data.frame(m = mean(x), n = length(x))))但是，我得到了一個錯誤的輸出以及一個警告：#     m   n# id1 1   2# id2 1   1#     1.5 2#     2   2#     3.5 2#     3   2#     6.5 2#     8   2#     7   2#      6   2# Warning message:#   In rbind(id1 = c(1L, 2L, 1L, 2L), id2 = c(1L, 1L, 2L, 2L), val1 = list( :#      number of columns of result is not a multiple of vector length (arg 1)我可以使用plyr包，但是當數(shù)據(jù)集的大小增加時，我的數(shù)據(jù)集非常大，而且plyr非常慢(幾乎無法使用)。我怎么用aggregate還是其他函數(shù)在一次調(diào)用中執(zhí)行多個計算？