如何修复geom_label/geom_label_repel中换行标签的对齐不一致问题

问题场景 #

用ggplot2绘制时间线时，通过str_wrap对长标签换行，配合ggrepel::geom_label_repel（或原生geom_label）的hjust参数偏移标签后，会出现换行的第二行及后续行和第一行对齐错位的问题——第一行因hjust偏移，后续行却默认左对齐，视觉上不统一。

示例数据 #

library(ggplot2)
df <- structure(list(date = structure(c(18851, 19958, 18933, 18949, 
                                        18976, 19074, 19304, 19570, 19713, 19766, 20032), class = "Date"), 
                     event = c("Census data released", "Johnson v. WEC filed in state court", 
                               "People's Map Commission releases final proposal", "Gov. Evers vetoes maps", 
                               "SCOWIS receives proposed maps", "SCOTUS rules Evers' map unconstitutional", 
                               "Election held using legislature's map", "Protasiewicz begins term", 
                               "SCOWIS strikes down existing maps & invites proposals", 
                               "Legislature passes Evers' map", "Election held using Evers' map"
                     )), row.names = c(NA, -11L), class = c("tbl_df", "tbl", "data.frame"
                     ))

原问题代码 #

df |>
  ggplot(aes(x = 0, y = date)) +
  geom_line() +
  geom_point() +
  ggrepel::geom_label_repel(aes(label = str_wrap(event, 30)),
                            hjust = -0.2, direction = "y", seed = 3)

解决方案 #

核心思路是：放弃用hjust偏移标签框，改为给换行后的每一行文本添加统一缩进，再让标签框左对齐，这样所有行的偏移量一致，对齐就统一了。

方法1：手动添加空格缩进（最直接） #

library(stringr)
library(ggplot2)
library(ggrepel)

# 先处理文本：换行后给每行（包括第一行）加4个空格缩进
df$label_text <- str_replace_all(str_wrap(df$event, 30), "\n", "\n    ")

df |>
  ggplot(aes(x = 0, y = date)) +
  geom_line() +
  geom_point() +
  geom_label_repel(aes(label = label_text),
                   hjust = 0, direction = "y", seed = 3)

方法2：用ggtext支持富文本缩进（更灵活） #

如果需要更美观的缩进，可借助ggtext的Markdown支持：

library(ggtext)
library(stringr)
library(ggplot2)
library(ggrepel)

# 给每行开头加4个不换行空格（ ）
df$label_text <- str_replace_all(str_wrap(df$event, 30), "^", "&nbsp;&nbsp;&nbsp;&nbsp;")

df |>
  ggplot(aes(x = 0, y = date)) +
  geom_line() +
  geom_point() +
  geom_label_repel(aes(label = label_text),
                   hjust = 0, direction = "y", seed = 3,
                   parse = FALSE) +
  theme(text = element_markdown())

原生geom_label的适配 #

同样的逻辑也适用于ggplot2::geom_label，只需调整nudge_x控制标签和点的间距：

df$label_text <- str_replace_all(str_wrap(df$event, 30), "\n", "\n    ")

df |>
  ggplot(aes(x = 0, y = date)) +
  geom_line() +
  geom_point() +
  geom_label(aes(label = label_text), hjust = 0, nudge_x = 0.1)

为什么原代码会出问题？ #

hjust参数控制的是整个标签框相对于坐标点的对齐方式，而非标签内部多行文本的每行对齐。当设置hjust=-0.2时，标签框整体向左偏移，但内部的多行文本依然默认左对齐，所以第一行跟着标签框偏移，后续行却贴紧标签框左侧，造成视觉上的错位。

内容的提问来源于stack exchange，提问作者John J.