R生成颜色PDF

pdf("D:/work/data/Rcolor.pdf",height=120)
par(mar=c(0,10,3,0)+0.1,yaxs="i")
barplot(rep(1,length(colors())),col=rev(colors()),names.arg=rev(colors()),horiz=TRUE,las=1,xaxt="n",main=expression("Bars of colors in"~italic(colors())))
dev.off()

该代码将生成R语言所有657种颜色对应的名称