垂直線を別々にプロット

Question

私の変数の密度プロットを作成しました。私はfacet_wrapを使って各男性と女性の参加者の分布を表示しました。私はそれぞれの男性と女性の平均値をプロットしてプロットしたかったのですが、両方の密度プロットで私に両方の手段が示されています。男性プロットで「男性平均」、女性プロットで「女性平均」のみを取得するにはどうすればよいですか？ 私は、次のコード

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)