如何在ggplot2中添加带符号、换行且居中的轴文本及Y轴适配

核心思路 #

避免使用expression处理复合标签（易导致对齐异常），改用Unicode箭头+普通字符串换行处理X轴；Y轴则借助ggtext包的富文本支持，灵活控制文本格式与对齐，解决错位问题。

步骤1：安装并加载依赖包 #

library(ggplot2)
library(ggtext) # 支持markdown格式的轴标签
data(cars)

步骤2：X轴实现箭头+换行+居中对齐 #

直接用Unicode箭头（←/→）替代expression，结合\n换行，再通过hjust=0.5确保标签居中对齐网格线：

ggplot(data = cars, aes(x = speed, y = dist)) +
  geom_point() +
  scale_x_continuous(
    name = "",
    breaks = c(5, 15, 25),
    labels = c("5\n← Lower speed", "15", "25\nHigher speed →")
  ) +
  theme_gray() +
  theme(
    axis.text.x = element_text(hjust = 0.5, size = 10) # 强制居中对齐
  )

为什么不用expression？

expression的换行（\n）对齐逻辑与普通字符串不一致，会导致箭头和文本无法整体居中，改用普通字符串+Unicode箭头更稳定。

步骤3：Y轴解决错位与旋转问题 #

Y轴默认文本旋转90度，直接换行易导致数值与辅助文本错位。用ggtext::element_markdown支持多行富文本，设置angle=0让文本水平显示，确保标签中心对齐网格线：

ggplot(data = cars, aes(x = speed, y = dist)) +
  geom_point() +
  # X轴设置同上
  scale_x_continuous(
    name = "",
    breaks = c(5, 15, 25),
    labels = c("5\n← Lower speed", "15", "25\nHigher speed →")
  ) +
  scale_y_continuous(
    name = "",
    breaks = c(25, 75, 125),
    # 用<br>换行，可通过HTML样式调整辅助文本字号
    labels = c(
      "25<br><span style='font-size:85%'>↓ Shorter<br>distance</span>",
      "75",
      "125<br><span style='font-size:85%'>↑ Longer<br>distance</span>"
    )
  ) +
  theme_gray() +
  theme(
    axis.text.x = element_text(hjust = 0.5, size = 10),
    # 使用element_markdown支持HTML样式，设置angle=0让文本水平显示
    axis.text.y = element_markdown(hjust = 0.5, angle = 0, size = 10),
    # 调整左侧边距，避免Y轴文本被截断
    plot.margin = margin(t = 20, r = 20, b = 20, l = 60)
  )

效果说明

• Y轴文本水平显示，数值与辅助文本整体居中对齐对应网格线
• 可通过HTML样式（如font-size）调整辅助文本的视觉层级，增强可读性
• 无需单独旋转部分文本，避免了向量angle参数报错的问题

关键注意事项 #

• Unicode箭头可直接输入，或用转义符（如\u2190代表←，\u2192代表→）
• ggtext包需单独安装（install.packages("ggtext")），支持markdown/HTML格式的文本元素
• 调整plot.margin时，左侧边距（l）需根据Y轴文本长度适当增大

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