R/remove_legend.R

In UrbanInstitute/urbnthemes: Additional theme and utilities for "ggplot2" in the Urban Institute style

#' remove_legend
#'
#' Remove just the legend from a ggplot2 object.
#'
#' @param ggplot_object a ggplot
#'
#' @return a ggplot without a legend
#'
#' @export
#'
remove_legend <- function(ggplot_object) {

  ggplot_object +
    ggplot2::guides(
      color = FALSE,
      fill = FALSE,
      alpha = FALSE,
      size = FALSE,
      shape = FALSE,
      linetype = FALSE
    )

}