R使用netmeta程序包实现生存数据的频率学网状meta分析

之前的推文系统的介绍了使用netmeta包实现对二分类变量、连续型变量和罕见事件的网状meta分析。今天的文章介绍如何使用netmeta程序包实现生存数据的频率学网状meta分析,用来评估6种免疫疗法( Camrelizumab、Tislelzumab、Toripalimab、Sintilimab、Pembrolizumab、Nivolumab)联合化疗方案治疗一线晚期或转移性鳞状食管癌的NMA。

图片

1. 程序包加载及数据加载

library(netmeta)
OS <- read_csv("netmeta.csv")

2. 模型构建

使用netmeta函数构建NMA分析模型,其中TE = log(HR),seTE = (log(upperCI) - log(lowerCI))/3.92)

m.netmeta <- netmeta(TE = TE,  # TE = log(HR)
                     seTE = seTE,  # seTE = (log(upperCI) - log(lowerCI))/3.92)
                     treat1 = treat1,
                     treat2 = treat2,
                     studlab = study,
                     data = OS,
                     sm = "HR",
                     reference.group = "che",
                     sep.trts = " vs ")

3. 网络证据绘制

使用netgraph函数绘制网络证据图

netgraph(m.netmeta, 
         points=T,
         plastic=F, 
         col = "#5C8286",
         col.points = "#BFBFBF",
         bg.points = "#5C8286",
         number.of.studies = T, 
         cex=1.5,
         cex.points=c(4,7,4,4,4,4,4))

图片

4. 森林图绘制

使用forest函数绘制森林图

forest(m.netmeta,
       reference.group = "che",
       smlab = paste("IO-chem vs chemo"),
       drop.reference.group = TRUE,
       label.left = "HR",
       col.square = "#5C8286",
       drop = TRUE,
       sortvar = -TE,
       label.right = "95% CrI")

图片

5. 两两比较赛联表制作

使用 netleague函数计算两两比较结果

netleague <- netleague(m.netmeta, 
                       bracket = "(", 
                       digits=2)  
# netleague
write.csv(netleague$random, "netleague.csv")

6. 排序(SURCA )

使用netrank函数计算累积概率并绘制条形排序图

netrank(m.netmeta, small.values = "good")
             P-score (common) P-score (random)
tor_plus_che           0.8446           0.8446
sin_plus_che           0.7316           0.7316
tis_plus_che           0.6340           0.6340
cam_plus_che           0.5010           0.5010
pem_plus_che           0.3954           0.3954
niv_plus_che           0.3917           0.3917
che                    0.0018           0.0018

图片

参考文献

[1]   Gao, Tian-Tian et al. “Comparative efficacy and safety of immunotherapy for patients with advanced or metastatic esophageal squamous cell carcinoma: a systematic review and network Meta-analysis.” BMC cancer vol. 22,1 992. 17 Sep. 2022, doi:10.1186/s12885-022-10086-5IF: 3.8 Q2.

  • 3
    点赞
  • 11
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

皮肤小白生

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值