khroma (version 1.14.0)

scale_okabeito_discrete: Okabe and Ito's Discrete Color Scheme for ggplot2 and ggraph

Description

Provides the qualitative color scale from Okabe and Ito 2008.

Usage

scale_colour_okabeito(
  ...,
  reverse = FALSE,
  black_position = c("first", "last"),
  aesthetics = "colour"
)
scale_color_okabeito(
  ...,
  reverse = FALSE,
  black_position = c("first", "last"),
  aesthetics = "colour"
)
scale_fill_okabeito(
  ...,
  reverse = FALSE,
  black_position = c("first", "last"),
  aesthetics = "fill"
)
scale_edge_colour_okabeito(
  ...,
  reverse = FALSE,
  black_position = c("first", "last"),
  aesthetics = "edge_colour"
)
scale_edge_color_okabeito(
  ...,
  reverse = FALSE,
  black_position = c("first", "last"),
  aesthetics = "edge_colour"
)
scale_edge_fill_okabeito(
  ...,
  reverse = FALSE,
  black_position = c("first", "last"),
  aesthetics = "edge_fill"
)

Value

A discrete scale.

Arguments

...

Arguments passed to ggplot2::discrete_scale().

reverse

A logical scalar. Should the resulting vector of colors be reversed?

black_position

A character string giving the position of the black color. It must be one of "first" or "last". Any unambiguous substring can be given.

aesthetics

A character string or vector of character strings listing the name(s) of the aesthetic(s) that this scale works with.

Author

N. Frerebeau

Details

This qualitative color scheme is used as given (no interpolation): colors are picked up to the maximum number of supported values (8).

References

Okabe, M. & Ito, K. (2008). Color Universal Design (CUD): How to Make Figures and Presentations That Are Friendly to Colorblind People. URL: https://jfly.uni-koeln.de/color/.

See Also

Other qualitative color schemes: scale_colour_land(), scale_colour_soil(), scale_colour_stratigraphy(), scale_tol_bright, scale_tol_dark, scale_tol_discreterainbow, scale_tol_highcontrast, scale_tol_light, scale_tol_mediumcontrast, scale_tol_muted, scale_tol_pale, scale_tol_vibrant

Examples

library(ggplot2)

ggplot2::ggplot(mpg, ggplot2::aes(displ, hwy, colour = class)) +
  ggplot2::geom_point() +
  scale_colour_okabeito()

ggplot2::ggplot(mpg, ggplot2::aes(displ, hwy, colour = class)) +
  ggplot2::geom_point() +
  scale_colour_okabeito(black_position = "last")