# 安装包
if (!requireNamespace("meta", quietly = TRUE)) {
install.packages("meta")
}if (!requireNamespace("ggplotify", quietly = TRUE)) {
install.packages("ggplotify")
}
# 加载包
library(meta)
library(ggplotify)
连续变量 Meta 分析
注记
Hiplot 网站
本页面为 Hiplot Meta-analysis of Continuous Data
插件的源码版本教程,您也可以使用 Hiplot 网站实现无代码绘图,更多信息请查看以下链接:
环境配置
系统: Cross-platform (Linux/MacOS/Windows)
编程语言: R
依赖包:
meta
;ggplotify
数据准备
# 加载数据
<- read.delim("files/Hiplot/120-meta-cont-data.txt", header = T)
data
# 整理数据格式
<- metacont(n.e, mean.e, sd.e, n.c, mean.c, sd.c, studlab = Study, data = data,
m1 sm = "SMD")
# 查看数据
head(data)
Study n.e mean.e sd.e n.c mean.c sd.c
1 A 13 5.0 4.70 13 6.50 3.80
2 B 30 4.9 1.71 50 6.10 2.30
3 C 35 22.5 3.44 35 24.90 10.65
4 D 20 12.5 1.47 20 12.30 1.66
5 E 8 6.5 0.76 8 7.38 1.41
可视化
# 连续变量 Meta 分析
<- as.ggplot(function(){
p ::forest(m1, layout = "meta")
meta
})
p
