基于克里格数据的ggmap上的r热图

我想在地图上画一张热图

  library(ggmap)
  turku<-get_map('turku', zoom=13)
  turkumap<-ggmap(turku, extent="device", legend="topleft")
  turkumap
  turkumap+geom_density2d(mapping=aes(x = lon, y = lat),data = test, )

我们进行了测量活动，因此我有4460个地理参考点

为了有一个预测图，我创建了一个400*400的网格，总共有160000个点，我用克里格法计算预测。 为了在我的3公里*3公里内对这一现象有一个完整的了解，我认为某种热图是必要的，因为如果我不这样做的话，只绘制点 做任何错误的事情都会在地图上画一个填充的正方形。看见 我用于绘制点的代码是：

turkumap <- turkumap + geom_point(data=temp, aes(x=lon, y=lat),size=var1.pred)

所以基本上问题是这些点是沿着道路的，所以热图是有问题的 看到了，太多了，无法单独绘制它们。 有什么建议吗

另一个相关的问题是，我的数据是gstat的经典格式，SpatialPointsDataFrame，这意味着我必须强制它们成为要使用的数据帧

---

ggplot，有更好的做法吗？

由@SlowLearner提供的链接解决了我的问题

有人发布了一个完整的示例，说明如何将数据放入垃圾箱，并使用您选择的颜色比例在ggmap中绘制，而不是在地图上绘制。你可能会在那里找到一些想法。如果你使用的是ggplot，你需要一个数据框，所以你必须使用fortify。谢谢！在发布之前我花了很多时间搜索，但我没有看到那个条目。