Среднее значение в трех экземплярах

Question

Я только что очистил кадр данных, который я вырвал из таблицы Excel, среди прочего, удаляя процентные знаки из некоторых цифр, см., Removing Percentages from a Data Frame.

Данные имеют двадцать четыре строки, представляющие параметры и результаты восьми экспериментов, выполненных в трех экземплярах. Например, что можно было бы получить от,

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

Я хочу найти средний каждый из трех повторов (которые, к счастью, находятся в последовательном порядке) и создать новый фрейм данных с восьмью строками и таким же количество столбцов ,

Я пытался сделать это с помощью,

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

, который дал мне средний каждый столбец в виде строки в три раза. Я хотел получить информационную рамку, которая даст мне,

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

Это работает:

foo <- matrix(unlist(by(data=DF1,INDICES=rep(1:8,each=3),FUN=colMeans)), 
    nrow=8,byrow=TRUE) 
colnames(foo) <- colnames(DF1) 

Посмотрите на ?by.

Answer 2

Хорошая задача для 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)