大矩阵/数据帧的年平均值

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 :::融合使用 ddply(melteddata, .(year, variable), summarize, mean=mean(value))