art_pals {artpack}

Custom-built artpack Color Palettes

Description

The artpack palette picker. The art_pals function consists of 18 palettes: "arctic", "beach", "bw", "brood", "cosmos", "explorer", "gemstones", "grays", "icecream", "imagination", "majestic", "nature", "neon", "ocean", "plants", "rainbow", "sunnyside", "super"

Usage

art_pals(pal = NULL, n = 5, direction = "regular")

Arguments

pal

A character string of the desired artpack palette.

The 18 artpack palettes include:

• "arctic" - Icy blue and white colors

• "beach" - Sand-colored tans and ocean-colored blue colors

• "bw" - A gradient of black to white colors

• "brood" - A gradient of different shades of dark gray and black colors

• "cosmos" - Nebula-inspired blue, purple, and pink colors

• "explorer" - Pokemon-type inspired colors

• "gemstones" - Birthstone/Mineral-inspired colors

• "grays" - A gradient of dark, medium, and light gray colors

• "icecream" - A light pastel palette of cream, blue, brown, and pink colors

• "imagination" - 90's school supply-inspired colors

• "majestic" - Shades of majestic purple colors

• "nature" - A mix of tan, brown, green, and red colors

• "neon" - A neon spectrum of rainbow colors

• "ocean" - A gradient of dark to light blue colors

• "plants" - A gradient of dark to light green colors

• "rainbow" - A vibrant mix of rainbow colors

• "sunnyside" - A retro-inspired mix of pink, orange, and yellow colors

• "super" - A marveling mix of heroic colors

n

The numbers of colors desired in the output.

Default is 5. n must be a positive integer with a value greater than 0

direction

The direction of the palette

Default is "regular". Only two options accepted: "regular" or "reverse"

Value

A Character Vector.

Examples

library(ggplot2)
dots <- data.frame(x = c(1:10), y = 2.5)
dots$fills <- art_pals("rainbow", 10)

dots |>
  ggplot(aes(x, y)) +
  theme_void() +
  geom_point(
    shape = 21,
    fill = dots$fills,
    color = "#000000",
    size = 10,
    stroke = 2
  )


dots_rev <- data.frame(x = c(1:10), y = 2.5)
dots_rev$fills <- art_pals("rainbow", 10, "reverse")

dots_rev |>
  ggplot(aes(x, y)) +
  theme_void() +
  geom_point(
    shape = 21,
    fill = dots_rev$fills,
    color = "#000000",
    size = 10,
    stroke = 2
  )