r - 使用传单创建基于多边形的热图

Question

我想根据多边形数据制作带有传单的热图。使用的数据是包含荷兰人口密​​度的基本 shapeFile 数据。

由于所有多边形的大小和形状不同，addHeatmap()尽管我希望视觉效果相似，但传单库中的函数并没有给出正确的结果。

我非常基本的代码：

xy <- spTransform(shpFile, CRS("+init=epsg:4326"))
leaflet(xy) %>%
 addTiles() %>%
 addPolygons(fillColor = ~pal(as.numeric(bev_dichth)),
             weight = 1,
             opacity = 1,
             color = "white",
             dashArray = "3",
             fillOpacity = 0.7)

shpFile 是从这里下载的荷兰 shapeFile 数据。

我希望我的输出像左图而不是右图，但避免使用坐标，因为多边形的形状不同。 示例图片可以在这里找到。

谢谢！

标签： rshinyleaflet