Choose other colors

change_colors() standardizes three methods for choosing color palettes for color or fill mapping, providing access to Brewer and Viridis palettes alongside custom choices.

Usage

change_colors(
  x,
  colorset = "brewer",
  palette = 2,
  kind = "qualitative",
  direction = 1,
  start = 1
)

Arguments

x

A visualization made with visualize()

colorset

Either "brewer", "viridis", "okabe-ito", "dubois", or a vector of colors.

palette

The number or name of palette (dependent on setting colorset to either "brewer" or "viridis")

kind

Used only for Brewer palettes to match numbered palette with the specific subset

direction

The direction colors should be applied to the data. Setting to anything other than 1 will reverse the order.

start

Useful for predefined colorsets from Okabe-Ito and Brewer to start from a color other than 1

Value

A ggplot2 object

See also

Other visualizing helpers: italicize_titles(), plot_bigrams(), plot_doc_word_bars(), plot_doc_word_heatmap(), plot_hapax(), plot_hir(), plot_tf_idf(), plot_topic_bars(), plot_topic_distributions(), plot_topic_wordcloud(), plot_ttr(), plot_vocabulary(), theme_tmtyro(), visualize()

Examples

if (FALSE) { # \dontrun{
dubliners <- get_gutenberg_corpus(2814) |>
  load_texts() |>
  identify_by(part) |>
  standardize_titles()

# Too many titles for categorical data.
selected_titles <- dubliners$doc_id |>
  {\(x) x[grepl("^The |^A |^An ", x)]}() |>
  unique()

dubliners2 <- dubliners |>
  dplyr::filter(doc_id %in% selected_titles)

### CATEGORICAL DATA ##

# By default, ggplot2's palette is applied
dubliners2 |>
  visualize()

# change_color() starts with Brewer's "Dark2" palette
dubliners2 |>
  visualize() |>
  change_colors()

# Other color sets and palettes can be chosen
dubliners2 |>
  visualize() |>
  change_colors(colorset = "okabe")

dubliners2 |>
  visualize() |>
  change_colors(colorset = "viridis", palette = "turbo")

dubliners2 |>
  visualize() |>
  change_colors(colorset = "brewer", palette = "Set1")

# Named cases can be highlighted
dubliners2 |>
  visualize(inorder = FALSE) |>
  change_colors(c(
    rep("darkgray", 6),
    "A Painful Case" = "blue"))

### SEQUENTIAL DATA ###

# By default, the "viridis" palette is applied
dubliners2 |>
  visualize(type = "heatmap")

# change_colors()  starts with Brewer's "BuGn" palette
dubliners2 |>
  visualize(type = "heatmap") |>
  change_colors()

# Palettes can be numbered or named
dubliners2 |>
  visualize(type = "heatmap") |>
  change_colors("viridis", palette = 6)

dubliners2 |>
  visualize(type = "heatmap") |>
  change_colors("viridis", palette = "mako")

### N-GRAMS ###
library(ggraph)

dubliners |>
  add_ngrams() |>
  visualize() |>
  change_colors(c("#444488","orange"))
} # }