如何使用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")