是否可以根据Metafor软件包/ R中的类别在漏斗图中为数据点着色?

时间:2018-11-28 13:03:30

标签: r metafor

是否可以为“漏斗”图中的数据点着色?我正在使用metafor软件包。

 # Load package
 library(metafor)

 # Load data
 data(dat.bcg)

 # Code 
 ex <- rma(ai=tpos, bi=tneg, ci=cpos, 
 di=cneg, data=dat.bcg, measure="OR",
 slab=paste(author, year, sep=", "), method="FE")

# Funnel plot
funnel(ex, transf = exp, ylab="Test group", xlab="Control")

是否可以基于变量为点着色?

表示以下内容的Fx蓝色数据点:

dat.bcg$alloc==random

谢谢你。

1 个答案:

答案 0 :(得分:3)

我检查了funnel方法的源代码,但令人不安的是,您不能将颜色矢量传递给col参数。

一个简单的解决方法是将funnel()的输出分配给一个变量,该变量将为您提供漏斗图中点的x和y坐标,然后在漏斗图上的原始点上用彩色绘制点。

# Create vector of colors
my_colors <- c('red','blue')[(dat.bcg$alloc == 'random') + 1]

# Create funnel plot, catching output
funnelplotdata <- funnel(ex, transf = exp, ylab="Test group", xlab="Control")

# Plot over points
with(funnelplotdata, points(x, y, col = my_colors, pch = 19))

enter image description here