色盲的友好的调色板r

色盲的友好的调色板r

# n - number of colors in the palette
get_palette <- function(n) {
	require(RColorBrewer)
	colors <- brewer.pal.info[brewer.pal.info$colorblind == TRUE, ]
	col_vec <- unlist(mapply(brewer.pal, colors$maxcolors, rownames(colors)))
	return(sample(col_vec, n))
}