如何让ggrepel::geom_label_repel的线段锚定标签框左对齐位置？

使用ggrepel::geom_label_repel时，想让所有标签的连接线锚点都对齐在标签框的左侧，但如果数据集里的点在y轴上跨度极大，默认设置根本没法实现整洁的左对齐效果。

先看正常情况（数据点y值集中）的理想效果：

ggplot(data = data.frame(x = abs(rnorm(10)),y=abs(rnorm(10)),lab = c(1:10)))+
  ggrepel::geom_label_repel(aes(x=x,y=y,label = lab),
                            xlim = c(1.9,2),direction='y')+
  geom_point(aes(x=x,y=y))+
  xlim(c(0,2))

这个例子里数据点y值都集中在小范围，标签能整齐左对齐，连接线锚点也统一。

但如果数据里有极端值（比如y=10的点），用同样的设置就会乱套：

ggplot(data = data.frame(x = c(abs(rnorm(10)),1),y=c(abs(rnorm(10)),10),lab = c(1:11)))+
  ggrepel::geom_label_repel(aes(x=x,y=y,label = lab),
                            xlim = c(1.9,2),direction='y')+
  geom_point(aes(x=x,y=y))+
  xlim(c(0,2))

此时标签的连接线锚点会错位，没法保持统一左对齐。

解决办法 #

geom_label_repel的自动布局逻辑在这种极端数据分布下不太靠谱，不如手动控制标签位置和连接线，直接实现需求：

1. 先给数据集加一列固定的标签x坐标（比如设成1.95，就是你想要的左对齐位置）
2. 用geom_label把标签固定在这个x位置，设置左对齐
3. 用geom_segment自己画从数据点到标签左侧的连接线

示例代码：

library(ggplot2)

# 构造带极端值的数据集
df <- data.frame(
  x = c(abs(rnorm(10)), 1),
  y = c(abs(rnorm(10)), 10),
  lab = c(1:11)
)

# 给标签指定固定的x位置
df$label_x <- 1.95

ggplot(df) +
  # 画数据点
  geom_point(aes(x = x, y = y)) +
  # 固定位置的左对齐标签
  geom_label(
    aes(x = label_x, y = y, label = lab),
    hjust = 0,  # 强制左对齐
    fill = "white",
    size = 3
  ) +
  # 画连接线，端点刚好贴在标签左侧
  geom_segment(
    aes(x = x, xend = label_x - 0.02, y = y, yend = y),
    color = "gray50",
    linetype = "solid"
  ) +
  # 设置x轴范围
  xlim(c(0, 2))

这样不管数据点y值跨度多大，所有标签的左侧边缘都对齐在同一位置，连接线的端点也统一锚在标签左边，完全符合你的需求。

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