使用ggplot2为直方图添加辅助y轴

Question

set.seed(123)

df <- data.frame(x = c(sample(1:500, 800, replace = T)),
       id = rep(1:5, each = 160))

ggplot(df, aes(x)) + geom_histogram() + facet_wrap(~id)           

每个id有没有办法，我可以为所有x＆gt;绘制辅助y轴条纹和轴为红色300