r - 使用 R 在元分析中结合森林图和红绿灯图

Question

Revman 软件在元分析中生成了森林图和红绿灯图的组合（参见例如 doi：http ://dx.doi.org/10.1136/bmjopen-2018-024444 ，图 3）。我正在使用软件包metafot 元分析和robvis偏倚风险。下面是一些使用包中示例数据的简单代码：

#creating a forest plot
library(meta)
m <- metacont(n.amlo, mean.amlo, sqrt(var.amlo),
              n.plac, mean.plac, sqrt(var.plac),
              data = amlodipine, studlab = study)
forest(m)

#creating a risk of bias traffic light plot
library(robvis)
rob_traffic_light(data_rob2, tool = "ROB2")

重要的是森林图中的行（即每项研究）和偏差风险图中的行是对齐的。使用诸如此类的包的问题gridExtra在于，您必须调整对齐和大小或绘图，直到它适合为止。我的问题是在 R 中是否有一个很好的解决方法来获得类似于 Revman-plots 的图。结果应如下图所示。

Answer 1

以下是开始构建情节的一些想法。

library(meta)
data(amlodipine)
m <- metacont(n.amlo, mean.amlo, sqrt(var.amlo),
              n.plac, mean.plac, sqrt(var.plac),
              data = amlodipine, studlab = study)  

library(ggplotify)
p1 <- as.ggplot(~forest(m), scale = 1, hjust = 0, vjust = 0)

library(robvis)
p2 <- rob_traffic_light(data_rob2, tool = "ROB2")

library(patchwork)
graphics.off()
dev.new(width=15,height=6)
wrap_plots(p1, p2, widths=c(9,2), heights=c(15,1))