cairo_pdf("R语言颜色表.pdf",9,16,family=SimSun) cl=colors() par(mar=c(0,0,0,0),bty="n")
plot(c(0, 98), c(0, 73), type = "n", xlab = "", ylab = "")
title(line = -2, main = "R语言颜色表")
for(i in 0:8){ rect(i*11,73:1,i*11+10,72:0,col=cl[1:73+i*73])
text(i*11+5,73:1-0.5,labels = cl[1:73+i*73],cex = 0.6) }
dev.off()