使用RStudio的leaflet包时如何拆分地图中相同地址的重合标注点？

以下是3种经过实践验证的可落地方案，可根据你的业务场景选择：

方案1：固定像素偏移 #

适合重合点数量少、需要每个点保留独立交互逻辑的场景
给同一坐标的不同标注点设置不同方向的微小像素偏移，无需改动原始经纬度，仅在渲染时调整显示位置：

library(leaflet)
library(dplyr)

# 示例重合点数据
points_df <- data.frame(
  lon = rep(116.3972, 2),
  lat = rep(39.9075, 2),
  name = c("标注点A", "标注点B"),
  seq = 1:2 # 同一坐标的点按顺序分配偏移
)

# 预定义偏移规则，可根据点数量扩展，单位为像素
offset_rule <- list(
  "1" = c(-6, -6), # 左上偏移
  "2" = c(6, 6)    # 右下偏移
)

leaflet() %>% 
  addTiles() %>% 
  addMarkers(
    data = points_df,
    lng = ~lon,
    lat = ~lat,
    label = ~name,
    pointToLayer = function(feature, latlng) {
      seq_val <- as.character(feature$properties$seq)
      markers(
        latlng = latlng,
        options = markerOptions(offset = offset_rule[[seq_val]])
      )
    }
  )

方案2：蜘蛛化聚合展开 #

适合重合点数量多、需要兼顾不同缩放层级展示的场景
使用leaflet内置的标记聚合插件，开启最大缩放层级下的蜘蛛化展开功能，重合点会自动从中心沿不同方向散开，附带连接线标识：

leaflet() %>% 
  addTiles() %>% 
  addMarkers(
    data = points_df,
    lng = ~lon,
    lat = ~lat,
    label = ~name,
    clusterOptions = markerClusterOptions(
      spiderfyOnMaxZoom = TRUE, # 最大缩放层级自动展开重合点
      showCoverageOnHover = FALSE, # 关闭悬停显示聚合范围
      spiderLegPolylineOptions = list(weight = 1.5, color = "#888", opacity = 0.7)
    )
  )

该方案无需手动处理偏移逻辑，用户也可直接点击低层级的聚合标记直接展开重合点，不用缩放到最高层级。

方案3：合并信息展示 #

适合不需要单独操作每个重合点的轻量化场景
不拆分标记位置，将同一坐标的所有标注信息合并到同一个标记的弹窗/悬浮提示中展示：

# 按经纬度分组合并标注信息
merged_points <- points_df %>% 
  group_by(lon, lat) %>% 
  summarise(
    point_count = n(),
    point_list = paste(name, collapse = "<br>"),
    .groups = "drop"
  )

leaflet() %>% 
  addTiles() %>% 
  addMarkers(
    data = merged_points,
    lng = ~lon,
    lat = ~lat,
    popup = ~paste0("共有", point_count, "个标注：<br>", point_list)
  )

该方案性能最优，不会增加额外的标记渲染负担。

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