Hi jalfaro, Apologies for the typo in the last message, the first two lines in the second example should read: cellcolors[d<1]<- color.scale(c(0,1,d[d<1]),cs1=c(0,0,1),cs2=c(0,0,1),cs3=1)[-1:2] That is, minus the first two values returned. Jim