使用 ggmap 创建距离热图

如何解决使用 ggmap 创建距离热图

我正在制作距离地图，我有很多点，我想显示地图中每个地方与其最近点的距离，想法是获得包含所有点的热图。

最小可重现示例：

library(ggmap)
recoleta <- get_map("Recoleta,Santiago,Chile",zoom = 14)
bancos <- data.frame(lon = c(-70.64317,-70.62456),lat = c(-33.40592,-33.40659))
ggmap(recoleta) +
  geom_point(data = bancos,aes(x = lon,y = lat)) +
  geom_point(data = bancos,y = lat),size = 140,alpha = 0.1,color = "blue") +
  geom_point(data = bancos,size = 70,color = "red")

有了那个代码我就明白了

但是作为一个热图，中间的交点应该混合，颜色取决于它的最近点

我希望我能正确解释我的问题