R语言ggplot2借助ggrepel实现同组点共用标签框及连线

核心实现逻辑 #

无需改动原有散点图的基础展示，仅做两处关键调整即可满足需求：

• 基于分组维度计算组内坐标中心，生成和分组数量完全匹配的标签数据集，从数据源头避免逐点生成重复标签
• 为全量散点绘制低透明度、同色系的细连线，指向所属组的标签位置，用弱视觉权重的线条传递分组归属关系

分步实现代码 #

1. 依赖包加载 #

需要用到dplyr做分组统计、ggplot2做基础绘图、ggrepel做无重叠的标签展示：

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

2. 数据预处理 #

# 计算每个物种分组的中心坐标，作为标签的锚点位置
# 锚点位置可根据需求调整为组内中位数、指定代表点坐标
group_label_pos <- iris %>%
  group_by(Species) %>%
  summarise(
    Sepal.Length = mean(Sepal.Length),
    Sepal.Width = mean(Sepal.Width),
    label = first(Species)
  )

# 匹配每个原始散点对应的组标签坐标，构建连线所需的数据集
line_data <- iris %>%
  left_join(group_label_pos, by = "Species", suffix = c("_point", "_label"))

3. 图层组合绘图 #

按照视觉优先级从底层到上层依次添加元素，保证散点和标签是视觉焦点：

ggplot() +
  # 最底层：半透明细连线，连接所有散点到所属组的标签中心
  geom_segment(
    data = line_data,
    aes(
      x = Sepal.Length_point, y = Sepal.Width_point,
      xend = Sepal.Length_label, yend = Sepal.Width_label,
      color = Species
    ),
    alpha = 0.15,
    linewidth = 0.2
  ) +
  # 中间层：全量原始散点
  geom_point(
    data = iris,
    aes(x = Sepal.Length, y = Sepal.Width, color = Species),
    size = 1.5,
    alpha = 0.8
  ) +
  # 最上层：分组标签框，由ggrepel自动调整位置避免和散点重叠
  geom_label_repel(
    data = group_label_pos,
    aes(x = Sepal.Length, y = Sepal.Width, label = label, color = Species),
    size = 5,
    box.padding = 1.2,
    segment.color = NA # 关闭ggrepel自带的单条引导线，避免和自定义连线重复
  ) +
  theme_bw()

最终效果说明 #

• 图中仅生成与分组数量（本例为3个物种）完全匹配的标签框，没有逐点重复的冗余标签
• 同组所有散点通过低透明度的同色系细线关联到所属分组的标签位置，弱视觉权重的连线不会干扰散点本身的分布展示
• 支持灵活调整：可通过修改alpha调整连线的透明度，修改box.padding调整标签与散点的距离，修改标签字号适配不同的输出场景。

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