如何使用Patchwork对齐并排绘图面板内的A、B标签

你可以通过以下步骤修改代码，实现并排布局、共享右侧图例且标签位置一致：

1. 先隐藏单个图的图例（后续统一收集），避免图例占位影响子图宽度和标签定位
2. 使用相对坐标设置标签位置，确保标签在各自面板的相同相对位置
3. 保留plot_layout(guides = "collect")实现右侧共享图例

修改后的完整代码：

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)

# 定义单个图，隐藏图例
p2 <- ggplot(data=plotData) + 
  geom_boxplot(aes(x=d2,y=d1,fill=d2)) + 
  theme(legend.position = "none")  # 先隐藏单个图的图例

# 组合图表并设置标签位置
(p2 + p2) & 
  theme(plot.tag.position = c(0.9, 0.95),  # 相对坐标，对应面板右上角区域
        plot.tag = element_text(face = "bold", size = 12)) +
  plot_annotation(tag_levels = "A") +
  plot_layout(guides = "collect")  # 收集图例到右侧共享

关键说明 #

• 原代码中每个子图保留legend.position = "right"，导致子图宽度包含图例占位，收集图例后子图实际宽度被压缩，绝对坐标的标签位置会偏移甚至不可见。
• 使用相对坐标c(0.9, 0.95)，标签会基于每个子图的绘图区域（而非包含图例的原始宽度）定位，确保两个标签在各自面板的相同相对位置。
• 你可以调整c(0.9, 0.95)的数值来微调标签的位置，第一个值控制水平位置（0为左，1为右），第二个值控制垂直位置（0为下，1为上）。

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