r - 将带有等高线的二维密度图叠加到地图上

Question

所以我目前正在研究如何将轮廓叠加到地图上，到目前为止我有这个。任何帮助，将不胜感激。提前致谢。

worldmap = getMap(resolution = "high")
NrthAm = worldmap[which(worldmap$REGION =="North America"),]
plot(NrthAm, xlim=c(-123.35,-122.65),
     ylim=c(49,49.35), main = "Pokemon in Vancouver")

newnew = "CREATE VIEW location AS SELECT latitude, longitude FROM Vanpoke"
query1 = "SELECT latitude, longitude from location"
point = dbGetQuery(dbcon,query1)

kde = kde2d(point$longitude,point$latitude)
image(kde)
contour(kde)

Edit1：我添加了一些示例数据

   latitude longitude
1 49.33597 -123.0458
2 49.27268 -122.8834
3 49.25722 -122.9652
4 49.30699 -123.0204
5 49.19668 -122.9262
6 49.33281 -123.0636

Edit2：我在地图上添加了密度图，但我不确定它是否正确。