R/theme_light_modified.R

In PMassicotte/ggpmthemes: Personal Themes for ggplot2

#' A ggplot2 theme light modified.
#'
#' @param base_size Font size. Default at 12 pts.
#' @param base_family Font family. Default is "Exo"
#' @param base_line_size Base line size
#' @param base_rect_size Base rect size
#' @import ggplot2
#'
#' @inheritParams ggplot2::theme_light
#'
#' @export
#'
theme_light_modified <-
  function(base_size = 12,
             base_family,
             base_line_size = base_size / 22,
             base_rect_size = base_size / 22) {
    half_line <- base_size / 2

    update_geom_defaults("text", list(family = base_family))

    tm <-
      theme_light(
        base_size = base_size,
        base_family = base_family,
        base_line_size = base_line_size,
        base_rect_size = base_rect_size
      ) +
      theme(
        strip.text = element_text(colour = "#414141"),
        strip.background = element_rect(fill = "#CFCFCF"),
        plot.title = element_text(size = base_size * 1.8, hjust = 0, vjust = 1, face = "bold", margin = margin(b = half_line * 1.2)),
        plot.subtitle = element_text(size = base_size, hjust = 0, vjust = 1, margin = margin(b = half_line * 0.9)),
        plot.caption = element_text(size = rel(0.9), hjust = 1, vjust = 1, margin = margin(t = half_line * 0.9))
      )
  }