Simulate Color-Blindness

Simulate Color-Blindness

Usage

change(x, mode)

Arguments

x

A palette function that when called with a single integer argument (the number of levels) returns a vector of colors (see color()).

mode

A character string giving the colorblind vision to be used. It must be one of "deuteranopia", "protanopia", "tritanopia" or "achromatopsia". Any unambiguous substring can be given.

Value

A palette function that returns a vector of anomalized colors. All the attributes of the initial palette function are inherited, with a supplementary attribute "mode" giving the corresponding color-blind vision.

References

Brettel, H., Viénot, F. and Mollon, J. D. (1997). Computerized Simulation of Color Appearance for Dichromats. Journal of the Optical Society of America A, 14(10), p. 2647-2655. doi:10.1364/JOSAA.14.002647 .

Tol, P. (2018). Colour Schemes. SRON. Technical Note No. SRON/EPS/TN/09-002, issue 3.1. URL: https://personal.sron.nl/~pault/data/colourschemes.pdf

Viénot, F., Brettel, H. and Mollon, J. D. (1999). Digital Video Colourmaps for Checking the Legibility of Displays by Dichromats. Color Research & Application, 24(4), p. 243-52. doi:10.1002/(SICI)1520-6378(199908)24:4<243::AID-COL5>3.0.CO;2-3 .

See also

Other diagnostic tools: compare(), plot.color_scheme(), plot_map(), plot_scheme(), plot_scheme_colourblind(), plot_tiles()

Author

N. Frerebeau

Examples

# Trichromat
pal <- colour("bright")
plot_scheme(pal(7))


# Deuteranopia
deu <- change(pal, mode = "deuteranopia")
plot_scheme(deu(7))


# Protanopia
pro <- change(pal, mode = "protanopia")
plot_scheme(pro(7))


# Tritanopia
tri <- change(pal, mode = "tritanopia")
plot_scheme(tri(7))


# Achromatopsia
ach <- change(pal, mode = "achromatopsia")
plot_scheme(ach(7))


## Plot simulated color blindness
plot_scheme_colorblind(pal(7))