如何用ggrepel为同标签多数据点添加单个标签以避免冗余

可以通过分组汇总坐标+标签锚定+连线关联的方式，结合ggrepel::geom_text_repel实现单个标签对应一组同标签点的效果，具体步骤如下：

1. 准备数据 #

先对原始数据按分组字段汇总，生成每组的代表坐标（比如均值中心），作为标签的锚点：

library(dplyr)
library(ggplot2)
library(ggrepel)

# 原始数据
df <- data.frame(
  group = c("A", "A", "B", "B"),
  x = c(1, 2, 3, 4),
  y = c(2, 3, 4, 5)
)

# 生成每组的中心坐标（这里用均值，也可以换成极值/中位数）
df_group <- df %>%
  group_by(group) %>%
  summarise(x = mean(x), y = mean(y), .groups = "drop")

2. 绘制带分组标签的散点图 #

先绘制原始数据的散点，再用连线把每个点和组中心关联，最后用geom_text_repel基于组中心数据生成单个标签：

ggplot(df, aes(x, y)) +
  # 绘制原始数据点
  geom_point(size = 3) +
  # 用虚线连接每个点到对应组的中心
  geom_segment(
    data = df,
    aes(
      xend = df_group$x[match(group, df_group$group)],
      yend = df_group$y[match(group, df_group$group)]
    ),
    color = "gray60", linetype = "dashed"
  ) +
  # 为每组生成单个标签，用ggrepel自动调整位置避免重叠
  ggrepel::geom_text_repel(
    data = df_group,
    aes(label = group),
    box.padding = 0.5,
    force = 4,
    size = 5,
    fontface = "bold"
  )

关键说明 #

• 核心逻辑：用分组汇总的坐标作为标签的锚点，避免重复生成标签；通过连线将锚点与组内所有点关联，实现单个标签对应整组点的效果。
• 自定义调整：如果不想用均值作为锚点，可以替换summarise中的计算逻辑，比如用x = max(x), y = max(y)取组内极值点作为锚点。

内容的提问来源于stack exchange，提问作者Pau Clavell-Revelles