R语言proc包绘制ROC曲线（信用评分应用，已有label和相应score）

2018/11/6

数据：好坏标签label、用四种model简单计算出的每一个样本的score，标记为pre1至pre4，约1w样本

目的：使用proc包绘制ROC曲线，并生成AUC值

1.读入数据

data<-read.csv(file="D:/个人消费信用/第三次上机/工作簿2.csv",header=T)

header=T 即在读取中，将原有数据的第一行设置为变量名。

注意文件的分隔为 “ / ”，与默认不同。

2.画出最基本的ROC曲线

library(pROC) #加载pROC包
roc1<-roc(data$label,data$pre1)
plot(roc1,print.auc=TRUE,plot=TRUE,
print.thres=TRUE)

包含AUC的值和最优临界点，下面把它美化一下~

（问题：为啥横坐标Specificity的范围是1.5到-0.5，查了一下没有找到原因，可能是因为原数据本身的问题，以前以违约概率而非score的时候没有出现这个问题，择日探究……TvT)