只看颜色的名字，还是不能和实际的样子对应起来，于是就想把所有支持的颜色都画出来，看看什么样子的，然后再决定用哪一个。
下面这段代码把结果输出到png文件，这个文件在D盘的根目录下，当然你也可以更改这个位置。因为直接输出的话，画布不可能这么大。或者用pdf输出也是一样的。
png的画布大小是有个上限的，比如宽度，设定到1500以后再大就没用了。
[attachment=89]
下面这段代码把结果输出到png文件，这个文件在D盘的根目录下，当然你也可以更改这个位置。因为直接输出的话，画布不可能这么大。或者用pdf输出也是一样的。
png的画布大小是有个上限的，比如宽度，设定到1500以后再大就没用了。
<br />
png(file="d:/R_color.png",width=1500,height=650)<br />
a.c <- colors()<br />
op1 <- par(mar=c(0,0,0,0))<br />
plot(1:100,1:100,pch="")<br />
colN <- 48<br />
cex.l <- 0.9<br />
mof.x <- 7.7<br />
for(i in 1:ceiling(length(a.c)/colN)){<br />
idx.star <- 1+colN*(i-1)<br />
idx.end <- ifelse(colN*i < length(a.c),colN*i,length(a.c))<br />
legend(-3+(i-1)*mof.x,103,fill=a.c[idx.star:idx.end],a.c[idx.star:idx.end],cex=cex.l,bty="n")<br />
}<br />
dev.off()<br />
[attachment=89]
