R/theme_crss.R

In rabutler-usbr/crssplot: Create Standard CRSS Plots

#' Customized ggplot2 themes
#' 
#' `theme_crss()` and `theme_cloud()` are custom themes used in typical CRSS 
#' related plots. 
#' @export
#' @rdname theme_crss
theme_crss <- function() {
  theme_gray() %+replace%
    theme(
      panel.grid.minor = element_line(color = "white", size = .4),
      panel.grid.major = element_line(color = "white", size = .6),
      legend.key.height = unit(2, "line"),
      legend.key.width = grid::unit(2, "line")
    )
}

#' @export
#' @rdname theme_crss
theme_cloud <- function() {
  
  LegendText <- 8
  LegendLabText <- 9.5
  TitleSize <- 13
  AxisLab <- 9
  GridMaj <- .25
  GridMin <- .25

  theme_light() %+replace%
    theme(
      legend.text = element_text(size = LegendText),
      legend.title = element_text(
        size = LegendLabText, 
        face = "bold", 
        hjust = 0
      ),
      legend.box.margin = margin(0, 0, 0, 0),
      legend.key = element_blank(),
      legend.key.size = unit(1.75, "lines"),
      plot.title = element_text(size = TitleSize, hjust = 0),
      axis.text.y = element_text(size = AxisLab),
      axis.title = element_text(size = 11, face = "plain", color = "grey30"),
      panel.grid.minor = element_line(size = GridMin),
      panel.grid.major = element_line(size = GridMaj)
    )
}