![57edc1189803198221163b4ee5daacee.png](https://i-blog.csdnimg.cn/blog_migrate/f6e1e1eb57edf3d2b579a16dea4bf77f.jpeg)
视频地址戳这个
首先按照惯例给大家看一下我们的原始数据长什么样子:
![4529d305d474429bd31267c561f7524e.png](https://i-blog.csdnimg.cn/blog_migrate/7e377c87aedf502157f9b1fda8ab1e88.jpeg)
然后就可以加载包导入数据了
rm(list=ls())
library(openxlsx)
library(pROC)
library(ggplot2)
lxrdata<-read.xlsx("ROC.xlsx", sheet =1)
然后就可以读取数据并绘制了
lxrroc1 <- plot.roc(lxrdata$gold_standard, lxrdata$Atest)
best<-coords(lxrroc1, "best", ret ="all", transpose =F)
plot.roc(lxrroc1,col="#FF6665", identity.col ="grey", legacy.axes=T)
legend("bott