如何使用ggplot在密度圖的x軸上添加紅點

Question

我正在運行一些合成實驗。

我有3個參數分佈（m）和每個參數（trueValues）的真實值。

library('reshape2') 
library('ggplot2') 

trueValues <- c("V1"=0,"V2"=2.5,"V3"=5) 
set.seed(1) 
m <- matrix(cbind("V1"=rnorm(5, 0), "V2"=rnorm(5, 2), "V3"=rnorm(5, 5)), nrow=5, ncol=3) 
df <- melt(m) 
ggplot(df, aes(x=value)) + geom_density() + facet_wrap(~Var2) 

現在，我該如何繪製X軸上的紅點來顯示真值？

Answer 1

您可以試試：

trueValues <- data.frame("Var2" = c(1, 2, 3), "value" = c(0, 2.5, 5)) 
ggplot(df, aes(x=value)) + geom_density() + facet_wrap(~Var2) + geom_point(data = trueValues, y = 0, color="red")