把谢的修改下：
大家注意下 跟贴提示的内容好不？
colnam <- colors()<br />
vector.code <- apply(col2rgb(colnam), 2, function(x) x[1] + <br />
x[2] * 1000 + x[3] * 0.001)<br />
unique.code <- unique(vector.code)<br />
sub <- match(unique.code, vector.code)<br />
colnames <- colnam[sub]<br />
(length(colnames))<br />
<br />
<br />
<br />
pdf.color="C:/colors.bar.pdf"<br />
pdf(pdf.color,width =12, height = 120)<br />
<br />
op <- par(bg = "thistle")<br />
plot(c(100, 350), c(0, 750), type = "n", <br />
xlab="", ylab="" ,axe = F ,main = "Colors in R")<br />
i <- 2*(0:length(colnames))<br />
<br />
rect(100, 0+i, 140, 102+i, col=colnames[1:100])<br />
rect(150, 0+i, 190, 102+i, col=colnames[101:200])<br />
rect(200, 0+i, 240, 102+i, col=colnames[201:300])<br />
rect(250, 0+i, 290, 102+i, col=colnames[301:400])<br />
rect(300, 0+i, 340, 102+i, col=colnames[401:502])<br />
<br />
text(120,0+i+1,colnames[1:100],cex = 0.9 )<br />
text(170,0+i+1,colnames[101:200],cex = 0.9)<br />
text(220,0+i+1,colnames[201:300],cex = 0.9)<br />
text(270,0+i+1,colnames[301:400],cex = 0.9)<br />
text(320,0+i+1,colnames[401:502],cex = 0.9)<br />
<br />
dev.off()<br />
shell.exec(pdf.color)
