R语言ggplot中geom_text_repel标签重复问题求助

核心问题原因 #

你遇到的geom_text_repel重复显示标签的问题，本质是空间数据与标签数据的匹配逻辑+stat参数的双重作用：

• 你的map7（shapefile数据）中，可能存在多个多边形对应同一个name（比如部分区域由多个子多边形组成）。
• 执行left_join(cnames)后，每个对应同一name的多边形都会带上相同的x/y/name信息。
• geom_text_repel中指定的stat = "sf_coordinates"会对**每一个sf几何对象（即每个多边形）**提取坐标点并生成标签，导致同一个name被重复渲染多次。

而geom_text没有重复，是因为它默认直接使用你提供的聚合后中心点坐标，不会遍历每个多边形的坐标——但这又引发了标签重叠的问题。

解决步骤 #

步骤1：确保标签数据唯一 #

先通过去重操作，让每个name只对应一条带中心点坐标的记录，避免每个多边形都携带重复标签信息：

# 连接空间数据与标签数据后，按name去重，保留每个name的唯一标签记录
label_data <- map7 %>%
  left_join(cnames) %>%
  distinct(name, .keep_all = TRUE)

步骤2：修改geom_text_repel的用法 #

直接使用已计算好的x/y中心点坐标，去掉stat = "sf_coordinates"参数，确保每个标签只渲染一次：

map7 %>%
  left_join(new) %>%
  ggplot() +
  geom_sf(aes(fill = price), color = "black") +
  theme(axis.text.x = element_blank(),
        axis.text.y = element_blank(),
        axis.ticks = element_blank(),
        axis.title.y = element_blank(),
        axis.title.x = element_blank(),
        rect = element_blank(),
        panel.background = element_blank()) +
  scale_fill_gradient(low = "white", high = "black", na.value = "red", 
                      guide = 'colorbar', aesthetics = 'fill') +
  # 使用去重后的标签数据，直接调用x/y坐标
  geom_text_repel(data = label_data, aes(x = x, y = y, label = name),
                  show.legend = FALSE, size = 3)

步骤3：可选优化 #

如果仍有少量标签重叠，可调整geom_text_repel的参数增强效果：

geom_text_repel(data = label_data, aes(x = x, y = y, label = name),
                show.legend = FALSE, size = 3,
                force = 2,  # 增大标签间排斥力
                max.overlaps = 5)  # 隐藏超出重叠阈值的标签

补充说明 #

之前用内连接没解决问题，是因为内连接仅过滤了无匹配的记录，并未处理同一name对应多个多边形导致的标签重复——核心是要确保每个标签只被渲染一次。

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