# Okabe and Ito color types ====================================================
schemes_okabe2008 <- list(
# Qualitative colour types -------------------------------------------------
# The colours have to be used as given: do not interpolate
okabeito = list(
type = "qualitative",
interpolate = FALSE,
missing = NA_character_,
max = 8,
colours = c("#000000", "#E69F00", "#56B4E9", "#009E73",
"#F0E442", "#0072B2", "#D55E00", "#CC79A7"),
names = list(
en = c("black", "orange", "sky blue", "bluish green", "yellow", "blue",
"vermilion", "reddish purple"),
fr = c("noir", "orange", "bleu ciel", "bleu-vert", "jaune", "bleu",
"vermillon", "rouge pourpre")
),
scheme = NULL
),
okabeitoblack = list(
type = "qualitative",
interpolate = FALSE,
missing = NA_character_,
max = 8,
colours = c("#E69F00", "#56B4E9", "#009E73", "#F0E442",
"#0072B2", "#D55E00", "#CC79A7", "#000000"),
names = list(
en = c("orange", "sky blue", "bluish green", "yellow", "blue",
"vermilion", "reddish purple", "black"),
fr = c("orange", "bleu ciel", "bleu-vert", "jaune", "bleu",
"vermillon", "rouge pourpre", "noir")
),
scheme = NULL
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.