如何在 R 中為 SVM 模型繪制 ROC 曲線

Question

我已經使用以下代碼訓練和測試了一個模型

library(e1071)
library(readxl)
library(caret)

class1.svm.model <- svm(Class ~ ., data = class1.trainset,cost=20, cross=10,type="C-classification",kernel="radial",na.action=na.omit)
class1.svm.pred <- predict(class1.svm.model, class1.testset)
finalmatrix<-data.matrix(class1.svm.pred, rownames.force = F)

test<-table(pred = class1.svm.pred, true = class1.testset[,c(15768)])

confusionMatrix(test)

但無法為模型繪制 ROC 曲線。 請幫助我使用正確的語法繪制 ROC 曲線以查看我的測試數據的性能。

Answer 1

用類繪制 SVM 的 ROC 曲線：

roc_svm_test <- roc(response = class1.trainset$Class, predictor =as.numeric(class1.svm.pred))
plot(roc_svm_test, add = TRUE,col = "red", print.auc=TRUE, print.auc.x = 0.5, print.auc.y = 0.3)
legend(0.3, 0.2, legend = c("test-svm"), lty = c(1), col = c("blue"))