R/ggtheme.R

In heavywatal/rwtl: Personal R package

#' Shortcut for ggplot theme
#'
#' @description
#' `theme_wtl()` is a slightly modified [ggplot2::theme_bw].
#' @inheritParams ggplot2::theme_bw
#' @rdname ggtheme
#' @export
theme_wtl = function(base_size = 12, base_family = "",
                     base_line_size = base_size / 22, base_rect_size = base_size / 22) {
  ggplot2::theme_bw(
    base_size = base_size,
    base_family = base_family,
    base_line_size = base_line_size,
    base_rect_size = base_rect_size
  ) +
    ggplot2::theme(
      panel.background = ggplot2::element_rect(fill = NA, color = NA),
      panel.grid.minor = ggplot2::element_blank(),
      axis.text = ggplot2::element_text(color = "grey20"),
      axis.ticks = ggplot2::element_line(color = "grey50"),
      legend.key = ggplot2::element_rect(fill = NA, color = NA)
    )
}

#' @description
#' `erase()` is a shortcut for `theme(... = element_blank())`.
#' @param ... elements to be blank
#' @param .names string vector of element names
#' @rdname ggtheme
#' @export
erase = function(..., .names = NULL) {
  quosures = rlang::quos(...)
  names = c(vapply(quosures, rlang::quo_name, ""), .names)
  elements = rlang::rep_along(names, list(ggplot2::element_blank()))
  rlang::exec(ggplot2::theme, !!!rlang::set_names(elements, names))
}

#' @description
#' `axis_line()` sets L-shaped axes.
#' @inheritParams ggplot2::element_line
#' @rdname ggtheme
#' @export
axis_line = function(colour = NULL, linewidth = NULL, linetype = NULL, lineend = NULL,
                     color = NULL, arrow = NULL, inherit.blank = FALSE) {
  el = ggplot2::element_line(
    colour = colour, linewidth = linewidth, linetype = linetype, lineend = lineend,
    color = color, arrow = arrow, inherit.blank = inherit.blank
  )
  ggplot2::theme(panel.border = ggplot2::element_blank(), axis.line = el)
}