R/utils_colors.R

Defines functions .get_colors

# get color palette
.get_colors <- function(geom.colors, collen, continuous) {
  # check for corrct color argument
  if (!is.null(geom.colors)) {
    geom.colors <- tolower(geom.colors)
    # check for color brewer palette
    if (geom.colors[1] %in% names(ggeffects_colors)) {
      geom.colors <- ggeffects_palette(palette = geom.colors[1], n = collen)
    } else if (geom.colors[1] == "bw") {
      geom.colors <- rep("black", times = collen)
    } else if (geom.colors[1] == "gs") {
      geom.colors <- ggeffects_palette(palette = "greyscale", n = collen)
      # do we have correct amount of colours?
    } else if (length(geom.colors) > 1 && continuous) {
      # preserve colors as is for latter use in gradient scale
      return(geom.colors)
    } else if (length(geom.colors) > collen) {
      # shorten palette
      geom.colors <- geom.colors[1:collen]
    } else if (length(geom.colors) < collen) {
      # warn user abount wrong color palette
      insight::format_alert(sprintf("Insufficient length of color palette provided. %i color values needed.", collen))
      # set default palette
      geom.colors <- ggeffects_palette(palette = "set1", n = collen)
    }
  } else {
    if (collen > 1) {
      geom.colors <- ggeffects_palette(palette = "set1", n = collen)
    } else {
      geom.colors <- "black"
    }
  }

  geom.colors
}
strengejacke/ggeffects documentation built on Dec. 24, 2024, 3:27 a.m.