add xlab/ylab

R/rocplot.R

@@ -47,7 +47,7 @@ getLabelExpected <- function(comparison_df, coeff_threshold, alt_hypothesis) {
 #' @param ... additional params to pass ggplot2::aes
 #' @return A ggplot object representing the ROC curve plot.
 #' @importFrom plotROC geom_roc
-#' @importFrom ggplot2 ggtitle theme_bw aes sym
+#' @importFrom ggplot2 ggtitle theme_bw aes sym xlab ylab
 #'
 #' @examples
 #' comparison_data <- data.frame(
@@ -75,7 +75,9 @@ roc_plot <- function(comparison_df, ...) {
   p <- ggplot2::ggplot(comparison_df, ggplot2::aes(d = !isDE , m = p.adj, !!!args )) +
         plotROC::geom_roc(n.cuts = 0, labels = FALSE) + 
         ggplot2::theme_bw() +
-        ggplot2::ggtitle("ROC curve") 
+        ggplot2::ggtitle("ROC curve") +
+        ggplot2::xlab("False positive rate") +
+        ggplot2::ylab("True positive rate")
   
   ## -- annotation AUC
   df_AUC <- subset(plotROC::calc_auc(p) , select = -c(PANEL, group))