在ggplot2中的等高线图中添加新点

Question

我试图用ggplot2：

在现有的轮廓图上绘制一些额外的点

require(ggplot2)
library(reshape2) # for melt
volcano3d <- melt(volcano)
names(volcano3d) <- c("x", "y", "z")
v <- ggplot(volcano3d, aes(x, y, z = z))
v <- v + stat_contour()
print(v)
newdata <- data.frame(x = runif(7)*60, y = runif(7)*60)
v <- v + geom_point(data=newdata, aes(x, y))
print(v)

第一次打印没问题，但第二次打印只是空白。为什么呢？