如何在patchwork的3×3组合图中添加面板内标签？

需要在3×3网格的patchwork组合图中把标签移到面板边框内，但尝试添加theme(legend.position = "right", plot.tag.position = c(.15, .95))后标签消失，相关代码如下：

数据准备代码 #

library(devtools)
library(ggplot2)
library(patchwork)

d1 <- runif(500)
d2 <- rep(c("Treatment","Control"),each=250)
d3 <- rbeta(500,shape1=100,shape2=3)
d4 <- d3 + rnorm(500,mean=0,sd=0.1)
plotData <- data.frame(d1,d2,d3,d4)
str(plotData)

绘图对象定义代码 #

p1 <- ggplot(data=plotData) + geom_boxplot(aes(x=d2,y=d1,fill=d2)) + theme(legend.position = "none")
p2 <- ggplot(data=plotData) + geom_boxplot(aes(x=d2,y=d1,fill=d2)) + theme(legend.position = "none")
p3 <- ggplot(data=plotData) + geom_boxplot(aes(x=d2,y=d1,fill=d2)) + theme(legend.position =  "right")
p4 <- ggplot(data=plotData) + geom_boxplot(aes(x=d2,y=d1,fill=d2)) + theme(legend.position = "none")
p5 <- ggplot(data=plotData) + geom_boxplot(aes(x=d2,y=d1,fill=d2)) + theme(legend.position = "none")
p6 <- ggplot(data=plotData) + geom_boxplot(aes(x=d2,y=d1,fill=d2)) + theme(legend.position =  "right")
p7 <- ggplot(data=plotData) + geom_boxplot(aes(x=d2,y=d1,fill=d2)) + theme(legend.position = "none")
p8 <- ggplot(data=plotData) + geom_boxplot(aes(x=d2,y=d1,fill=d2)) + theme(legend.position = "none")
p9 <- ggplot(data=plotData) + geom_boxplot(aes(x=d2,y=d1,fill=d2)) + theme(legend.position = "right")

原错误尝试代码 #

# 此代码会导致标签消失
(((p1 + p2 + p3) / 
(p4 + p5 + p6) / 
(p7 + p8 + p9)) + guide_area()) & plot_annotation(tag_levels = "A") + theme(legend.position = "right", plot.tag.position =  c(.15, .95))

解决方案 #

核心问题 #

plot_annotation()是组合图级别的设置，不能通过&和子图主题混在一起设置，否则会覆盖标签配置导致标签消失。需将组合图设置与子图主题设置分开处理。

修正后的代码 #

# 正确组合：plot_annotation用+连接组合图，&统一设置子图主题
(((p1 + p2 + p3) / 
    (p4 + p5 + p6) / 
    (p7 + p8 + p9)) + guide_area()) +
  plot_annotation(tag_levels = "A") &  # 单独设置标签层级
  theme(
    plot.tag.position = c(0.15, 0.95),  # 将标签移至面板内部（相对坐标，0-1范围）
    plot.tag = element_text(size = 12, face = "bold"),  # 可选：调整标签样式
    legend.position = "right"  # 统一图例位置（若需）
  )

关键说明 #

• plot_annotation(tag_levels = "A")必须用+直接连接到组合图对象，这是顶层的标签生成设置。
• & theme(...)用于给所有子图统一应用主题配置，包括plot.tag.position，确保每个面板的标签都移到指定的内部位置。
• 可通过调整c(x,y)的数值精准控制标签位置：x=0是面板最左侧，x=1是最右侧；y=0是最底部，y=1是最顶部。

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