将点（纬度）添加到marmap图

我想在地图上绘制海豹轨迹的一系列横向点，每个点根据属性着色，显示水深（100米等高线）和海岸线。我学习了如何使用marmap和ggplot2创建地图以显示测深+海岸线。代码如下：

dat <- getNOAA.bathy(-58,-62.5,43,46.0,res=0, keep=TRUE)
plot(dat,image=TRUE,bpal = list(c(min(dat), 0, "darkblue", "blue","lightblue"), c(0, max(dat), "gray90","gray10")),drawlabels=TRUE,deep=c(-500,200,0),shallow=c(-500,100,0),step=c(500,100,0),lwd=c(1,1,1),lty=c(1,1,1),land=TRUE)+
  scaleBathy(dat, deg=1.232, x="bottomleft", inset=5) #100km

---

dat在“强化”marmap后，您应该能够将其作为等高线层添加到绘图中。如果没有您的数据，很难确保它正常工作（NOAA服务器现在为我停机）：

库（ggplot2）
图书馆（marmap）
dat在“强化”后，您应该能够将marmap中的水深信息作为等高线层添加到绘图中。如果没有您的数据，很难确保它正常工作（NOAA服务器现在为我停机）：

库（ggplot2）
图书馆（marmap）
谢谢！这对gmap有效。我现在只需要让这张地图和marmap的地图一样有用。谢谢！这对gmap有效。我现在只需要让这张地图和marmap中的地图一样有用。使用您创建的经典marmap地图并添加带有
点（sealtrack，col=some.color.vector[category]）的海豹轨迹有什么不对？另外，还可以看一看
vignette（“marmap数据分析”）
的第6-7页。我相信这正是你想要的。只需将示例中用于给点上色的深度值替换为
类别
变量。使用您创建的经典marmap地图并将海豹轨迹添加到
点（sealtrack，col=some.color.vector[category]）
有什么错？另外，还可以看一看
vignette（“marmap数据分析”）
的第6-7页。我相信这正是你想要的。只需将示例中使用的深度值替换为
category
变量的点颜色。
myLocation <- c(-62.5,43,-58,46)
seal_map2<-get_map(location=myLocation,maptype="watercolor",source="stamen",zoom=10)
ggmap(seal_map2)+
geom_point(data=sealtrack,aes(color=category),size=0.5)+
scale_color_gradientn(colours=rainbow(6), breaks=seq(1,6,by=1)) 

library(ggplot2)
library(marmap)
dat <- getNOAA.bathy(-58,-62.5,43,46.0,res=0, keep=TRUE)
dat <- fortify(dat)
ggmap(seal_map2) +
   geom_contour(dat, aes(x = x, y = y, z = z)) +
   geom_point(data=sealtrack,aes(color=category),size=0.5) +
   scale_color_gradientn(colours=rainbow(6), breaks=seq(1,6,by=1))