R Shiny中Leaflet添加clusterOptions后无标记与集群显示问题

问题诊断与解决办法 #

1. 补全依赖包加载 #

你那套能正常显示聚类的美国点位代码里加载了leaflet.extras，但出问题的测试代码里没加。虽说leaflet原生支持基础聚类，但markerClusterOptions()的完整功能得靠leaflet.extras扩展包支撑，没加载的话，聚类逻辑可能偷偷失效，连带着标记也不显示了。

操作步骤：在代码开头加上这两行：

library(leaflet)
library(leaflet.extras)

2. 调整聚类参数适配近距点位 #

你测试用的点位每组内的距离特别近（比如第一组三个点经度差才0.02，纬度差也只有0.02），Leaflet默认的聚类半径太小，初始缩放级别下可能识别不出聚类，甚至把标记给“吞”了。

试试这么改：手动放大聚类半径，或者设置到某个缩放级别就停止聚类：

leaflet(data = test_data) %>%
  addProviderTiles(providers$CartoDB.Positron) %>%
  addCircleMarkers(
    lng = ~longitude, lat = ~latitude,
    radius = 5,
    clusterOptions = markerClusterOptions(
      maxClusterRadius = 50,  # 调大聚类半径，单位为像素
      disableClusteringAtZoom = 12  # 缩放级别到12以上时，显示单个标记不再聚类
    )
  )

3. Shiny应用需检查容器高度 #

如果是在Shiny应用中使用，要确保地图输出容器有足够高度，比如把height设为"100vh"，不然聚类标记可能因容器尺寸不足被隐藏。

示例UI代码：

ui <- fluidPage(
  leafletOutput("map", height = "100vh")
)

验证用完整代码 #

整合上述修改后，测试代码应该能正常显示聚类：

library(leaflet)
library(leaflet.extras)

test_data <- data.frame(
  longitude = c(-90, -91, -90.5, -90.01, -91.01, -90.51, -90.02, -91.02, -90.52),
  latitude = c(45, 45.5, 45.25, 45.01, 45.51, 45.26, 45.02, 45.52, 45.27)
)

leaflet(data = test_data) %>%
  addProviderTiles(providers$CartoDB.Positron) %>%
  addCircleMarkers(
    lng = ~longitude, lat = ~latitude,
    radius = 5,
    clusterOptions = markerClusterOptions(maxClusterRadius = 50)
  )

内容的提问来源于stack exchange，提问作者z3r0summ