Calculate and plot Area under Curve (AUC) of Receiver Operating Characteristic (ROC) with ggplot / normal plot.
roc <- AUC::roc(scores, factor(labels))
aucVal <- round(auc(roc), 4)
AUC:::plot.AUC(roc)
rocData <- data.table(fpr=roc$fpr, tpr=roc$tpr)
ggplot(rocData, aes(x=fpr, y=tpr)) +
geom_line()