R/rm_axes.R

In kbvernon/deseRt: desert: Tools to Stay DRY

#' Remove x/y axis labels from ggplot object
#'
#' @return a \code{ggplot} object
#' @export
#'
#' @examples
#'
rm_x <- function(){

  ggplot2::theme(axis.title.x = ggplot2::element_blank(),
                 axis.text.x = ggplot2::element_blank(),
                 axis.ticks.x = ggplot2::element_blank())

}

#' @export
rm_y <- function(){

  ggplot2::theme(axis.title.y = ggplot2::element_blank(),
                 axis.text.y = ggplot2::element_blank(),
                 axis.ticks.y = ggplot2::element_blank())

}