R/customTheme.R

In wohlfeila/randompersonalthings: What the Package Does (One Line, Title Case)

#' Custom ggplot theme
#'
#' @param  none
#' @return ggplot() + theme()
#' @examples
#' customTheme()
#' @export
customTheme <- function(base_size = 14,
                       base_family = "Times New Roman",
                       base_line_size = base_size / 170,
                       base_rect_size = base_size / 170) {
  ggplot2::theme_minimal(base_size = base_size,
                         base_family = base_family,
                         base_line_size = base_line_size) +
    ggplot2::theme(
      plot.title = element_text(
        color = randompersonalthings::customPalette("blue"),
        face = "bold",
        hjust = 0),
      plot.subtitle = element_text(
        color = randompersonalthings::customPalette("blue"),
        hjust = 0),
      plot.caption = element_text(
        color = randompersonalthings::customPalette("blue"),
        face = "italic",
        hjust = 1,
        size = rel(.6)),
      axis.title = element_text(
        color = randompersonalthings::customPalette("blue"),
        size = rel(0.85)),
      axis.text = element_text(
        color = randompersonalthings::customPalette("blue"),
        size = rel(0.75)),
      panel.grid.major = element_line(
        color = randompersonalthings::customPalette("blue"),
        linetype = "dotted"),
      panel.grid.minor = element_blank(),

      legend.position = "bottom",
      legend.title = element_text(size = rel(.75)),
      legend.text = element_text(size = rel(.7)),
      legend.background = element_rect(fill = randompersonalthings::customPalette("blue"),
                                       color = randompersonalthings::customPalette("blue")),

      axis.line = element_line(color = randompersonalthings::customPalette("blue")),

      complete = TRUE

    )

}