R/theme_42_bright.R

In ideas42/tools42: Tools for Analysis at ideas42

#Define theme_42_bright() function

#' Apply the ideas42 bright theme to your graphs
#'
#' @return
#' @export
#'
#' @examples
#'


theme_42_bright <- function(){
  font <- "Fira Sans"   #assign font family up front

  ggplot2::theme(    #replace elements we want to change
    #plot.background = ggplot2::element_blank(), complete = TRUE,

    legend.background = ggplot2::element_blank(),
    legend.key = ggplot2::element_blank(),

    panel.background = ggplot2::element_blank(),
    panel.border = ggplot2::element_blank(),

    strip.background = ggplot2::element_blank(),
    #grid elements
    #panel.grid=element_line(color=mycol, size=0.3),
    panel.grid.major=element_line(color="#e9ecec", size=0.3),
    panel.grid.minor = ggplot2::element_blank(),    #strip minor gridlines
    axis.ticks = ggplot2::element_blank(),          #strip axis ticks

    #since theme_minimal() already strips axis lines,
    #we don't need to do that again

    #text elements
    plot.title = ggplot2::element_text(  #title
      family = font,            #set font family
      size = 20,                #set font size
      face = 'bold',            #bold typeface
      hjust = 0,                #left align
      vjust = 1.5,               #raise slightly
      color = '#ee4728',
      margin = ggplot2::margin(b = 8)),

    plot.subtitle = ggplot2::element_text(#subtitle
      family = font,            #font family
      hjust = 0,
      vjust = 1,
      size = 14,               #font size
      color = '#373D3D',
      margin = ggplot2::margin(b = 18)),


    plot.caption = ggplot2::element_text(#caption
      family = font,            #font family
      size = 9,                 #font size
      hjust = 1),               #right align

    axis.title = ggplot2::element_text(  #axis titles
      family = font,            #font family
      size = 10,               #font size
      hjust = 1),

    # axis.title.y = ggplot2::element_text(
    #  margin = ggplot2::margin(b=2, r=2,t=2,l=2, unit='pt'),
    #angle = 0),

    axis.text = ggplot2::element_text(   #axis text
      family = font,            #axis family
      size = 9,                #font size
      margin = ggplot2::margin(t = 0, r = 0)),

    axis.text.x = ggplot2::element_text( #margin for axis text
      margin=ggplot2::margin(5, b = 10)),
    axis.text.y = ggplot2::element_text( #margin for axis text
      margin=ggplot2::margin(l = 10)),

    #since the legend often requires manual tweaking
    #based on plot content, don't define it here

    plot.margin = ggplot2::margin(30, 30, 30, 30),
    plot.title.position = "plot",
    plot.background = ggplot2::element_rect(fill = "#fefbfa"),
    #panel.background = element_rect(fill = NA, color = NA)

  )
}