R/theme_mh_minimal.r

In kraaijenbrink/pkrf: Philip Kraaijenbrink's R functions

#' Custom ggplot2 theme PK style
#'
#' @import ggplot2
#' @param base_size base point size
#' @param base_family base font family (best to use \code{showtext} package and Segoe UI fonts)
#' @param base_line_size base line size
#' @param base_rect_size base rect size
#' @param alwd line width used for axes, ticks and panel border
#' @param grid draw no (\code{0}), only major ((\code{1})) or major and minor grid lines (\code{2})
#' @param yrot rotate y axis tick labelsl 90 degrees (boolean)
#' @param strip Use dark blue facet strip with white text ("dark") or white strip with blue text ("light")
#' @return \code{ggplot2} theme opbject
#' @export
theme_mh_minimal <- function(base_size = 10,
                    base_family = "",
                    base_line_size = base_size / 22,
                    base_rect_size = base_size / 22,
                    alwd = 0.75,
                    grid = F,
                    yrot = F,
                    strip = 'dark'){
  dcol <- '#232365'
  bcol <- '#deebf6'
  outtheme <- theme_bw(base_size = base_size, base_family = base_family,
                       base_line_size = base_line_size) %+replace%
    theme(

      # main labels
      plot.title           = element_text(color= dcol, family=base_family, face = "bold", hjust = 0, margin=margin(0,0,4,0), size=rel(1.1)),
      plot.subtitle        = element_text(color= dcol, family=base_family, face = "plain", hjust=0, size=rel(1.0), margin=margin(0,0,6,0)),
      plot.caption         = element_text(color= dcol, face = "plain", hjust=0, size=rel(0.7), margin=margin(t=2)),
    
      # plot panel
      panel.background     = element_rect(fill=bcol, color=NA),
      panel.border         = element_rect(fill=NA, color=NA, size = rel(alwd)),
      panel.grid.major     = element_blank(),   
      panel.grid.minor     = element_blank(), 

      # axis stuff
      axis.title           = element_text(color= dcol, size = rel(1.0)),
      axis.title.x         = element_text(color= dcol, margin=margin(9,0,0,0)),
      axis.title.y         = element_text(color= dcol, angle=90, margin=margin(0,9,0,0)),
      axis.text            = element_text(color= dcol, size = rel(0.8)),
      axis.text.x          = element_text(color= dcol, margin=margin(4,0,0,0)),
      axis.text.y          = element_text(color= dcol, margin=margin(0,4,0,0), angle=0),
      axis.ticks           = element_line(color= dcol, lineend='round', size = rel(alwd)),
      axis.ticks.length    = unit(.15, "cm"),

      # legend
      legend.justification = 'top',
      legend.margin        = margin(t=0,b=4),
      legend.title         = element_text(color= dcol, size=rel(0.8), face='bold', hjust=0),
      legend.text          = element_text(color= dcol, size=rel(0.8) , hjust=0),
      legend.key.size      = unit(base_size*1.2, "pt"),
      
      # facet strips
      strip.background=element_rect(fill=pkPal()[1],colour=NA),
      strip.text=element_text(colour='white', face='bold', hjust=0, vjust=1, margin=margin(4,4,4,4), size=rel(0.8))
    )

   # conditional changes
  if (grid==1){
    outtheme <- outtheme %+replace% theme(
      panel.grid.major     = element_line(linetype = "solid", size=rel(alwd), colour="white")
    )
  }
  if (grid==2){
    outtheme <- outtheme %+replace% theme(
      panel.grid.major     = element_line(linetype = "solid", size=rel(alwd), colour="white"),
      panel.grid.minor     = element_line(linetype = "solid", size=rel(alwd*0.65), colour="white")
    )
  }
  if (yrot){
    outtheme <- outtheme %+replace% theme(
      axis.text.y          = element_text(margin=margin(0,4,0,0), angle=90) 
    )
  }
  if (strip=='light'){
    outtheme <- outtheme %+replace% theme(
      strip.background=element_rect(fill='#FFFFFF00', colour=NA),
      strip.text=element_text(colour=pkPal()[1], face='bold', hjust=0, vjust=1, margin=margin(4,4,4,0), size=rel(0.8)) 
    )
  }
  
  return(outtheme)
}