r - 将列中的每五行相加然后除以十？

Question

我在 R 文件中有三列，看起来像这样；

X61253 X61613 X66198
279    140    140
279    139    139
278    139    139
279    140    140
279    139    139
278    139    139
3624   140    140
279    139    139
279    139    139
7730   140    140
278    139    139
12180  139    139
279   3660   3660
279    140    140
15443  139    139
278    139    139
18108 5527   5164
279    140    140

我想通过以下方式转换这些数据；
每列的每 5 行(单独)求和，然后除以 10。

期望的输出；

 X61253,X61613,X66198
 139.4,69.7,69.7
 1219,69.7,69.7
 2845.9,421.7,421.7

使用 Excel 公式 =sum(1:5)/10 , =sum(6:10)/10, =sum(11:15)/10

Answer 1

一种解决方案:

library("plyr")
ss <- seq(0,nrow(x)-1)%/%5         ## grouping variable
dd <- ddply(x,.(ss),colSums)/10

应大众需求，仅使用基础 R:

dfs <- split(x,ss)  ## ss as constructed above
do.call(rbind,lapply(dfs,colSums))/10

也可以使用 dplyr 来完成, data.table ...