rainbow(30)->cols
replicate(4,paste(sample(letters,4),collapse=""))->labs
plot(rnorm(20),rnorm(20))
colorbar(cols,"topleft")
plot(rnorm(20),rnorm(20))
colorbar(cols,"topright",
height=1.2,width=1.2,lwd=2,
labs=labs,labs.pos="left",labs.cex=1.3,labs.adj=1,
title="Colorbar!",title.cex=1.4,title.font=2,title.adj=c(0,0),
tck.pos="out",tck.lwd=2,xpd=TRUE)
Run the code above in your browser using DataLab