# NOT RUN {
### A COMPARISON OF SOME COLOUR PALETTES
data(isopalette1)
data(isopalette2)
par(mfrow=c(2, 3))
pie(rep(1, length(isopalette1)), col = isopalette1,
border=NA, labels=NA, clockwise=TRUE, main="isopalette1")
pie(rep(1, length(isopalette2)), col = isopalette2,
border=NA, labels=NA, clockwise=TRUE, main="isopalette2")
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