col3x2 color dataset
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)
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.