R/theme_lobview.R

In NZRLIC/RLPlots: Graphical outputs for New Zealand rock lobster stock assessment

#' themes for ggplot2 graphics
#'
#' @export
#' 
theme_lobview <- function (PlotOptions, base_size = 12, base_family = "") 
{
    if (PlotOptions$theme == "presentation")
    {
        theme_grey(base_size = base_size, base_family = base_family) %+replace% 
        theme(axis.text = element_text(size = rel(1.0)),
              axis.title=element_text(size=rel(1.2)),
              axis.ticks = element_line(colour = "black"), 
              strip.text = element_text(size = rel(1.2)),
              legend.key = element_rect(colour = "grey80"),
              panel.background = element_rect(fill = "white",colour = NA), 
              panel.border = element_rect(fill = NA, colour = "grey50"), 
              panel.grid.major = element_line(colour = "grey80", size = 0.2), 
              panel.grid.minor = element_line(colour = "grey88", size = 0.5), 
              strip.background = element_rect(fill = "grey80", colour = "grey50", size = 0.2)
              )
    } else if (PlotOptions$theme == "document") {
        theme_grey(base_size = base_size, base_family = base_family) %+replace% 
        theme(axis.text = element_text(size = rel(1.0)),
              axis.title=element_text(size=rel(1.2)),
              axis.ticks = element_line(colour = "black"), 
              strip.text = element_text(size = rel(1.2)),
              legend.key = element_rect(colour = "grey80"),
              panel.background = element_rect(fill = "white",colour = NA), 
              panel.border = element_rect(fill = NA, colour = "grey50"), 
              panel.grid.major = element_line(colour = "grey80", size = 0.2), 
              panel.grid.minor = element_line(colour = "grey88", size = 0.5), 
              strip.background = element_rect(fill = "grey80", colour = "grey50", size = 0.2)
              )    
    } else {
        theme_grey(base_size = base_size, base_family = base_family)
    }
}