diff --git a/R/rocplot.R b/R/rocplot.R index 352ced38fe8e1f15727e3bb57411210cfba3edfc..1745b02c525c19df2162389dbfb41c08a1eb0788 100644 --- a/R/rocplot.R +++ b/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))