Постройте гистограмму со средними значениями

Я строю гистограмму граней 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. Как я могу это сделать?

Спасибо!

(пример взят из здесь)