### A COMPARISON OF SOME COLOUR PALETTES
data(isoscapepalette)
data(isorixpalette)
par(mfrow=c(2, 3))
pie(rep(1, length(isoscapepalette)), col = isoscapepalette,
border=NA, labels=NA, clockwise=TRUE, main="isoscapepalette")
pie(rep(1, length(isorixpalette)), col = isorixpalette,
border=NA, labels=NA, clockwise=TRUE, main="isorixpalette")
pie(rep(1, 100), col = terrain.colors(100), border=NA, labels=NA,
clockwise=TRUE, main="terrain.colors")
pie(rep(1, 100), col = rainbow(100), border=NA, labels=NA,
clockwise=TRUE, main="rainbow")
pie(rep(1, 100), col = topo.colors(100), border=NA, labels=NA,
clockwise=TRUE, main="topo.colors")
pie(rep(1, 100), col = heat.colors(100), border=NA, labels=NA,
clockwise=TRUE, main="heat.colors")
### CREATING YOUR OWN COLOUR PALETTE
my.palette <- colorRampPalette(c("blue", "green", "red"), bias=0.7)
par(mfrow=c(1, 1))
pie(1:100, col=my.palette(100), border=NA, labels=NA,
clockwise=TRUE, main="a home-made palette")
Run the code above in your browser using DataLab