用平均值绘制条形图

Question

我正在通过 y 绘制 class 与 quantity 的分面条形图。这是生成数据帧的代码：

set.seed(99)
y<-sample(1:100,50,replace=TRUE)
class<-rep(c(letters[1:5]),times=10)
quantity<-as.factor(rep(c(5,10,15,20,25),each=10))
df<-data.frame(y,class,quantity)

这是生成图表的代码：

ggplot(df,aes(class,y))+geom_bar(stat="identity")+
  facet_grid(.~quantity)

当前的情节给了我 y 对 class 的总和。我想通过y找到class对quantity的均值。我该怎么做？

谢谢！

（示例取自 here）