在一個圖上繪制多個ROC曲線？

Question

我想循環比較幾個邏輯回歸模型。 並在一張圖表中打印幾條ROC曲線。 我該怎么做？ 例如，對於一個模型，它看起來像

pred_fit4 <- prediction(workData$pred,workData3$value)
perf_fit4 <- performance(pred_fit4,"tpr","fpr")
roc <- plot(perf_fit4,colorize = T, print.cutoffs.at = seq(0,1),)

其曲線輸出如下：

以及如何添加新行？ 看起來像

for (...) {
.......
.......
    pred_fit4 <- prediction(workData$pred,workData3$value)
    perf_fit4 <- performance(pred_fit4,"tpr","fpr")
    #need add line on exist chart
    roc <- plot(perf_fit4,colorize = T , print.cutoffs.at = seq(0,1),)
}

Answer 1

這是使用軟件包pROC。 您可以創建一個ROC對象，然后使用線將其添加到同一圖形中，並根據需要添加任意數量的ROC。

obj.rpart1=roc(label1 ~ p1.rpart, smooth = T)
obj.rpart2=roc(label1 ~ p1.rpart, smooth = T)
plot(obj.rpart)
lines(obj.rpart2)