R/theme_sleek.R

In ben-williams/funcr: Helper functions for ggplot figure styles and axis labels

#' Set your figure theme consistently
#'
#' @param base_size
#' @param base_family
#'
#' @return
#' @export theme_sleek
#'
#' @examples
#' theme_sleek(base_size = 11, base_family = "Times")
#'
#'Other fonts are available, though sans font is
#'the easiest to implement using the following.
#'
#'theme_sleek(base_family = "")
#'
#'Updating font size is accomplished by changing the base_size.
#'
#'theme_sleek(base_size = 20, base_family = "")
#'
theme_sleek <- function(base_size = 11, base_family = "Times") {

  windowsFonts(Times=windowsFont("TT Times New Roman"))

  half_line <- base_size/2

  theme_light(base_size = base_size, base_family = base_family) +
    theme(
      panel.grid.major = element_blank(),
      panel.grid.minor = element_blank(),
      axis.ticks.length = unit(half_line / 2.2, "pt"),
      strip.background = element_rect(fill = NA, colour = NA),
      strip.text.x = element_text(colour = "black"),
      strip.text.y = element_text(colour = "black"),
      panel.border = element_rect(fill = NA),
      legend.key.size = unit(0.9, "lines"),
      legend.key = element_rect(colour = NA, fill = NA),
      legend.background = element_rect(colour = NA, fill = NA)
    )
}