R语言中合并多个森林图为单个图形的技术问题

meta包的forest()函数生成的是基础R图形，并非ggplot或grob对象，这是你之前转换失败、合并出空白图的核心原因。以下是两种可行的解决方法：

方法一：用gridGraphics捕获基础图为grob后合并 #

这个方法能准确将基础R图形转换为grob对象，再用patchwork或gridExtra合并：

# 安装并加载必要包
install.packages(c("gridGraphics", "gridExtra", "patchwork"))
library(gridGraphics)
library(patchwork)
library(meta)

# 捕获第一个森林图为grob
grid.echo(function() {
  forest(metainf(comparison1, pooled = "random"))
})
fp1_grob <- grid.grab()

# 捕获第二个森林图为grob
grid.echo(function() {
  forest(metainf(comparison2, pooled = "random"))
})
fp2_grob <- grid.grab()

# 合并图形（上下排列）
fp_both <- wrap_elements(fp1_grob) / wrap_elements(fp2_grob)
# 添加标签（可选）
fp_both + plot_annotation(tag_levels = 'A')

方法二：直接在同一绘图页面绘制两个森林图 #

如果不需要复杂的布局调整，用基础R的绘图参数直接分栏/分行绘制：

# 设置绘图布局为2行1列
par(mfrow = c(2, 1))

# 绘制第一个森林图
forest(metainf(comparison1, pooled = "random"), main = "Comparison 1")
# 绘制第二个森林图
forest(metainf(comparison2, pooled = "random"), main = "Comparison 2")

# 恢复默认布局
par(mfrow = c(1, 1))

补充说明 #

• 你之前的fp1 <- forest(...)赋值操作其实没有保存图形对象，forest()仅会在当前设备绘图，不会返回可操作的图形对象，必须用gridGraphics的方法捕获。
• 如果需要更灵活的ggplot风格森林图，也可以考虑迁移到metafor包，它的forest()函数支持返回ggplot对象，直接用patchwork/ggarrange合并即可。

内容的提问来源于stack exchange，提问作者soph-glas