r - R 中的并排森林图

Question

所以这是一些通用数据。我目前使用 metafor 包和 par()功能使情节并排。但是，我想在理想情况下摆脱第二个图中的研究列和两个图中的对数 RR 估计值。我希望两个森林地块也能靠得更近一些。抱歉之前没有提供数据 - 我是新手。

library(metafor)
par(mfrow=c(1,2))

### load BCG vaccine data
data(dat.bcg)
### calculate log relative risks and corresponding sampling variances
dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg)
### default forest plot of the observed log relative risks
forest(dat$yi, dat$vi)
### default forest plot of the observed log relative risks for second plot
forest(dat$yi, dat$vi)

================================

有谁知道如何在 r 中制作并排森林图？
我想在左侧有子组名称，然后在右侧有两个森林图(彼此相邻)
有点像这样 http://www.nature.com/ng/journal/v43/n8/images_article/ng.882-F1.jpg
但要简单得多。

我试过 par()功能与 metafor 包，但它不起作用。

Answer 1

这让你非常接近:

library(metafor)
data(dat.bcg)
dat <- escalc(measure="RR", ai=tpos, bi=tneg, ci=cpos, di=cneg, data=dat.bcg)

par(mfrow=c(1,2))
par(mar=c(5,4,1,1))
forest(dat$yi, dat$vi, annotate=FALSE, cex=.8, at=seq(-3,2,1), digits=1, xlim=c(-6,2))
text(0, 15, "Figure 1", cex=.8, font=2)
par(mar=c(5,3,1,2))
forest(dat$yi, dat$vi, annotate=FALSE, slab=rep("",length(dat$yi)), cex=.8, at=seq(-3,2,1), digits=1, xlim=c(-5,3))
text(0, 15, "Figure 2", cex=.8, font=2)