R/ggplot2_theme.R

In stats4good/s4ggthemes: ggplot2 and highcharter themes for the S4G group

#' Veraz theme for ggplot2
#'
#' @param ... Named argument to modify the theme
#'
#' @export
theme_veraz <- function(...) {
  ggplot2::theme_bw(base_family = 'Ubuntu Mono') +
    ggplot2::theme(plot.title = element_text(face = 'bold', size = 16, colour = '#357935'),
                   panel.grid.major = element_line(linetype = 'longdash'),
                   panel.grid.minor = element_line(linetype = 'longdash'),
                   strip.background = element_rect(fill = '#357935',
                                                   colour = '#357935'),
                   strip.text = element_text(color = '#ffffff'), ...)
}

#' Varaz color palettes
#'
#' @param palette the palette to be used, options are \code{c('main', 'secondary', 'grey')}
#' @param reverse boolean, represents the order of the palette
#' @param ... Named argument to modify the palette
#'
#' @export
veraz_pal <- function(palette = "main", reverse = FALSE, ...) {
  pal <- s4ggthemes::colors[[palette]]

  if (reverse) pal <- rev(pal)

  grDevices::colorRampPalette(pal, ...)
}


#' Veraz scale colors for ggplot2
#'
#' @param palette the palette to be used, options are \code{c('main', 'secondary', 'grey')}
#' @param discrete boolean, the scale is discrete? \code{TRUE} if it is.
#' @param reverse boolean, represents the order of the palette
#' @param ... Named argument to modify the \code{scale_color_} fucntion
#'
#' @export
scale_color_veraz <- function(palette = "main", discrete = TRUE, reverse = FALSE, ...) {
  pal <- veraz_pal(palette = palette, reverse = reverse)

  if (discrete) {
    ggplot2::discrete_scale("colour", paste0("veraz_", palette), palette = pal, ...)
  } else {
    ggplot2::scale_color_gradientn(colours = pal(256), ...)
  }
}

#' Veraz scale colors for ggplot2
#'
#' @param palette the palette to be used, options are \code{c('main', 'secondary', 'grey')}
#' @param discrete boolean, the scale is discrete? \code{TRUE} if it is.
#' @param reverse boolean, represents the order of the palette
#' @param ... Named argument to modify the \code{scale_color_} fucntion
#'
#' @export
scale_fill_veraz <- function(palette = "main", discrete = TRUE, reverse = FALSE, ...) {
  pal <- veraz_pal(palette = palette, reverse = reverse)

  if (discrete) {
    ggplot2::discrete_scale("fill", paste0("veraz_", palette), palette = pal, ...)
  } else {
    ggplot2::scale_fill_gradientn(colours = pal(256), ...)
  }
}