如何为ggplot2中facet_wrap生成的子图添加左对齐副标题

针对你用facet_wrap生成子图后，需要给每个子图单独添加左对齐副标题的需求，这里提供两种实用解决方案：

方案一：用patchwork拼接独立子图（推荐） #

这种方式直接为每个物种单独绘图、设置副标题，再拼接成和facet_wrap一致的布局，操作直观且灵活。

library(ggplot2)
library(patchwork)

# 绘制Versicolor子图
versi_plot <- iris %>% 
  filter(Species == 'versicolor') %>% 
  ggplot(aes(x = Petal.Length, y = Petal.Width)) +
  geom_point() +
  labs(subtitle = 'Versicolor') +
  theme(plot.subtitle = element_text(hjust = 0)) # 强制左对齐副标题

# 绘制Virginica子图
virgi_plot <- iris %>% 
  filter(Species == 'virginica') %>% 
  ggplot(aes(x = Petal.Length, y = Petal.Width)) +
  geom_point() +
  labs(subtitle = 'Virginica') +
  theme(plot.subtitle = element_text(hjust = 0))

# 按两列拼接子图
versi_plot + virgi_plot + plot_layout(ncol = 2)

方案二：用geom_text结合facet变量（无需额外包） #

如果不想引入新包，可以通过自定义文本注释的方式，利用facet分组为每个子图添加副标题，需要手动调整位置避免遮挡数据：

library(ggplot2)

# 过滤目标数据
iris_filtered <- iris %>% filter(Species != 'setosa')

# 准备副标题数据：包含每个物种的位置和文本
subtitle_data <- data.frame(
  Species = c('versicolor', 'virginica'),
  x = rep(min(iris_filtered$Petal.Length), 2), # 左对齐的x坐标
  y = rep(max(iris_filtered$Petal.Width) + 0.2, 2), # 高于数据点的y坐标
  label = c('Versicolor', 'Virginica')
)

ggplot(iris_filtered, aes(x = Petal.Length, y = Petal.Width)) +
  geom_point() +
  facet_wrap(~ Species) +
  theme(strip.text.x = element_blank()) + # 移除默认strip标签
  # 按facet分组添加左对齐文本
  geom_text(data = subtitle_data, aes(x = x, y = y, label = label),
            hjust = 0, inherit.aes = FALSE) +
  # 扩展y轴范围，确保副标题显示完整
  ylim(min(iris_filtered$Petal.Width), max(iris_filtered$Petal.Width) + 0.3)

两种方案都能实现需求：方案一的子图样式可单独调整，布局更可控；方案二无需额外依赖包，但需要手动微调坐标位置。

内容的提问来源于stack exchange，提问作者Saneesh C S