我怎样才能用一些变量来折叠数据帧,取其他变量的平均值

使用 aggregate

> df<-read.table(textConnection('
+ egg 1 20
+ egg 2 30
+ jap 3 50
+ jap 1 60'))
> aggregate(df$V3,list(df$V1),mean)
  Group.1  x
1     egg 25
2     jap 55

要获得更大的灵活性,请查看 tapply plyr 包裹。

ggplot2 使用 stat_summary

qplot(V1,V3,data=df,stat="summary",fun.y=mean,geom='bar',width=0.4)

对于那些熟悉SQL的人来说,操纵数据帧的另一种方法是sqldf包中的sqldf命令。

library(sqldf)
sqldf("SELECT Widget, avg(Energy) FROM yourDataFrame GROUP BY Widget")

@Jyotirmoy提到这可以通过 plyr

DF <- read.table(text=
"Widget Type Energy  
egg 1 20  
egg 2 30  
jap 3 50  
jap 1 60", header=TRUE)

library("plyr")
ddply(DF, .(Widget), summarise, Energy=mean(Energy))

这给了

> ddply(DF, .(Widget), summarise, Energy=mean(Energy))
  Widget Energy
1    egg     25
2    jap     55