如何平均r中每行的每12列

Question

我有一个包含100行和120列的矩阵，我想知道如何找到每行12列的平均值。所以我可以有年度意思。感谢。

set.seed(1234)
data=rnorm(100*120)
data=matrix(data,nrow = 100,ncol = 120)

Answer 1

对于每一行r，请将tapply(r, gl(10, 12), mean)应用于其中：

t(apply(data, 1, tapply, gl(10, 12), mean))

  

请注意，上述内容不使用mean的任何属性   通过将mean替换为某些来概括为其他聚合函数   其他功能。

另一种可能性也可以概括为将矩阵重新整形为3d数组并在指定的维度上应用均值：

apply(array(data, c(100, 12, 10)), c(1, 3), mean)