如何在ggplot2分组柱形图中左对齐X轴文本并保持居中定位？

当用ggplot2绘制分组柱形图时，X轴长标签通过scales::label_wrap(20)换行后，设置hjust=0左对齐会出现标签与对应分组柱子偏移的情况——标签会偏向柱子右侧，无法和分组中心对齐。

问题原因 #

换行后的标签文本框默认以X轴刻度（分组柱子的中心）为对齐基准，hjust=0仅让文本在自身文本框内左对齐，但文本框整体仍居中于刻度，导致标签整体偏右。

解决方案 #

方法1：微调标签位置（无需额外包）

显式指定分组柱子的间距，将标签向左偏移一半间距，让左对齐的标签边缘对齐分组中心：

library(tidyverse)

tibble(
  groups = c("this is a long label",
             "this is a long label",
             "this is another long label",
             "this is another long label",
             "this is an even longer long label",
             "this is an even longer long label"),
  subgroups = c("yes", "no", "yes", "no", "yes", "no"),
  val = c(23, 29, 42, 35, 67, 89)
) |> 
  ggplot(aes(x = groups, y = val, fill = subgroups)) +
  geom_col(position = position_dodge(width = 0.9)) + # 显式指定分组间距，默认值为0.9
  scale_x_discrete(labels = scales::label_wrap(20)) +
  theme(
    axis.text.x = element_text(
      hjust = 0,
      position = position_nudge(x = -0.45) # 偏移量为间距的一半，让标签左边缘对齐分组中心
    )
  )

方法2：使用ggtext实现精准文本对齐（更灵活）

如果需要更精细的多行文本控制，可使用ggtext包的文本框元素，直接设置文本左对齐且文本框左边缘对齐刻度：

library(tidyverse)
library(ggtext)

tibble(
  groups = c("this is a long label",
             "this is a long label",
             "this is another long label",
             "this is another long label",
             "this is an even longer long label",
             "this is an even longer long label"),
  subgroups = c("yes", "no", "yes", "no", "yes", "no"),
  val = c(23, 29, 42, 35, 67, 89)
) |> 
  ggplot(aes(x = groups, y = val, fill = subgroups)) +
  geom_col(position = "dodge") +
  scale_x_discrete(labels = scales::label_wrap(20)) +
  theme(
    axis.text.x = element_textbox_simple(
      halign = 0, # 文本左对齐
      valign = 0.5, # 垂直方向与刻度居中对齐
      width = unit(3, "cm"), # 适配换行后的文本宽度
      margin = margin(t = 5) # 调整标签与X轴的间距
    )
  )

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