R语言leaflet包展示209个点仅显示10个的问题求助

以下是针对该问题的排查和解决步骤：

1. 验证数据几何有效性 #

首先确认所有209个要素都包含有效非空的几何信息：

# 检查有效几何数量
sum(st_is_valid(demo))
# 检查空几何数量
sum(st_is_empty(demo))

如果存在无效或空几何，过滤后再绘制：

demo_clean <- demo %>% filter(st_is_valid(.) & !st_is_empty(.))

2. 适配地图视图到所有点范围 #

前10个点坐标高度密集，剩余199个点可能分布在其他区域，当前视图未覆盖。添加自动适配边界的代码：

demo2 <- leaflet() %>% 
  addTiles() %>% 
  addCircles(data = demo, 
             radius = 2,
             color = "black",
             fillColor = "blue") %>%
  fitBounds(
    lng1 = st_bbox(demo)[["xmin"]], 
    lat1 = st_bbox(demo)[["ymin"]],
    lng2 = st_bbox(demo)[["xmax"]], 
    lat2 = st_bbox(demo)[["ymax"]]
  )

3. 启用点聚合查看密集区域 #

如果点过于密集导致视觉重叠，使用聚合标记功能：

demo2 <- leaflet() %>% 
  addTiles() %>% 
  addCircleMarkers(
    data = demo, 
    radius = 2,
    color = "black",
    fillColor = "blue",
    clusterOptions = markerClusterOptions()
  )

4. 转换为普通数据框绘制 #

若sf对象与leaflet存在兼容性问题，提取经纬度转为普通数据框：

demo_df <- demo %>% 
  mutate(
    lng = st_coordinates(.)[, 1],
    lat = st_coordinates(.)[, 2]
  ) %>%
  st_drop_geometry()

demo2 <- leaflet(demo_df) %>% 
  addTiles() %>% 
  addCircles(
    lng = ~lng, 
    lat = ~lat,
    radius = 2,
    color = "black",
    fillColor = "blue"
  ) %>%
  fitBounds(
    lng1 = min(demo_df$lng), 
    lat1 = min(demo_df$lat),
    lng2 = max(demo_df$lng), 
    lat2 = max(demo_df$lat)
  )

5. 取消数据分组 #

确认数据未被意外分组导致绘制限制：

demo <- ungroup(demo)

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