ggplot2中多副标题左右对齐的稳定实现方案问询

方案一：使用ggtext包（推荐，简洁通用） #

ggtext是ggplot2官方生态的扩展包，支持用Markdown和CSS渲染文本元素，能稳定实现同一行的左右对齐效果，且无弃用或兼容性风险。

1. 安装并加载依赖：

install.packages("ggtext")
library(ggplot2)
library(ggtext)

2. 实现代码：

ggplot(mtcars, aes(mpg, wt)) +
  geom_point() +
  labs(
    subtitle = '<div style="display: flex; justify-content: space-between; width: 100%;">
      <span>左对齐副标题内容</span>
      <span>右对齐副标题内容</span>
    </div>'
  ) +
  theme(
    plot.subtitle = element_markdown(
      lineheight = 1.2, 
      margin = margin(b = 12), # 调整副标题与绘图区域的间距
      size = 10
    ),
    plot.title.position = "plot" # 让副标题宽度匹配整个绘图区域（可选，增强对齐效果）
  )

优势：

• 官方支持，稳定性有保障
• 通过CSS样式可灵活调整文本大小、颜色、间距等
• 无需修改绘图裁剪设置，避免意外问题
• 适配绝大多数ggplot2主题

方案二：纯ggplot2+grid实现（无额外依赖） #

如果不想引入第三方包，可通过annotation_custom结合grid的视口定位，手动放置左右两个文本元素，同样无需关闭绘图裁剪。

1. 实现代码：

library(ggplot2)
library(grid)

# 基础绘图
p <- ggplot(mtcars, aes(mpg, wt)) +
  geom_point() +
  theme(plot.subtitle = element_blank()) # 关闭默认副标题占位

# 添加左对齐副标题
p <- p + annotation_custom(
  textGrob(
    label = "左对齐副标题", 
    hjust = 0, 
    gp = gpar(fontsize = 10, col = "gray40")
  ),
  xmin = -Inf, xmax = Inf, ymin = Inf, ymax = Inf,
  vp = viewport(y = 1.03, x = 0.01, just = c("left", "top"))
)

# 添加右对齐副标题
p <- p + annotation_custom(
  textGrob(
    label = "右对齐副标题", 
    hjust = 1, 
    gp = gpar(fontsize = 10, col = "gray40")
  ),
  xmin = -Inf, xmax = Inf, ymin = Inf, ymax = Inf,
  vp = viewport(y = 1.03, x = 0.99, just = c("right", "top"))
)

# 调整顶部边距，避免文本被画布裁剪
p + theme(plot.margin = margin(t = 30, r = 15, b = 15, l = 15))

优势：

• 仅依赖ggplot2和基础grid包，无需额外安装
• 定位精准，可自由调整文本的位置和样式
• 无需设置clip="off"，规避潜在的绘图异常

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