R软件做ROC曲线如何提高灵敏度和特异度小数位数

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位。

Will it work if you save the results of the "roc" function call and then write the sensitivity and specifity on the plot using "text"?