R/palettes.R

In road2stat/hdnom: Benchmarking and Visualization Toolkit for Penalized Cox Models

#' Color Palette for Journal of Clinical Oncology (JCO)
#'
#' A 10-color discrete color palette based on the colors
#' used in figures in \emph{Journal of Clinical Oncology}.
#'
#' @keywords internal
palette_jco <- function() {
  c(
    "#0073C2", "#EFC000", "#868686", "#CD534C", "#7AA6DC",
    "#003C67", "#8F7700", "#3B3B3B", "#A73030", "#4A6990"
  )
}

#' Color Palette for Lancet Journals
#'
#' A 9-color discrete color palette based on the colors
#' used in figures in \emph{Lancet Oncology}.
#'
#' @keywords internal
palette_lancet <- function() {
  c(
    "#00468B", "#ED0000", "#42B540", "#0099B4", "#925E9F",
    "#FDAF91", "#AD002A", "#ADB6B6", "#1B1919"
  )
}

#' Color Palette for NPG Journals
#'
#' A 10-color discrete color palette based on the colors
#' used in figures in NPG journals such as \emph{Nature Reviews Cancer}.
#'
#' @keywords internal
palette_npg <- function() {
  c(
    "#E64B35", "#4DBBD5", "#00A087", "#3C5488", "#F39B7F",
    "#8491B4", "#91D1C2", "#DC0000", "#7E6148", "#B09C85"
  )
}

#' Color Palette for AAAS Journals
#'
#' A 10-color discrete color palette based on the colors
#' used in figures in AAAS journals such as \emph{Science}.
#'
#' @keywords internal
palette_aaas <- function() {
  c(
    "#3B4992", "#EE0000", "#008B45", "#631879", "#5F559B",
    "#BB0021", "#008280", "#A20056", "#808180", "#1B1919"
  )
}