如何让ggplot2多行X轴标签左对齐且居中置于刻度下方？

要同时实现标签内部左对齐和整体居中对应刻度，可以用以下两种方法：

方法1：使用ggtext包（推荐） #

ggtext支持Markdown样式渲染，给每个标签添加左对齐的HTML样式，同时保持整体的对齐基准为居中：

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

df <- data.frame(x = 1:5,
                 y = c(2, 4, 3, 5, 6),
                 label = c("Line 1 Label", "Line 2 Label is a bit longer",
                           "Line 3 Label is even longer than the previous one",
                           "Line 4 Label is not so long", "Line 5 Label"))

# 为每个标签包裹左对齐的HTML容器
df$label <- str_c("<div style='text-align: left;'>", str_wrap(df$label, width = 15), "</div>")

ggplot(df, aes(x, y)) +
    geom_point() +
    scale_x_continuous(breaks = 1:5, labels = df$label) +
    theme(axis.text.x = element_markdown(hjust = 0.5))  # 整体居中对齐刻度

方法2：手动计算对齐基准（无需额外包） #

通过计算每个标签的文本宽度，调整hjust值，让文本块的中心点与刻度对齐：

library(ggplot2)
library(stringr)
library(grid)

df <- data.frame(x = 1:5,
                 y = c(2, 4, 3, 5, 6),
                 label = c("Line 1 Label", "Line 2 Label is a bit longer",
                           "Line 3 Label is even longer than the previous one",
                           "Line 4 Label is not so long", "Line 5 Label"))

df$label <- str_wrap(df$label, width = 15)

# 计算每个标签文本的宽度
text_widths <- sapply(df$label, function(txt) {
    grobWidth(textGrob(txt, hjust = 0))
})

# 计算每个标签对应的hjust值，使文本块中心对齐刻度
df$hjust <- 0.5 - (text_widths / max(text_widths)) * 0.5

ggplot(df, aes(x, y)) +
    geom_point() +
    scale_x_continuous(breaks = 1:5, labels = df$label) +
    theme(axis.text.x = element_text(hjust = df$hjust))

两种方法都能达成需求：多行标签内部每行左对齐，同时整个标签块与对应X轴刻度居中对齐。

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