par(bg="gray") 
pie(rep(1,24), col=rainbow(24), radius=0.9) 
title(main="A Sample Color Wheel", cex.main=1.4, font.main=3) 
title(xlab="(Use this as a test of monitor linearity)", cex.lab=0.8, font.lab=3)