决策曲线DCA的绘制

今天被要求画一下决策曲线,用Python试了半天也没画出来,最后参考了资料还是用R语言绘制了出来。

数据的格式

将四条曲线画在一张表中

R 复制代码
library(rmda)
library(readxl)

# 读取Excel文件
data <- read_excel("C:/Users/Administrator/Desktop/肺动脉数据1000.xlsx")

baseline.model <- decision_curve(y~Qanadli指数 + AD + 血凝块比率+联合,
                                 data = data,
                                 thresholds = seq(0, .4, by = .01),
                                 bootstraps = 10)


set.seed(123)

# 为每个特征创建决策曲线模型
model_qanadli <- decision_curve(y~Qanadli指数,
                                data = data,
                                thresholds = seq(0, 1, by = .01),
                                bootstraps = 10)

model_ad <- decision_curve(y~ AD,
                           data = data,
                           thresholds = seq(0, 1, by = .01),
                           bootstraps = 10)

model_coagulation <- decision_curve(y~血凝块比率,
                                    data = data,
                                    thresholds = seq(0, 1, by = .01),
                                    bootstraps = 10)

model_combined <- decision_curve(y~联合,
                                 data = data,
                                 thresholds = seq(0, 1, by = .01),
                                 bootstraps = 10)


# 绘制四条决策曲线
plot_decision_curve(list(model_qanadli, model_ad, model_coagulation, model_combined),
                    curve.names = c("Qanadli", "AD", "Coagulation", "Combined"),
                    cost.benefit.axis = FALSE,
                    confidence.intervals = FALSE,
                    standardize = FALSE)
相关推荐
烁34711 分钟前
每日一题(小白)动态规划篇2
算法·动态规划
南玖yy41 分钟前
数据结构C语言练习(栈)
c语言·数据结构·算法
阿镇吃橙子1 小时前
一些手写及业务场景处理问题汇总
前端·算法·面试
酱酱哥玩AI1 小时前
Trae编译器:实现多目标班翠鸟优化算法(IPKO)无人机路径规划仿真(Python版),完整代码
算法
MPCTHU1 小时前
二叉树、排序算法与结构图
数据结构·算法·排序算法
亓才孓1 小时前
[leetcode]树的操作
算法·leetcode·职场和发展
王禄DUT1 小时前
化学方程式配平 第33次CCF-CSP计算机软件能力认证
开发语言·c++·算法
wuqingshun3141592 小时前
蓝桥杯 XYZ
数据结构·c++·算法·职场和发展·蓝桥杯
DreamByte2 小时前
C++菜鸟教程 - 从入门到精通 第五节
开发语言·c++·算法
南玖yy2 小时前
数据结构C语言练习(两个队列实现栈)
c语言·数据结构·算法