R/msf_theme.R

In JayAchar/hisreportr: hisreportr: Automating MSF OCA EMR reporting

#' MSF-branded plot theme
#'
#' ggplot2 theme stylised to reflect MSF colors and styles
#' 
#' @importFrom ggplot2 theme_minimal element_blank element_text theme margin
#' @export
#' @return ggplot2 theme
#' 


msf_theme <- function() {
  ggplot2::theme_minimal() +
    ggplot2::theme(
      ## Axex
      # remove axis ticks
      axis.ticks.y = ggplot2::element_blank(),
      axis.ticks.x = ggplot2::element_blank(),
      axis.title = element_text(size = 14, 
                                hjust =1),
      axis.title.x = element_text(margin = ggplot2::margin(t = 8)),
      axis.title.y = element_text(margin = ggplot2::margin(r = 8)),
      # Titles
      plot.title = element_text(size = 17),
      # italic caption
      plot.caption = element_text(face = "italic",
                                  size = 7),)
}