參考自: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語言的工作路徑,在該目錄下找到對應得條形圖