曲线图ROC em R

我需要在R中绘制ROC曲线，但我不知道如何更正它

cctrl2 <- trainControl(method = "cv", number = 10, classProbs = TRUE, savePredictions = TRUE)
modelNb <- train(Treino[, -5], Treino$TOTAL_PEDIDO, 
         method = "nb", 
         trControl = cctrl2)
test_class_pred_nb_probs <- predict(modelNb, Teste[, -5], type = "prob")
roc_nb = plot.roc(Teste[, 2],test_class_pred_nb_probs$alto, col='red')

---

cctrl2请发布一个可复制的示例：@Calimo，该表有7000多个元组。如何发布表格？您不需要包含所有表格，请选择一个小的子样本。看一看，别忘了包括对library（）的调用等。添加一些关于您具体更改的内容以及更改原因的注释（对您来说也是很有用的）。谢谢，更改是multiclass.roc函数。我希望您意识到这只是绘制multiclass.roc计算的6条曲线中的一条（可能是高或低）.是的，但我一次只能得到一个。
aux<-Teste[which(Teste$TOTAL_PEDIDO == "alto"),]
test_class_pred_nb_probs <- predict(modelNb, aux[, -5], type = "prob")
roc_nb = plot.roc(aux[, 2],test_class_pred_nb_probs$alto, col='red')

Error in sort.list(y) : 'x' must be atomic for 'sort.list'
Have you called 'sort' on a list?

cctrl2 <- trainControl(method = "cv", number = 10,  classProbs = TRUE, savePredictions = TRUE)

modelNb <- train(Treino[, -2], Treino$TOTAL_PEDIDO,
              method = "nb", 
              trControl = cctrl2)

test_pred_nb <- predict(modelNb, Teste[, -2])
test_pred_nb_probs <- predict(modelNb, Teste[, -2], type = "prob")
roc_nb = multiclass.roc(Teste[, 2],
     test_pred_nb_probs$min,
     add=TRUE,
     col='blue')
roc_nb
rs <- roc_nb[['rocs']]
plot.roc(rs[[1]])

auc(roc_nb)