多次折叠的ROC图

编程问答 2022-08-15

问题描述

我需要绘制4倍交叉验证的ROC曲线。

我做了什么：

set.seed(20)
split <- sample.split(all_df$Group,SplitRatio = 0.75)
training_set <- subset(all_df,split == TRUE)
test_set <- subset(all_df,split == FALSE)
training_set[-length(training_set)] <- scale(training_set[,-length(training_set)]) 
test_set[-length(test_set)] <- scale(test_set[,-length(test_set)]) 

#4-fold for outer CV
folds <- createFolds(training_set$Group,4)
split_up <- lapply(folds,function(ind,dat) dat[ind,],dat = training_set) 

parms_list_SVM_P <- list()
model_list_SVM_P <- list()
for (i in 1:4) {model_SVM_P <- train(Group ~ .,data = split_up[[i]],method = "svmpoly",trControl = fitControl,metric = "Accuracy",verbose = FALSE,tuneLength = 10)
    model_list_SVM_P[[i]] <- model_SVM_P
    parms_list_SVM_P[[i]] <- model_SVM_P$bestTune}

因此在model_list_SVM_P中，我接受了该模型的所有培训，并且我想做类似的事情：

enter image description here

我使用MLeval包创建了多个图，但是我无法弄清楚如何绘制均值和标准差。开发人员。

我现在有这个：

res <- evalm(list(model_list_SVM_P[[1]],model_list_SVM_P[[2]],model_list_SVM_P[[3]],model_list_SVM_P[[4]]),gnames=c("1","2","3","4"),rlinethick = 0.73,dlinecol= "beige",cols = c("cornflowerblue","navy","chartreuse1","red"))

enter image description here

解决方法

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

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

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

machine-learningplotrrroc