Question

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

我可以用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)

由于

Answer 1

试试这个：

data$Bmean <- ave(data$B, data$A)

Answer 2

这类事情有很多选择，但要纠正你的错误，lapply中的匿名函数根本就不会返回任何内容。只需让它返回它正在操作的部分：

{df$Bmean <- mean(df$B); df}

我会留给群众，使用by，ddply + mutate或transform和data.table向您展示您的选择。

Answer 3

这可能有效：

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

Answer 4

根据@joran，我将成为群众中的一员;） data.table中的解决方案如下

DT[ , Bmean := mean(B), by=A]

DT只是

library(data.table)
DT <- data.table( <your data frame> )

可变版的申请？

4 个答案: