simulate_cvd | R Documentation |
Transformation of R colors by simulating color vision deficiencies, based on a CVD transform matrix.
simulate_cvd(col, cvd_transform, linear = TRUE) deutan(col, severity = 1, linear = TRUE) protan(col, severity = 1, linear = TRUE) tritan(col, severity = 1, linear = TRUE) interpolate_cvd_transform(cvd, severity = 1)
col |
vector of R colors. Can be any of the three kinds of R colors,
i.e., either a color name (an element of |
cvd_transform |
numeric 3x3 matrix, specifying the color vision deficiency transform matrix. |
linear |
logical. Should the color vision deficiency transformation be applied to the
linearized RGB coordinates (default)? If |
severity |
numeric. Severity of the color vision defect, a number between 0 and 1. |
cvd |
list of cvd transformation matrices. See |
Using the physiologically-based model for simulating color vision deficiency (CVD)
of Machado et al. (2009), different kinds of limitations can be
emulated: deuteranope (green cone cells defective), protanope (red cone cells defective),
and tritanope (blue cone cells defective).
The workhorse function to do so is simulate_cvd
which can take any vector
of valid R colors and transform them according to a certain CVD transformation
matrix (see cvd
) and transformation equation.
The functions deutan
, protan
, and tritan
are the high-level functions for
simulating the corresponding kind of colorblindness with a given severity.
Internally, they all call simulate_cvd
along with a (possibly interpolated)
version of the matrices from cvd
. Matrix interpolation can be carried out with
the function interpolate_cvd_transform
(see examples).
If input col
is a matrix with three rows named R
, G
, and
B
(top down) they are interpreted as Red-Green-Blue values within the
range [0-255]
. Then the CVD transformation is applied directly to these
coordinates avoiding any further conversions.
Finally, if col
is a formal color-class
object, then its
coordinates are transformed to (s)RGB coordinates, as described above, and returned as a formal
object of the same class after the color vision deficiency simulation.
Up to version 2.0-3 of the package, the CVD transformations had been applied
directly to the gamma-corrected sRGB coordinates (corresponding to the hex coordinates
of the colors), following the illustrations of Machado et al. (2009). However,
the paper implicitly relies on a linear RGB space (see page 1294, column 1) where their
linear matrix transformations for simulating color vision deficiencies are applied.
Therefore, starting from version 2.1-0 of the package, a new argument linear = TRUE
has been added that first maps the provided colors to linearized RGB coordinates, applies
the color vision deficiency transformation, and then maps back to gamma-corrected sRGB
coordinates. Optionally, linear = FALSE
can be used to restore the behavior
from previous versions. For most colors the difference between the two strategies is
negligible but for some highly-saturated colors it becomes more noticable, e.g., for
red, purple, or orange.
A color object as specified in the input col
(hexadecimal string, RGB matrix,
or formal color class) with simulated color vision deficiency.
Machado GM, Oliveira MM, Fernandes LAF (2009). “A Physiologically-Based Model for Simulation of Color Vision Deficiency.” IEEE Transactions on Visualization and Computer Graphics. 15(6), 1291–1298. doi: 10.1109/TVCG.2009.113 Online version with supplements at http://www.inf.ufrgs.br/~oliveira/pubs_files/CVD_Simulation/CVD_Simulation.html.
Zeileis A, Fisher JC, Hornik K, Ihaka R, McWhite CD, Murrell P, Stauffer R, Wilke CO (2020). “colorspace: A Toolbox for Manipulating and Assessing Colors and Palettes.” Journal of Statistical Software, 96(1), 1–49. doi: 10.18637/jss.v096.i01
cvd
# simulate color-vision deficiency by calling `simulate_cvd` with specified matrix simulate_cvd(c("#005000", "blue", "#00BB00"), tritanomaly_cvd["6"][[1]]) # simulate color-vision deficiency by calling the shortcut high-level function tritan(c("#005000", "blue", "#00BB00"), severity = 0.6) # simulate color-vision deficiency by calling `simulate_cvd` with interpolated cvd matrix simulate_cvd(c("#005000", "blue", "#00BB00"), interpolate_cvd_transform(tritanomaly_cvd, severity = 0.6)) # apply CVD directly on wide RGB matrix (with R/G/B channels in rows) RGB <- diag(3) * 255 rownames(RGB) <- c("R", "G", "B") deutan(RGB)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.