zeileis, 9 months ago

@ijlyttle @observablehq Comparison of deutan emulations:

library("colorspace")
library("dichromat")
vi <- hcl.colors(9)
rb <- rainbow(9)

swatchplot(list(
"viridis" = rbind(
original = vi,
colorspace = deutan(vi),
dichromat = dichromat(vi, "deutan")),
"rainbow" = rbind(
original = rb,
colorspace = deutan(rb),
dichromat = dichromat(rb, "deutan"))),
nrow = 4)