Saya memiliki plot roc untuk 4 grup, saya ingin menambahkan nilai auc untuk setiap grup dalam legenda:

## draw plots
basicplot <- ggplot(roc_long, aes(d = outcome, m = prediction, color = model)) + geom_roc(n.cuts = 0) + 
+   style_roc(theme = theme_bw, xlab = "1-Specificity", ylab = "Sensitivity") 
## calculate auc
calc_auc(basicplot)
      PANEL group       AUC
    1     1     1 0.7718926
    2     1     2 0.9296029
    3     1     3 0.7790979
    4     1     4 0.8235286

annotate <- basicplot + 
     ggtitle("ROC plots for 4 outcomes") +
     theme(plot.title = element_text(hjust = 0.5)) +
     annotate("text", x = .75, y = .25, label = paste("AUC =", round(calc_auc(basicplot)["AUC"], 3)))

     annotate

Plot saya terlihat seperti ini: masukkan deskripsi gambar di sini r ggplot2 label roc

4
mandy 14 Desember 2017, 21:45

1 menjawab

Jawaban Terbaik

Anda dapat mengekstrak sel tertentu di calc_auc(basicplot), menggunakan round(calc_auc(basicplot)[["AUC"]][1/2/3/4], dan membungkusnya dalam kalimat baru. Anda juga mungkin perlu \n untuk memecahkan kalimat panjang pada beberapa baris baru.

0
karel 4 Maret 2019, 00:57