R/themes.R

In junkka/r-custom: R Custom

#' ggplot2 map theme
#'
#' Mimimal theme for ggplot2 maps, wihtout legend
#'
#' @export
#' 

cust_mtheme <- function() {
  res <- theme(
    axis.line           = element_blank(),
    axis.text           = element_blank(),
    panel.background    = element_rect(fill = 'white'),
    panel.grid.major  = element_blank(), 
    panel.grid.minor  = element_blank(),
    legend.key          = element_rect(fill = NA),
    legend.position     = 'none',
    axis.ticks          = element_blank(),
    axis.title          = element_blank()
  )
  res
}

#' ggplot2 minimal theme
#'
#' Mimimal theme for ggplot2
#'
#' @export
#' 

cust_theme <- function() {
  res <- theme(
    text                = element_text(size = 12,family = 'serif', color = "#1E1E1E"),
    axis.line           = element_line(colour = '#1E1E1E'),
    axis.text           = element_text(color = '#1E1E1E'),
    panel.background    = element_rect(fill = 'white'),
    panel.grid.major.y  = element_blank(), 
    panel.grid.major.x  = element_blank(), 
    panel.grid.minor.y  = element_blank(),
    panel.grid.minor.x  = element_blank(),
    strip.text.y        = element_text(angle = 0, hjust = 0.1),
    strip.background    = element_blank(),
    legend.key          = element_rect(fill = NA),
    legend.position     = 'none'
  )
  res
}

#' ggplot2 thesis theme
#' 
#' Custom theme
#' 
#' @export 


theme_thesis <- function(){
  theme(
    panel.background = element_rect(fill = NA),
    panel.grid.major = element_line(colour = "grey80"),
    legend.background = element_rect(fill = "white", colour = "grey60"),
    legend.key = element_blank(),
    axis.ticks = element_blank(),
    strip.background = element_rect(fill = NA)
  )
}