大型矩阵/数据框的年平均值

Question

我有一个这样的数据框（1704*126）：

date           precip.1            precip.2       precip.3    ...   precip.125
1871-01-01     2.68                1.85           2.87              1.03
1871-02-01     1.06                1.06           2.82              3.56
1871-03-01     3.89                2.69           2.03              2.14
...
2012-12-01     0.05                3.24           1.26              1.00

1704 是 01/1871 和 12/2012 之间的月数，我有 125 个实验。

我想得到每个月的总和，对于每个实验，这样的数据框 (142*126)：

date           precip.1           precip.2      precip.3 ...     precip.125
1871           586                365           456              439
1872           875                605           453              514
1873           601                753           605              613
...
2012           919                813           703              405

我尝试使用聚合或汇总（来自 dplyr），但我有所有实验的年度平均值，而不是每个实验的平均值......

有人可以帮我吗？

Answer 1

没有可重复的例子，所以只有一个详细的描述：

1) 提取年份

2a) 使用ddply(data, .(year), numcolwise(mean))

或者：

2b) 结合使用 reshape2:::melt ddply(melteddata, .(year, variable), summarize, mean=mean(value))