如何在ggplot2分面图中实现同一行左右对齐的双副标题

使用ggplot2绘制分面图时，希望在标题下方的同一行设置两个副标题，分别左对齐和右对齐。目前仅能单独设置单一对齐的副标题，通过添加大量空格的方式实现效果不够优雅，寻求更合理的解决方案。

现有单一对齐副标题的实现代码：

• 左对齐副标题：

p <- ggplot(mtcars, aes(mpg, hp)) + 
  geom_point() +
  facet_grid(am~.) +
  theme(plot.title=element_text(hjust=0.5))

p + labs(title="Data: mtcars", subtitle="Subtitle (left-aligned)")

• 右对齐副标题：

p + labs(title="Data: mtcars", subtitle="Subtitle (right-aligned)") +
  theme(plot.subtitle=element_text(hjust=1))

解决方案1：使用ggtext包（推荐） #

ggtext支持HTML/CSS格式渲染，可通过flex布局轻松实现同一行的左右对齐效果。

1. 安装并加载依赖包：

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

2. 构造带HTML布局的副标题并绘图：

p <- ggplot(mtcars, aes(mpg, hp)) + 
  geom_point() +
  facet_grid(am~.) +
  theme(
    plot.title = element_text(hjust = 0.5),
    # 启用markdown/HTML渲染副标题
    plot.subtitle = element_markdown(lineheight = 1.2)
  )

# 用CSS flex布局实现左右两端对齐
subtitle_content <- '<div style="display: flex; justify-content: space-between;">
  <span>Subtitle (left-aligned)</span>
  <span>Subtitle (right-aligned)</span>
</div>'

p + labs(
  title = "Data: mtcars",
  subtitle = subtitle_content
)

解决方案2：使用grid包手动定位文本 #

通过grid包创建文本对象，结合annotation_custom手动将两个副标题定位到绘图区域顶部的左右两侧。

1. 加载依赖包并初始化基础绘图：

library(ggplot2)
library(grid)

p <- ggplot(mtcars, aes(mpg, hp)) + 
  geom_point() +
  facet_grid(am~.) +
  theme(
    plot.title = element_text(hjust = 0.5),
    # 隐藏默认副标题避免冲突
    plot.subtitle = element_blank()
  )

2. 创建并添加左右对齐的文本对象：

# 生成左对齐文本
left_subtitle <- textGrob(
  "Subtitle (left-aligned)", 
  x = unit(0, "npc"), 
  hjust = 0, 
  gp = gpar(fontsize = 10)
)

# 生成右对齐文本
right_subtitle <- textGrob(
  "Subtitle (right-aligned)", 
  x = unit(1, "npc"), 
  hjust = 1, 
  gp = gpar(fontsize = 10)
)

# 将文本添加到绘图顶部
p + annotation_custom(left_subtitle, xmin = -Inf, xmax = Inf, ymin = Inf, ymax = Inf) +
  annotation_custom(right_subtitle, xmin = -Inf, xmax = Inf, ymin = Inf, ymax = Inf)

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