组合多个森林图

如何解决组合多个森林图

我正在尝试将 4 个森林图组合成 1 个具有 2 列和 2 行的矩阵类型图输出。

我已经尝试了 grid.arrange 多次，但我继续得到“列表中只允许使用 grobs”。

• 元函数使用 metacont 完成，因为我的数据是连续的

---

我的代码如下：

plot_ma

plot_m1

plot_m2

plot_ab

---

我希望将这些组合成矩阵格式，以便我的输出可以是 4 个图的一个矩阵。

谢谢

解决方法

meta 包和 metafor 包创建了与 grobs 不兼容的绘图。您可以使用 metaviz 包创建您的绘图，然后将它们与 gridExtra::grid.arrange 结合。

下面的代码应该可以工作并且主要取自metaviz vignette

library(metaviz)

study_table <- data.frame(
    name = exrehab[,"study_name"],eventsT = paste(exrehab$ai,"/",exrehab$ai + exrehab$bi,sep = ""),eventsC = paste(exrehab$ci,exrehab$ci + exrehab$di,sep = ""))

summary_table <- data.frame(
    name = "Summary",eventsT = paste(sum(exrehab$ai),sum(exrehab$ai + exrehab$bi),eventsC = paste(sum(exrehab$ci),sum(exrehab$ci + exrehab$di),sep = ""))

g1 <- viz_forest(x = exrehab[,c("logrr","logrr_se")],variant = "classic",col = "Greys",xlab = "logRR",annotate_CI = T,study_table = study_table,summary_table = summary_table,table_headers = c("ID","Events (T)","Events (C)"))

gridExtra::grid.arrange(g1,g1)