使用聚合在一个调用中对几个变量应用几个函数

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组合的行数。我可以单独执行每个计算：

# calculate mean
aggregate(. ~ id1 + id2,data = x,FUN = mean)

# count rows
aggregate(. ~ id1 + id2,FUN = length)

为了做一次电话中的两个计算，我试过

do.call("rbind",aggregate(. ~ id1 + id2,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,val1 = list( :
#   number of columns of result is not a multiple of vector length (arg 1)

我可以使用plyr包，但我的数据集是相当大，plyr是非常慢(几乎不可用)当数据集的大小增长。

如何使用聚合在一个调用中执行几个计算？