r - 在 Leaflet 中使用带有 SpatialPolygons 的 markerClusterOptions

Question

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

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

但是 addPolygons 不知道 clusterOptions。
什么是可能的，是做以下

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

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

Answer 1

长话短说，您可以简单地创建一个 SpatialPointsDataFrame从多边形数据(如您在上面使用 coordinates 所做的那样)，然后在同一 map 上显示点和多边形。这是使用 的示例 map View 包裹。

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