如何在pROC中以置信区间绘制多个roc曲线？

编程问答 2022-06-04

问题描述

此代码可以以置信区间绘制roc曲线：

ciobj <- ci.se(obj,specificities=seq(0,1,l=25))
dat.ci <- data.frame(x = as.numeric(rownames(ciobj)),lower = ciobj[,1],upper = ciobj[,3])

ggroc(obj) + theme_minimal() + geom_abline(slope=1,intercept = 1,linetype = "dashed",alpha=0.7,color = "grey") + coord_equal() + 
  geom_ribbon(data = dat.ci,aes(x = x,ymin = lower,ymax = upper),fill = "steelblue",alpha= 0.2) + ggtitle(capture.output(obj$ci))

并且此代码可以一起绘制多个roc曲线

roc.list <- roc(outcome ~ s100b + ndka + wfns,data = aSAH)
g.list <- ggroc(roc.list)
g.list

但是我不能将它们组合在一起

ggroc(roc.list) + theme_minimal() + geom_abline(slope=1,alpha= 0.2) + ggtitle(capture.output(obj$ci))

它将返回错误：

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

rrroc