R/theme_data61_dark.R

In waldnerf/ggbluebadge: CSIRO plot themes and scales for ggplot2

#' \code{theme_csiro_data61} is a dark version.
#' @rdname theme_csiro
#' @export
theme_data61_dark <- function(base_family = "sans", base_size = 12, base_color = "black", line_size = 0.2,
                            baseline = FALSE, baseline.x = baseline, baseline.y = baseline, baseline.size = line_size * 3,
                            background.color = "white",
                            panel.border = TRUE, panel.border.size = line_size * 2,
                            legend.box = FALSE,
                            grid = FALSE, grid.minor = grid, grid.x = grid, grid.y = grid, grid.minor.x = grid.minor, grid.minor.y = grid.minor, grid.color = "black",
                            ticks = TRUE, ticks.x = ticks, ticks.y = ticks,
                            title.family = "sans", title.face = "bold", title.color = csiro_cols("mint"),
                            subtitle.family = base_family, subtitle.face = "italic", subtitle.color = base_color,
                            caption.family = base_family, caption.face = "italic", caption.color = "black",
                            axis.title.family = base_family, axis.title.face = "plain", axis.title.color = base_color,
                            axis.text.family = base_family, axis.text.face = "plain", axis.text.color = "black",
                            legend.title.family = axis.title.family, legend.title.face = axis.title.face, legend.title.color = axis.title.color,
                            legend.text.family = axis.text.family, legend.text.face = axis.text.face, legend.text.color = axis.text.color,
                            aspect.ratio = NULL) {

  theme_csiro(
    base_family = base_family,
    base_size = base_size,
    base_color = base_color,
    line_size = line_size,
    baseline = baseline,
    baseline.x = baseline.x,
    baseline.y = baseline.y,
    baseline.size = baseline.size,
    background.color = "white",
    panel.border = panel.border,
    panel.border.size = panel.border.size,
    legend.box = legend.box,
    grid = grid,
    grid.minor = grid.minor,
    grid.x = grid.x,
    grid.y = grid.y,
    grid.minor.x = grid.minor.x,
    grid.minor.y = grid.minor.y,
    grid.color = grid.color,
    ticks = ticks,
    ticks.x = ticks.x,
    ticks.y = ticks.y,
    title.family = title.family,
    title.face = title.face,
    title.color = title.color,
    subtitle.family = subtitle.family,
    subtitle.face = subtitle.face,
    subtitle.color = subtitle.color,
    caption.family = caption.family,
    caption.face = caption.face,
    caption.color = caption.color,
    axis.title.family = axis.title.family,
    axis.title.face = axis.title.face,
    axis.title.color = axis.title.color,
    axis.text.family = axis.text.family,
    axis.text.face = axis.text.face,
    axis.text.color = axis.text.color,
    legend.title.family = legend.title.family,
    legend.title.face = legend.title.face,
    legend.title.color = legend.title.color,
    legend.text.family = legend.text.family,
    legend.text.face = legend.text.face,
    legend.text.color = legend.text.color,
    aspect.ratio = aspect.ratio
  )
}