R語(yǔ)言刹衫,ROC曲線,deLong test

近期在寫(xiě)一些東西盟戏,需要畫(huà)出ROC曲線并且需要對(duì)多個(gè)ROC曲線進(jìn)行對(duì)比绪妹,因?yàn)榕c統(tǒng)計(jì)有關(guān),所以用到deLong test來(lái)進(jìn)行評(píng)估而不是簡(jiǎn)單的使用AUC值進(jìn)行對(duì)比柿究。

繪制ROC曲線

利用R語(yǔ)言繪制ROC曲線是非常容易的事情邮旷,提前導(dǎo)入好pROC包和ggplot2包,只需要三行代碼:

1蝇摸、讀取數(shù)據(jù)

data<-read.csv('test.csv',header = FALSE)婶肩,參數(shù)header設(shè)為FALSE即csv中沒(méi)有列屬性

2、計(jì)算ROC

roc<-roc(data$V1,data$V2)

3貌夕、繪制

plot(roc,col='#D35400',print.auc=TRUE,print.thres=TRUE,print.auc.x=0.4,print.auc.y=0.1,cex.lab=2,cex.axis=2,print.auc.cex=2,print.thres.cex=1.5)

參數(shù) col是顏色律歼,print.auc 顯示AUC值,?print.thres 顯示曲線上的閾值點(diǎn)啡专,print.auc.x和print.auc.y是對(duì)應(yīng)于顯示AUC值在fig中的位置险毁,cex是控制顯示內(nèi)容字體的尺寸。

如果需要再一個(gè)fig里面畫(huà)出多條ROC曲線,只需在接下來(lái)的plot()函數(shù)中添加參數(shù)add=TRUE畔况。

deLong's test

這個(gè)是一種AUC顯著性檢驗(yàn)的方法鲸鹦,通過(guò)計(jì)算不同ROC曲線AUC值的方差和協(xié)方差進(jìn)行顯著性檢驗(yàn)得到P值,一般來(lái)說(shuō)P值低于0.05時(shí),對(duì)比兩個(gè)ROC曲線的AUC值才具備統(tǒng)計(jì)意義跷跪。

在R語(yǔ)言中馋嗜,roc.test(roc_1,roc_2,method = 'delong')即可計(jì)算兩個(gè)ROC曲線的P值

csv數(shù)據(jù)示例如下圖所示

第一列為二分類(lèi)的類(lèi)型標(biāo)簽(GT),第二列為模型預(yù)測(cè)值(0~1)


最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末吵瞻,一起剝皮案震驚了整個(gè)濱河市葛菇,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌橡羞,老刑警劉巖眯停,帶你破解...
    沈念sama閱讀 218,284評(píng)論 6 506
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場(chǎng)離奇詭異尉姨,居然都是意外死亡庵朝,警方通過(guò)查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,115評(píng)論 3 395
  • 文/潘曉璐 我一進(jìn)店門(mén)又厉,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái)九府,“玉大人,你說(shuō)我怎么就攤上這事覆致≈堆” “怎么了?”我有些...
    開(kāi)封第一講書(shū)人閱讀 164,614評(píng)論 0 354
  • 文/不壞的土叔 我叫張陵煌妈,是天一觀的道長(zhǎng)儡羔。 經(jīng)常有香客問(wèn)我,道長(zhǎng)璧诵,這世上最難降的妖魔是什么汰蜘? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 58,671評(píng)論 1 293
  • 正文 為了忘掉前任,我火速辦了婚禮之宿,結(jié)果婚禮上族操,老公的妹妹穿的比我還像新娘。我一直安慰自己比被,他們只是感情好色难,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,699評(píng)論 6 392
  • 文/花漫 我一把揭開(kāi)白布。 她就那樣靜靜地躺著等缀,像睡著了一般枷莉。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上尺迂,一...
    開(kāi)封第一講書(shū)人閱讀 51,562評(píng)論 1 305
  • 那天笤妙,我揣著相機(jī)與錄音冒掌,去河邊找鬼。 笑死危喉,一個(gè)胖子當(dāng)著我的面吹牛宋渔,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播辜限,決...
    沈念sama閱讀 40,309評(píng)論 3 418
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼严蓖!你這毒婦竟也來(lái)了薄嫡?” 一聲冷哼從身側(cè)響起,我...
    開(kāi)封第一講書(shū)人閱讀 39,223評(píng)論 0 276
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤颗胡,失蹤者是張志新(化名)和其女友劉穎毫深,沒(méi)想到半個(gè)月后,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體毒姨,經(jīng)...
    沈念sama閱讀 45,668評(píng)論 1 314
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡哑蔫,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,859評(píng)論 3 336
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了弧呐。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片闸迷。...
    茶點(diǎn)故事閱讀 39,981評(píng)論 1 348
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖俘枫,靈堂內(nèi)的尸體忽然破棺而出腥沽,到底是詐尸還是另有隱情,我是刑警寧澤鸠蚪,帶...
    沈念sama閱讀 35,705評(píng)論 5 347
  • 正文 年R本政府宣布今阳,位于F島的核電站,受9級(jí)特大地震影響茅信,放射性物質(zhì)發(fā)生泄漏盾舌。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,310評(píng)論 3 330
  • 文/蒙蒙 一蘸鲸、第九天 我趴在偏房一處隱蔽的房頂上張望妖谴。 院中可真熱鬧,春花似錦棚贾、人聲如沸窖维。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 31,904評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)铸史。三九已至,卻和暖如春怯伊,著一層夾襖步出監(jiān)牢的瞬間琳轿,已是汗流浹背。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 33,023評(píng)論 1 270
  • 我被黑心中介騙來(lái)泰國(guó)打工, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留崭篡,地道東北人挪哄。 一個(gè)月前我還...
    沈念sama閱讀 48,146評(píng)論 3 370
  • 正文 我出身青樓,卻偏偏與公主長(zhǎng)得像琉闪,于是被迫代替她去往敵國(guó)和親迹炼。 傳聞我的和親對(duì)象是個(gè)殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,933評(píng)論 2 355

推薦閱讀更多精彩內(nèi)容