dapengde 这里有个网站 <http://jfly.iam.u-tokyo.ac.jp/color/> 制作色盲友好的调色板。
另外R包dichromat,就是专门提供色盲友好的调色板
library(dichromat)
pal <- function(colorname, border = "light gray"){
n <- length(colorname)
plot(0, 0, type="n", xlim = c(0, 1), ylim = c(0, 1),
axes = FALSE, xlab = "", ylab = "")
rect(0:(n-1)/n, 0, 1:n/n, 1, col = colorname, border = border)
}
pdf(file= "dichromat.pdf",height = 5,width=5)
par(mar=c(0,0,0,0),mfrow = c(17,1))
lapply(colorschemes,pal)
dev.off()