如何用R的patchwork与grid包为两幅图添加共用竖线？

实现步骤 #

针对你用ggplot2+patchwork绘制森林图的场景，要在两幅图上方加共用竖线，可通过grid包的绘图函数结合patchwork的布局来实现，以下是两种可靠方法：

方法1：直接在组合图上叠加竖线 #

先完成两幅图的组合，再用grid的绘图函数在顶部添加竖线：

library(tidyverse)
library(patchwork)
library(grid)

# 假设你的两个森林图对象为p1、p2
combined_plot <- p1 + p2 + plot_layout(ncol = 2)

# 绘制组合图并叠加竖线
grid.newpage()
grid.draw(combined_plot)

# 自定义竖线位置与样式
grid.lines(
  x = unit(0.5, "npc"),  # 横向位置（0=最左，1=最右，0.5为两图中间）
  y = unit(c(0.95, 0.85), "npc"),  # 纵向覆盖范围（从顶部往下）
  gp = gpar(lwd = 2, col = "red", lty = 1)  # 线宽、颜色、线型
)

方法2：用annotation_custom嵌入竖线Grob #

通过patchwork的注释功能，将竖线作为自定义元素插入组合图：

# 创建竖线Grob对象
vline_grob <- linesGrob(
  x = unit(0.5, "npc"),
  y = unit(c(0, 1), "npc"),
  gp = gpar(lwd = 2, col = "darkblue")
)

# 组合图添加顶部竖线，同时调整边距避免裁剪
combined_plot <- p1 + p2 + plot_layout(ncol = 2)
combined_plot +
  annotation_custom(
    grob = vline_grob,
    xmin = -Inf, xmax = Inf,
    ymin = 1.08, ymax = 1.18  # 控制竖线在图上方的纵向位置
  ) &
  theme(plot.margin = margin(60, 15, 15, 15))  # 顶部留足空间显示竖线

关键参数说明 #

• unit(..., "npc")：使用归一化坐标，0-1对应整个绘图区域的范围，方便跨图定位
• gpar()：调整线条样式，lwd控制粗细，col设置颜色，lty可指定虚线/实线
• plot.margin：若用annotation_custom，必须增大顶部边距，否则竖线会被绘图区域裁剪

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