Playing around with CIE Lab colors in R

lab-colors.R

#
# Playing around with CIE Lab colors in R
#

# load library that provides colorRampPalette
library(grDevices)

# define function for plotting colors
plotColors = function(palette, n=10) {
   colors = palette(n)
   barplot(rep(1,n), col=colors, border=colors, space=0, yaxt='n')
}

# take a look at rgb interpolation
pal = colorRampPalette(c("#FF0000", "#0000FF"))
plotColors(pal, 5)

# and compare it with Lab
pal = colorRampPalette(c("#FF0000", "#0000FF"), space="Lab")
plotColors(pal, 5)

Thanks!

This was great thank you!