r - 可变版本是否适用？

我试图获取数据框中每个子集的平均值，并将该信息合并到列中。

我可以用lapply来做到这一点，但不能使其“坚持”下去。应用功能家族是否有副作用？ plyr库中的任何内容也可以。

data <- data.frame(
  A = sample(LETTERS[1:3], 20, replace=TRUE),
  B = runif(20),
  C = LETTERS[1:20])
# split by A
dataByA <- split(data, factor(data$A))
# get average of B per set
lapply(dataByA, function(df) {df$Bmean <- mean(df$B)}) # does nothing!
# remerge subsets
data <- rbind.fill(dataByA)

谢谢

最佳答案

这可能起作用：

library(plyr)
data1<-ddply(data,.(A),transform,Bmean=mean(B))


head(data1)
 A           B C    Bmean
1  A 0.616156407 E 0.5492000
2  A 0.568187293 G 0.5492000
3  A 0.899395311 H 0.5492000
4  A 0.113060973 K 0.5492000
5  B 0.872838203 A 0.7885643
6  B 0.906216467 B 0.7885643
7  B 0.944196701 N 0.7885643
8  B 0.445983319 O 0.7885643
9  B 0.773586589 T 0.7885643