R/theme_sri.R

In kmwest/SRI: Social Research Institute R Package

#' SRI theme for plots
#'
#' This is a modification of theme_minimal
#' @param font Helvetica
#' @keywords SRI theme
#' @export
#' @examples
#' Theme_sri()

Theme_SRI <- function(base_size=12, font="Helvetica"){
  titletxt <- ggplot2::element_text(size=base_size-2, colour = "#404040", hjust = 0.5)
  subtitletxt <- ggplot2::element_text(size=base_size-3, colour = "#404040", hjust = 0.5)
  txt2 <- ggplot2::element_text(size=base_size-3, colour = "#404040")

  ggplot2::theme_minimal(base_size = base_size, base_family = font)+

    #specify font sizes
    ggplot2::theme(
      text = txt2,
      plot.title=titletxt,
      plot.subtitle=subtitletxt)
}

#' SRI theme for plots
#'
#' This is a modification of theme_minimal
#' @param font Helvetica
#' @keywords SRI theme
#' @export
#' @examples
#' theme_sri()

theme_sri <- Theme_SRI