![R语言 画图roc R语言 画图roc](https://image.shishitao.com:8440/aHR0cHM6Ly9ia3FzaW1nLmlrYWZhbi5jb20vdXBsb2FkL2NoYXRncHQtcy5wbmc%2FIQ%3D%3D.png?!?w=700&webp=1)
这才是我要的滑板鞋~~~~~
#glm模型
glm.model=train(y~.,data=data_train,
method="glm",
metric="ROC",
trControl=control)
#svm模型
svm.model=train(y~.,data=data_train,
method="svmRadial",
metric="ROC",
trControl=control)
##预测
glm.pred=predict(glm.model,data_test[,c(1:10)],type="prob")
svm.pred=predict(svm.model,data_test[,c(1:10)],type="prob")
##画出roc图
glm.roc=roc(response=data_test$y,predictor=glm.pred$yes,
levels=levels(data_test$y))
plot(glm.roc,type = "S",col="red")
svm.roc=roc(response=data_test$y,predictor=svm.pred$yes,
levels=levels(data_test$y))
plot(svm.roc,add = TRUE,col="green")
rpart.roc=roc(response=data_test$y,predictor=rpart.pred$yes,
levels=levels(data_test$y))
plot(rpart.roc,add = TRUE,col="blue")