在等高线图中绘制一个点 ggplot2

Question

我在 ggplot2 中有一个等高线图，我想将一个点映射到它。

我的等高线图如下所示：

v = ggplot(pts, aes(theta_1, theta_2, z = z))
v + stat_contour(aes(colour = ..level..),bins=50) 
+ xlab(expression(Theta[1])) + ylab(expression(Theta[2]))

我有一个点如下所示：

p = ggplot(ts,aes(x,y))
p + geom_point() 

不幸的是，第二个覆盖了第一个。

有没有办法让它们出现在同一个图上，类似于 MATLAB 的“hold on;”？

谢谢！

Answer 1

您可以直接向 geom_point() 提供点：

set.seed(1000)
x = rnorm(1000)
g = ggplot(as.data.frame(x), aes(x = x))
g + stat_bin() + geom_point(data = data.frame(x = -1, y = 40), aes(x=x,y=y))

Answer 2

不确定这是否仍然令人感兴趣，但我认为您只需要保存更新的 v 对象，然后将点添加到该对象，而不是创建一个新的 ggplot2 对象。例如，

v <- ggplot(pts, aes(theta_1, theta_2, z = z))
v <- v + stat_contour(aes(colour = ..level..),bins=50) 
+ xlab(expression(Theta[1])) + ylab(expression(Theta[2]))
v <- v + geom_point(aes(x=ts$x, y=ts$y))
v # to display

ggplot2 非常擅长增量添加图层，并非所有图层都必须基于第一个 ggplot 调用中指定的相同数据集。