如何在ggplot中设置背景颜色并重新添加地图线

Question

我在R

中有以下代码

mp1 <- fortify(map(fill=TRUE, plot=FALSE))
mp2 <- mp1
mp2$long <- mp2$long + 360
mp2$group <- mp2$group + max(mp2$group) + 1
mp <- rbind(mp1, mp2)
map <- (ggplot(aes(x = long, y = lat, group = group), data = mp) + 
  geom_path()  + 
  scale_x_continuous(name="Longitude",minor_breaks=seq(170,246,2), limits = c(170, 246)) + 
  scale_y_continuous(name= "Latitude",minor_breaks=seq(30,64,2),limits = c(30, 64)))

产生这个 image

我接下来的目标是在像素中着色＆＃39; （或休息）蓝色取决于它们是否是陆地（我显示地图的哪些部分我有时间序列以将任务放入上下文中）所以我运行此循环，其中相关像素中的阴影我有数据来获取此image

有没有办法获得原始的情节线（所以休息时间在170,172，.....并在30,32，......），以及原始地图，以便它结束填写蓝色位。

我使用的for循环是：

for(i in 1:663){
  if(sst.yearly.matrix[i,3] != sst.yearly.matrix[1,3]){
    map <- map + annotate("rect", xmin=sst.yearly.matrix[i,2], xmax=sst.yearly.matrix[i,2]+2, 
                          ymin=sst.yearly.matrix[i,1],ymax=sst.yearly.matrix[i,1]+2, fill="deepskyblue")
  }
}

非常感谢任何帮助！感谢。