使用ggplot将AUC添加到图例和最佳阈值进行绘制

Question

我正在使用ggplot创建具有多个ROC曲线重叠的图形。我想将最佳阈值（Youden阈值）添加到每行，并将每行的AUC添加到图例。

test <- ggplot() +
geom_roc(aes(d= rad.opacity, m=opacity.score, colour="Opacity"), labels=FALSE, subset1) + 
geom_roc(aes(d= rad.fibrosis, m=fibrosis.score, colour="Fibrosis"), labels=FALSE, subset1) +
  annotate(
    labels = paste("AUC =", round(calc_auc(test)["AUC"], 2))) +
  style_roc(xlab = "1 - Specificity", ylab = "Sensitivity")

我尝试了上面的代码来添加AUC，但是它不起作用。它返回“错误：手动刻度中的值不足。需要10个，但仅提供0个。”

不确定如何尝试最佳阈值...