R/theme.R

In sethbilliau/SethsTheme: What the Package Does (One Line, Title Case)

#' Seth's Theme
#'
#' This function loads Seth's ggplot2 theme
#'
#' @return A theme for ggplot2 graphics
#' @export

theme_seth <- function () { 
  ggplot2::theme_classic(base_size=12, base_family="Helvetica") %+replace%
    ggplot2::theme(
      panel.background  = element_rect(fill="#FFFFFF", colour=NA),
      plot.background = element_rect(fill="#FFFFFF", colour="#d3d3d3"),
      legend.background = element_rect(fill="transparent", colour=NA),
      legend.key = element_rect(fill="transparent", colour=NA),
      plot.title = element_text(size=24,  family="Helvetica", face = "bold", margin = margin(t = 0, r = 0, b = 10, l = 0)),
      plot.subtitle = element_text(size=12,  family="Helvetica", color="#717171", face = "italic", margin = margin(t = 0, r = 0, b = 10, l = 0)),
      plot.caption = element_text(size=8,  family="Helvetica", hjust = 1),
      axis.text.x =element_text(size=10,  family="Helvetica"),
      axis.title.x =element_text(size=14, family="Helvetica", margin = margin(t = 10, r = 0, b = 0, l = 0), face = "bold"),
      axis.title.y = element_text(margin = margin(t = 0, r = 10, b = 0, l = 0), size=14, family="Helvetica", angle=90, face ='bold'),
      legend.title=element_text(size=10, family="Helvetica"), 
      legend.text=element_text(size=10, family="Helvetica"),
      legend.position = "bottom",
      axis.ticks = element_blank()
    )
}