R 如何在每个面板上绘制平均线？

我需要为每个面板上的每个直方图绘制平均线。数据如下所示：

 cost gender year
1 305.665 Female 2013
2 194.380 Female 2013
3 462.490 Female 2013
4 200.430 Female 2013
5 188.570 Female 2013
6 277.245 Female 2013

2013年至2018年，女性的价值观为66000，同期男性为234000

以下是我正在使用的代码：

 library(ggplot2)
 costs<-read.table("cost_gender_1.txt",header=TRUE)
 df<-data.frame(costs)
 p<-ggplot(df, aes(cost,fill=gender)) +
 geom_histogram(breaks=seq(0,3000,by=30), position = "dodge") +
 facet_wrap(~year) +
 labs(x="Costs",y="Number of Members")+ggtitle("All Tiers") +
 geom_hline(yintercept = mean(df$cost), color=df$gender,linetype = 
 "dashed",size=3) +
 theme(plot.title = element_text(color="black", size=14, face="bold"))

库（ggplot2）
成本也相关：你确定你想要的是
hline
？不是
vline
？是的，你是对的。我已经调整了密码。非常感谢。