如何使用R的googleway包实现谷歌地图标记聚类？

嘿，我发现你踩了googleway聚类功能的一个小坑！add_markers()函数里根本没有cluster=TRUE这个参数，所以你这么写自然不会生效～正确的做法是用专门的**add_markers_clustered()函数**来实现标记聚类。

修正后的可复现代码 #

library(googleway)
key <- "你的谷歌地图API密钥"  # 记得替换成自己的有效密钥
df <- data.frame(
 lat = c(45.77740319999999,45.77740319999999,46.77740319999999,46.77740319999999),
 lon = c(4.855214400000023,4.955214400000023,4.855214400000023,4.955214400000023))

# 用add_markers_clustered替代原来的add_markers
google_map(key = key, height = 600, search_box = TRUE) %>%
  add_markers_clustered(data = df, lat = "lat", lon = "lon")

几个关键提醒 #

• 确保你的谷歌API密钥已经启用了Maps JavaScript API，不然地图和聚类功能都加载不出来
• add_markers_clustered()会自动根据标记位置聚类，缩放地图时聚类会自动展开/合并，完全满足你的需求
• 如果想自定义聚类样式（比如图标、颜色），可以通过marker_cluster_options()参数来配置，比如：

  # 示例：自定义聚类样式
  google_map(key = key, height = 600, search_box = TRUE) %>%
    add_markers_clustered(
      data = df, 
      lat = "lat", 
      lon = "lon",
      marker_cluster_options = marker_cluster_options(
        colors = c("#FF5733", "#33FF57", "#3357FF"),
        grid_size = 50
      )
    )
  

这样修改后，你就能看到正常的标记聚类效果啦，赶紧试试！

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