R/theme_ksnet.R

In octmedina/ksnet: Herramientas para el día a día en KSNET

#Define theme_ksnet() function

#' Apply the ksnet theme to your graphs
#'
#' @return
#' theme gg object
#' @export
#'


theme_ksnet <- function(){
  font <- "Public 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.major = ggplot2::element_line(color = "#cccccc",
                                               size = 0.2),    #strip major gridlines
      panel.grid.minor = ggplot2::element_line(color = "#cccccc",
                                                             size = 0.15),    #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 = 14,                #set font size
        face = 'bold',            #bold typeface
        hjust = 0.5,               # centered align
        vjust = 0.5,               #raise slightly
        margin = ggplot2::margin(b = 8)),

      plot.subtitle = ggplot2::element_text(#subtitle
        #family = font,            #font family
        hjust = 0.5,               # centered align
        vjust = 0.5,
        size = 14,               #font size
        margin = ggplot2::margin(b = 18)),

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

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

     # 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(1, 1, 1, 1),
    plot.title.position = "plot"

    )
}