R 将点添加到具有镶嵌面的光栅打印

我有几个光栅图，用刻面隔开。在每个绘图中，我想添加一个独立点。显示如何添加点，但我只能将同一点添加到所有绘图

假设我想在以下三个图的最大值处添加一个点（下面给出了代码）。我该怎么做

xy    <- expand.grid(0:20,0:20)
data  <- rbind(xy,xy,xy)
group <- rep(1:3,each=nrow(xy))
set.seed(100)
z     <- rnorm(nrow(data))
data <- cbind(data,group,z)
colnames(data) <- c("x","y","group","z")
library(ggplot2)
ggplot(data,aes(x,y,z))+geom_raster(aes(fill=z))+facet_wrap(~group)

---

xy您需要一个单独的data.frame和点坐标，其中还包含组变量：

库（ggplot2）
xy您需要有一个带有点坐标的单独data.frame，其中还包含组变量：

库（ggplot2）
xy