组合多个森林图答案

【问题标题】：Combining Multiple Forest Plots组合多个森林图
【发布时间】：2021-09-09 19:46:41
【问题描述】：

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

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

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

我的代码如下：

plot_ma

plot_m1

plot_m2

plot_ab

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

谢谢

【问题讨论】：

标签： r meta forestplot

【解决方案1】：

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), sep = ""),
    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)

【讨论】：