分别绘制垂直线

Question

我为我的变量创建了一个密度图。然后我使用facet_wrap来显示每个男性和女性参与者的分布情况。我想分别在他们的情节中绘制每个男性和女性的平均值，但它在两个密度图中都显示了两种方法。我怎样才能得到＆＃34;男性意思＆＃34;在男性情节和女性意味着＆＃34;在女性情节？ 我使用了以下代码

plot3 + geom_density() + facet_wrap(~gender) +
geom_vline(aes(xintercept = 2.9), color = "red") + 
geom_vline(aes(xintercept = 3.1), color = "red")

Answer 1

总结新数据集，然后映射aes。

library(tidyverse)
d2 <- iris %>% group_by(Species) %>% summarise(mm = mean(Sepal.Length))
ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width)) +
  geom_point() +
  geom_vline(data = d2, aes(xintercept = mm)) +
  facet_wrap(~Species)