Revman软件在meta分析中生成森林图和红绿灯图的组合(例如,参见doi:http://dx.doi.org/10.1136/bmjopen-2018-024444,图3)。我使用meta软件包进行meta分析,使用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的图。结果应该如下图所示。

发布于 2020-12-09 02:07:36
这里有一些开始构建你的图的想法。
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))

https://stackoverflow.com/questions/65203930
复制相似问题