r - 一式三份的平均值

Question

我刚刚清理了一个数据框，该数据框是我从 Excel 电子表格中抓取的，其中包括从一些数字中删除百分号，参见 Removing Percentages from a Data Frame .

数据有 24 行，代表一式三份进行的八次实验的参数和结果。例如，一个人会从中得到什么，

DF1 <- data.frame(X = 1:24, Y = 2 * (1:24), Z = 3 * (1:24))

我想找到每个一式三份的平均值(幸运的是它们是按顺序排列的)并创建一个包含八行和相同数量列的新数据框。

我尝试使用，

DF2 <- data.frame(replicate(3,sapply(DF1, mean)))

这给了我每列作为行的平均值 3 次。我想得到一个可以给我的数据框，

data.frame(X = c(2,5,8,11,14,17,20,23), Y = c(4,10,16,22,28,34,40,23), Z = c(6,15,24,33,42,51,60,69))

我亲手算出来的；这应该是减少的结果。

谢谢，...

如有任何帮助，我们将不胜感激。

Answer 1

codegolf 的好任务!

aggregate(DF1, list(rep(1:8, each=3)), mean)[,-1]

为了更通用，您应该将 8 替换为 nrow(DF1)。

...或者，我最喜欢的，使用矩阵乘法:

t(t(DF1) %*% diag(8)[rep(1:8,each=3),]/3)