setwd("D:\\R") #设置数据所在路径#
library(pROC)
data<-as.data.frame(read.csv("data.csv",header = T))
datam<-data[data$SEX==1,]
dataf<-data[data$SEX==2,]
roc(datam$Hypertension,datam$BMI,plot=T,print.thres=T, print.thres.digits=4,reuse.auc=T,axes=T,
          legacy.axes=T,print.auc=T)
上面是所运行的程序，如何提高图片结果的小数位数，即将3位提高到4位。