如何通过patchwork设置调整图例组间距，使图例与对应面板对齐

要让收集的图例分别对应面板对齐并增大间距，不要依赖patchwork的自动图例收集功能，改用手动提取图例+嵌套布局的方式实现精准对齐，具体方案如下：

步骤说明 #

1. 提取单个图形的独立图例
2. 移除原图的图例，避免重复显示
3. 通过嵌套布局将每个面板与对应图例横向组合，再整体纵向拼接

完整代码 #

# 安装并加载依赖包
install.packages("cowplot")
library(ggplot2)
library(patchwork)
library(cowplot)

# 生成示例数据
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)

# 绘制图形并移除自带图例
p1 <- ggplot(data=plotData) + 
  geom_point(aes(x=d3, y=d4, color = d4)) +
  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_histogram(aes(x=d1, color=I("black"),fill=I("orchid")))

# 提取对应图例
legend_d4 <- get_legend(p1 + theme(legend.position = "right"))
legend_d2 <- get_legend(p2 + theme(legend.position = "right"))

# 嵌套布局组合图形与图例
(p1 + legend_d4) / (p2 + legend_d2) / p3 +
  plot_layout(widths = c(4, 1)) +  # 调整面板与图例栏的宽度比例
  plot_annotation(tag_levels = 'a')

效果说明 #

• d4图例将与a面板（p1）顶部对齐，d2图例与b面板（p2）顶部对齐
• 两个图例的间距由面板间的纵向间距自动控制，无需手动调整unit()参数
• 通过plot_layout(widths)可灵活调整图例栏的宽度，适配不同展示需求

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