如何在ggplot2中添加平均值

Question

我是R的新手，我有一個圖顯示所有縣的每個州的percprof統計信息，但是當我嘗試向每個圖添加平均值時，它不起作用：

library(ggplot2)
data(midwest)
percprof_mean <- sd(midwest$percprof)
ggplot(midwest, aes(x=percprof, y=..density..)) 
+ geom_histogram(binwidth = 0.5, color = "white") + facet_grid(state ~.) 
+ stat_summary(fun.y=mean,geom="line",lwd=2,aes(group=1))

我在這里使用stat_summary函數錯誤嗎？ 我收到錯誤消息：錯誤：stat_summary需要以下缺失的美感：y

Answer 1

基於plyr的解決方案。

library(ggplot2)
  library(plyr)
  data(midwest)

  nn <- ddply(midwest, "state", transform, 
        state_mean  = mean(percprof))


  ggplot(nn) +
  geom_histogram(aes(percprof, y=..density..),binwidth = 0.5, color = "white") + 
    geom_vline(aes(xintercept = state_mean),data=nn,linetype = 5) + facet_grid(state~.)