Добавление AUC к легенде и оптимальное пороговое значение для построения графика с использованием ggplot - PullRequest
Новая
       20

Добавление AUC к легенде и оптимальное пороговое значение для построения графика с использованием ggplot

0 голосов
/ 25 марта 2019

Я использую ggplot для создания графика с наложением нескольких кривых ROC. Я хочу добавить оптимальный порог (порог Юдена) к каждой строке и добавить 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»

Не уверен, что попробовать для оптимального порогового значения ...

...