如何可视化每项研究的百分比对使用R进行的二元结果荟萃分析的总体效应大小摘要的贡献？

Question

我正在使用“ metafor”包的内置“ dat.bcg”数据集练习荟萃分析。 除了“研究贡献百分比”外，我已经执行了所有主要分析。 我还没有找到如何形象化这一点。 我附上一张图片供您参考。

我想将上述图像可视化。

到目前为止，我一直在运行以下代码。

enter code here library（“ metafor”） enter code here data（“ dat.bcg”，package =“ metafor”） enter code here print（dat.bcg，row.names = FALSE） enter code here res <-rma（yi ，vi，数据= dat） enter code here enter code here res = rma（ai = tpos，bi = tneg，ci = cpos，di = cneg，data = dat，measure =“ OR”） enter code here enter code here res enter code here confint（res） enter code here forest（res，slab = paste（dat $ author，dat $ year，sep =“，”），xlim = c（-16，6），at = log（c（0.05，0.25 ，1，4）），atransf = exp，ilab = cbind（dat $ tpos，dat $ tneg，dat $ cpos，dat $ cneg），ilab.xpos = c（-9.5，-8，-6，-4.5） ，cex = 0.75） enter code here op <-par（cex = 0.75，字体= 2） enter code here text（c（-9.5，-8，-6，-4.5），15，c（“ TB +”，“ TB-“，” TB +“，” TB-“））） enter code here text（c（-8.75，-5.25），16，c（” Vaccinated“，” Control“）） enter code here text（-16，15 ，“作者和年份”，pos = 4） enter code here text（6，15，“相对风险[95％CI]”，pos = 2） enter code here par（op）