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

Question

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

 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年，女性的价值为66,000，而同期的男性为234,000。

这是我正在使用的代码：

 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"))

和输出

问题是我不知道如何在每个面板中为每种性别添加行。此外，无论我在其中放置什么，线条的颜色和大小似乎都不会改变。