ggplot2中element_text不支持向量化输入时，如何自定义轴文本对齐方式？

由于element_text官方不支持向量化的hjust参数，且该用法可能在未来版本失效，推荐使用以下两种符合ggplot2标准流程的方法：

方法一：手动绘制轴标签（核心ggplot2功能） #

通过隐藏默认轴文本，使用geom_text直接绘制自定义对齐的标签，这是最稳妥的原生方案：

library(ggplot2)

# 构造数据
v <- data.frame(x=1:2, y=1:2, facet=gl(2, 2))

# 基础绘图：隐藏默认x轴标签和文本
base_plot <- ggplot(v) +
  geom_point(aes(x=x, y=y)) +
  scale_x_continuous(breaks = 1:2, labels = NULL) +  # 移除刻度标签
  facet_wrap(~facet) +
  theme(axis.text.x = element_blank())  # 隐藏默认轴文本元素

# 添加自定义对齐的标签
base_plot +
  geom_text(
    # 定义标签的位置和内容，每个分面重复一次标签
    data = data.frame(
      x = rep(1:2, 2),
      y = 0.8,  # 标签y轴位置，略低于绘图区域，可自行调整
      facet = rep(1:2, each=2),
      label = rep(c("Minimum", "Maximum"), 2)
    ),
    aes(x = x, y = y, label = label),
    hjust = rep(c(0, 1), 2),  # 左对齐第一个标签，右对齐第二个
    inherit.aes = FALSE  # 不继承主图的美学映射
  )

关键细节 #

• 调整y参数可以控制标签与绘图区域的距离
• inherit.aes = FALSE避免继承主图的y映射，防止出现错误
• 每个分面的标签需要在数据框中重复对应行，确保每个分面都能显示正确的标签

方法二：使用ggtext扩展包（简化实现） #

如果可以依赖扩展包，ggtext的element_markdown原生支持向量化的hjust参数，无需手动绘制标签：

library(ggplot2)
library(ggtext)

v <- data.frame(x=1:2, y=1:2, facet=gl(2, 2))

ggplot(v) +
  geom_point(aes(x=x, y=y)) +
  scale_x_continuous(breaks = 1:2, labels = c("Minimum", "Maximum")) +
  facet_wrap(~facet) +
  theme(axis.text.x = element_markdown(hjust = c(0, 1)))

这种方法更简洁，但需要安装ggtext包，若要求纯核心ggplot2功能，优先选择方法一。

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