R語(yǔ)言如何實(shí)現(xiàn)ROC曲線(xiàn)繪制

發(fā)布時(shí)間：2021-12-22 14:04:27 來(lái)源：億速云閱讀：465 作者：小新欄目：大數(shù)據(jù)

這篇文章將為大家詳細(xì)講解有關(guān)R語(yǔ)言如何實(shí)現(xiàn)ROC曲線(xiàn)繪制，小編覺(jué)得挺實(shí)用的，因此分享給大家做個(gè)參考，希望大家閱讀完這篇文章后可以有所收獲。

>install.packages("ROCR")

> library(ROCR)

> data("ROCR.simple")

> str(ROCR.simple)

List of 2

$predictions: num [1:200] 0.613 0.364 0.432 0.14 0.385 ...

$labels : num [1:200] 1 1 0 0 0 1 1 11 0 ...

>pred<prediction(ROCR.simple$predictions,ROCR.simple$labels)

> plot(perf,colorize=T)

> plot(perf)

R語(yǔ)言如何實(shí)現(xiàn)ROC曲線(xiàn)繪制

> plot(perf,colorize=TRUE)

R語(yǔ)言如何實(shí)現(xiàn)ROC曲線(xiàn)繪制

> install.packages("pROC")

> library(pROC)

> data("aSAH")

>roc1<-roc(aSAH$outcome,aSAH$s100b,levels=c("Good","Poor"))

>plot(roc1,print.auc=TRUE,auc.polygon=TRUE,grid=c(0.1,0.2),grid.col=c("green","red"),max.auc.polygon=TRUE, auc.polygon.col="skyblue",print.thres=TRUE)

R語(yǔ)言如何實(shí)現(xiàn)ROC曲線(xiàn)繪制

> (auc1 = auc(roc1))

Area under the curve: 0.7314

關(guān)于“R語(yǔ)言如何實(shí)現(xiàn)ROC曲線(xiàn)繪制”這篇文章就分享到這里了，希望以上內(nèi)容可以對(duì)大家有一定的幫助，使各位可以學(xué)到更多知識(shí)，如果覺(jué)得文章不錯(cuò)，請(qǐng)把它分享出去讓更多的人看到。

向AI問(wèn)一下細(xì)節(jié)

R語(yǔ)言如何實(shí)現(xiàn)ROC曲線(xiàn)繪制

猜你喜歡

最新資訊

相關(guān)推薦

相關(guān)標(biāo)簽