可以根据 Metafor package/R 中的类别在漏斗图中对数据点进行着色吗？

Question

是否可以为漏斗图中的数据点着色？我正在使用 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

谢谢你，C.

Answer 1

我检查了 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))

可以根据 Metafor package/R 中的类别在漏斗图中对数据点进行着色吗？

Can datapoints be colored in Funnel Plot based on category in Metafor package/R?

r

metafor