r - 用 R 数据框中的平均值替换值

Question

我需要用它们的平均值替换数据框中两个副本(A 和 B)的值。

这是数据框:

Sample.Name <- c("sample01","sample01","sample02","sample02","sample03","sample03")
Rep <- c("A", "B", "A", "B", "A", "B")
Rep <- as.factor(Rep)
joy <- sample(1000:50000000, size=120, replace=TRUE)
values <- matrix(joy, nrow=6, ncol=20)
df.data <- cbind.data.frame(Sample.Name, Rep, values)
names(df.data)[-c(1:2)] <- paste("V", 1:20, sep="")

这是我尝试编写的循环，用于替换副本的平均值:

Sample <- as.factor(Sample.Name)
livelli <- levels(Sample)
for (i in (1:(length(livelli)))){
    estrai.replica <- which(df.data == livelli[i])
    media.replica <- apply(values[estrai.replica,], 2, mean)
    foo <- rbind(media.replica)
}

主要问题是:

1. 这样我的新数据框 (foo) 中只有最后一行，并且
2. 我在任何列中都没有样本名称。

你有什么建议吗？

Answer 1

我认为您想要聚合您的数据框。试试这个:

aggregate(df.data, by=list(Sample.Name), FUN=mean)