ggplot中如何将文本固定在绘图最右端同时保持左对齐？

核心实现逻辑是通过 x = Inf 锚定绘图区右边界，配合关闭坐标裁剪保留超出绘图区的文本，如需多行文本内部左对齐可借助ggtext包的对齐参数实现。

方案1：原生ggplot2实现（适合单行注释） #

无需额外安装依赖，可满足单行注释始终贴合右边界的需求：

library(ggplot2)
library(dplyr)

# 预处理：计算每个分面对应的均值，用于生成水平线和注释
facet_mean <- ToothGrowth %>%
  group_by(supp) %>%
  summarise(len_mean = mean(len), .groups = "drop")

ggplot(ToothGrowth, aes(x = factor(dose), y = len)) +
  geom_boxplot() +
  # 绘制分面对应的红色均值虚线
  geom_hline(data = facet_mean, aes(yintercept = len_mean), color = "red", linetype = "dashed") +
  # 添加右对齐注释
  geom_text(
    data = facet_mean,
    aes(x = Inf, y = len_mean, label = paste0("均值：", round(len_mean, 2))),
    hjust = 1.1, # 调整数值可控制文本和右边界的间距，值越大越靠左
    vjust = -0.3 # 调整垂直位置避免和虚线重叠
  ) +
  facet_wrap(~supp) +
  # 关键：关闭坐标裁剪，避免超出绘图区的文本被截断
  coord_cartesian(clip = "off") +
  # 可选：调整画布右侧边距，防止文本被画布边缘截断
  theme(plot.margin = unit(c(1, 3, 1, 1), "lines"))

方案2：ggtext实现（支持多行文本左对齐） #

如果需要添加多行注释且要求文本内部左对齐，可使用ggtext包的halign参数单独控制文本内部对齐方式：

library(ggplot2)
library(dplyr)
library(ggtext)

# 预处理：构造带多行注释的分面统计数据
facet_mean <- ToothGrowth %>%
  group_by(supp) %>%
  summarise(
    len_mean = mean(len),
    sample_n = n(),
    # 用<br>作为换行符
    label = paste0("均值：", round(len_mean, 2), "<br>样本量：", sample_n),
    .groups = "drop"
  )

ggplot(ToothGrowth, aes(x = factor(dose), y = len)) +
  geom_boxplot() +
  geom_hline(data = facet_mean, aes(yintercept = len_mean), color = "red", linetype = "dashed") +
  geom_richtext(
    data = facet_mean,
    aes(x = Inf, y = len_mean, label = label),
    hjust = 1, # 整个文本块的右边缘对齐x=Inf（绘图区右边界）
    halign = 0, # 文本内部左对齐
    vjust = 1.2,
    fill = NA, # 去掉文本默认背景
    label.color = NA # 去掉文本默认边框
  ) +
  facet_wrap(~supp) +
  coord_cartesian(clip = "off") +
  theme(plot.margin = unit(c(1, 3, 1, 1), "lines"))

常见问题说明 #

• 之前固定x值的方案失效原因：x值为数据单位，x轴范围变化时注释位置会偏移，无法始终贴右边界
• x=Inf + hjust=1仅能实现整体右对齐，多行文本会全部右对齐无法满足左对齐需求
• hjust>1后文本消失的原因：默认开启坐标裁剪，超出绘图区的元素会被直接删除，需通过coord_cartesian(clip = "off")关闭裁剪

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