参考自：https://blog.csdn.net/zhouyijun888/article/details/69213494

##获取R的颜色参数
pdf("colors-bar.pdf",heigh=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=T,las=1,
        xaxt="n",main=expression("Bar of colors in"~
                                   italic(colors())))
dev.off()
getwd()#获得当前R语言的工作路径，在该目录下找到对应得条形图