R/svg.pal.R

In svgViewR: 3D Animated Interactive Visualizations Using SVG and WebGL

svg.pal <- function(n, yellow = TRUE, alpha = 1, blind = FALSE){
	
	# Set colors
	cols <- c("#E41A1C","#377EB8","#4DAF4A","#984EA3","#FF7F00","#FFFF33","#A65628","#F781BF",
		"#999999","#66C2A5","#FC8D62","#8DA0CB","#E78AC3","#A6D854","#FFD92F","#E5C494","#B3B3B3",
		"#941751", "#011993")

	# If more colors requested than in vector add lighter and darker versions
	if(n > length(cols)){
		cols <- c(cols, lightenCol(cols, 0.5), darkenCol(cols, 0.5))
	}

	if(!yellow) cols <- cols[c(1:5,7:length(cols))]

	if(blind){

		if(n > 6) stop("For colorblind palette n must be less than or equal to 6")
		
		cols <- paste0("#", c("156E82", "31D2DC", "FA5078", "22A0FA", "F0F031", "AA0A3C"))
	}

	if(alpha < 1){
		for(i in 1:length(cols)){
			as_rgb <- col2rgb(cols[i])
			cols[i] <- rgb(as_rgb[1], as_rgb[2], as_rgb[3], alpha=alpha*255, maxColorValue=255)
		}
	}

	# Return specified number of colors
	cols[1:n]
}