R/theme_rjbg_white.R

In rjbgoudie/utils.rjbg: Miscellaneous utility functions

#' @export
theme_rjbg_white <- function(base_size = 12, base_family = "", grid = T) {
  # Starts with theme_grey and then modify some parts
  t <- theme_grey(base_size = base_size, base_family = base_family) %+replace%
  theme(
    axis.ticks        = element_line(colour = "grey70",
                                     size = 0.25),
    legend.key        = element_rect(fill = "white",
                                     colour = "grey70",
                                     size = 0.25),
    panel.background  = element_rect(fill = "white", colour = NA),
    panel.border      = element_rect(fill = NA,
                                     colour = "grey70",
                                     size = 0.4),
    strip.background  = element_rect(fill = "white",
                                     size = NA),
    strip.text.x      = element_text(colour = "black"),
    strip.text.y      = element_text(colour = "black",
                                     angle = -90),
    axis.title         = element_text(size = rel(0.8)),
    axis.text         = element_text(colour = "gray60", size = rel(0.8)),
    legend.key = element_blank(),
    legend.background = element_blank()
    )
  if (grid){
    t %+replace%
      theme(panel.grid.major  = element_line(colour = "grey75",
                                             size = 0.125),
            panel.grid.minor  = element_line(colour = "grey80",
                                             size = 0.075))
  } else {
    t %+replace%
      theme(panel.grid.major  = element_blank(),
            panel.grid.minor = element_blank())
  }
}

#' @export
colours_rjbg <- c("#E69F00", "#56B4E9", "#009E73", "#F0E442", "#0072B2",
                  "#D55E00", "#CC79A7")[c(1, 5, 3, 7, 2, 4, 6)]

.onLoad <- function(libname = find.package("utils.rjbg"),
                    pkgname = "utils.rjbg"){
  if (require(ggplot2)){
    update_geom_defaults("line", list(size = 0.2))
    update_geom_defaults("step", list(size = 0.2))
    update_geom_defaults("point", list(size = 1.5))
  }
}