R语言Leaflet地图标记重复显示及缩放交互需求咨询

你遇到的标记重复问题，根源是代码里连续调用了两次addMarkers()：第一次带clusterOptions生成聚合的彩色圆圈，第二次不带聚合生成单个蓝色图钉，两者叠加导致同时显示。

要实现「缩小聚合为彩色圆圈、放大展开为蓝色图钉」的效果，只需把聚合配置、搜索所需的分组、标记标签等参数整合到同一次addMarkers()调用中，同时去掉重复的底图加载代码。修正后的完整代码如下：

library(leaflet)
library(inlmisc)

# 生成示例数据
Long = rnorm(1000, -71, 0.5)
Lat = rnorm(1000, 42.3, 0.5)

loc = rep("loc", 1000)
Name = rep("Location", 1000)
num = 1:1000
Label = paste0(loc, "_", num)

df = data.frame(Name, Lat, Long, Label)

# 构建地图
map <- leaflet(df) %>%  
  addProviderTiles(providers$OpenStreetMap) %>%  # 加载底图（仅需一次）
  setView(lng=-71.0589, lat=42.3301, zoom=12) %>%
  addMarkers(
    ~Long, ~Lat, 
    popup = ~paste("title: ", Name),  # 弹窗内容
    label = ~Label,  # 悬浮标签
    group = "marker",  # 搜索功能关联的分组
    clusterOptions = markerClusterOptions()  # 聚合配置
  ) %>% 
  inlmisc::AddSearchButton(group = "marker", zoom = 15,
                           textPlaceholder = "Search here")

# 显示地图
map

关键调整说明： #

• 合并两次addMarkers()为一次，同时包含clusterOptions、group、label等所有必要参数，既实现聚合效果，又保留搜索功能的支持。
• 移除重复的addTiles()调用，避免底图重复加载。

这样设置后，地图会自动根据缩放级别切换显示：缩小到一定程度时，蓝色图钉聚合成彩色圆圈；放大到阈值后，圆圈展开为单个蓝色图钉，同时搜索功能可以正常定位标记。

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