Thanks, Here is my partial solution, from what you suggested me: library(TeachingDemos)
z<-colors() zz<-col2grey(z) #index sorted zzz<-sort(zz,index.return = TRUE)$ix x<-z # colors in order or their greyscale y<-z # greyscale sorted in gradient for (i in 1:length(z)){ x[i]<-z[zzz[i]] y[i]<-zz[zzz[i]] } myCol<-round(seq(from=1,to=length(x),length.out=10)) myCol<-x[myCol] I then look at it and change to colors that are too similar for another value close in geyscale. -- View this message in context: http://www.nabble.com/Colormap-that-look-good-in-gray-scale-tp22336097p22339785.html Sent from the R help mailing list archive at Nabble.com. ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.