col3x2 | R Documentation |
col3x2 color dataset.
data("col3x2")
The format is: chr [1:6] "#1B9E77" "#D95F02" "#7570B3" "#66C2A5" "#FC8D62" "#8DA0CB"
3x2 color scheme. These colors look like a 3x2 color array when run through the vischeck simulator to see how they look for the three most common color vision deficiencies: Deuteranope, Protanope, Tritanope.
About 10% of the population have color deficient vision.
Your job is make your graphs legible to everyone.
Download ImageJ
from https://imagej.net/Downloads
and
VischeckJ
from
http://vischeck.com and follow the instructions in those sites.
This program will allow you to simulate color deficient vision on your computer.
On my Mac, I need to doubleclick ij.jar to open the program. Then open the "Vischeck Panel" on the Plugins menu and navigate to a png file with the "File Open" menu. Click on each of the three types of color deficiency.
data(col3x2)
col3x2
## Not run:
library(RColorBrewer)
library(lattice)
col3x2 <- c(brewer.pal(n=3, "Dark2"), brewer.pal(n=3, "Set2"))
col3x2
## save(col3x2, file="col3x2.rda") ## data(col3x2, package="HH")
## End(Not run)
## Not run:
barchart(~ 1:6, col=col3x2, lwd=0, origin=0, horizontal=FALSE,
scales=list(x=list(at=1:6, labels=col3x2)))
tmp <- array(c(1, rep(0,6)), c(1,3,2,6),
dimnames=list("",
c("green","orange","blue"),
c("Dark2","Set2"),
col3x2))
useOuterStrips(barchart(tmp, col=col3x2,
between=list(x=1, y=1),
scales=list(x=list(at=-1)),
main="col3x2", xlab="")) +
layer(panel.text(x=.5, y=1.45, labels=col3x2[panel.number()]))
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.