pdf(“D:/colors-bar.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()