使用OptimalCutpoints软件包绘制ROC曲线：更改图例的大小吗？

Question

我有类似的数据：

  

head（data1）

状态为NLR

1 1 3.547

2 1 2.723

3 0 2.228

4 0 1.903

5 0 1.870

6 1 1.515

我使用Youden成功绘制了具有最佳截止值的ROC曲线：

  

库（OptimalCutpoints）

     

optical.cutpoint.nlr <-optimize.cutpoints（X =“ NLR”，status =“状态”，tag.healthy = 0，方法=“ Youden”，数据= data1，pop.prev = NULL，控制= control.cutpoints（），ci.fit = FALSE，conf.level = 0.95，trace = FALSE）

     

plot.optimal.cutpoints（optimal.cutpoint.nlr，= 1）

my plot

我如何安排AUC标签的大小以适合绘图，我如何指出确切的价值削减幅度（此处为2.336）而不是（0.283，0.647）？

谢谢！