在 Leaflet 中使用带有 SpatialPolygons 的 markerClusterOptions答案

【问题标题】：Using markerClusterOptions with SpatialPolygons in Leaflet在 Leaflet 中使用带有 SpatialPolygons 的 markerClusterOptions
【发布时间】：2016-01-15 11:34:39
【问题描述】：

我正在使用包 Leaflet 在地图上绘制大约 25.000 个多边形。由于有大量多边形，我想使用markerClusterOptions。这就是我想做的：

leaflet() %>% 
 addTiles() %>% 
 addPolygons(data=sp_polygons,
            clusterOptions = markerClusterOptions())

但是 addPolygons 不知道 clusterOptions。什么是可能的，是执行以下操作

leaflet() %>% 
 addTiles() %>% 
 addMarkers(data=coordinates(sp_polygons),
            clusterOptions = markerClusterOptions())

但是当我放大时，我只有标记而不是多边形。有没有办法使用 clusterOptions 但在放大时仍然显示多边形？

【问题讨论】：

我认为 markerClusterOptions 仅适用于 addMarkers() 或 addMarkerCircles()

标签： r leaflet

【解决方案1】：

长话短说，您可以简单地从多边形数据创建一个SpatialPointsDataFrame（就像您在上面使用coordinates 所做的那样），然后在同一张地图上显示点和多边形。这是一个使用 mapview 包的示例。

library(sp)
library(mapview)

## create spatial points from Switzerland administrative borders
gadmCHE_pts <- SpatialPointsDataFrame(coordinates(gadmCHE), 
                                      data = gadmCHE@data, 
                                      proj4string = CRS(proj4string(gadmCHE)))

## display data                     
mapview(gadmCHE_pts, clusterOptions = markerClusterOptions()) + 
  gadmCHE

【讨论】：