还可以吧

我感觉还不错

657种颜色全部都可以查出来的

貌似是直接用R输出的

要是楼主在提供一下R的代码就更好了

期待~~~~~~~~

pdf(file="R colors show.pdf",width=13,height=13)

par(col.main="blue")
x<-c(rep(1:8,82),1)
y<-c(rep(83:2,rep(8,82)),1)
texts<-colors()
plot(0,0,type='n',axes=F,xaxt='s',yaxt='s',xlab='',ylab='',xlim=c(1,8),ylim=c(1,83),main="colors()")
text(x,y,texts,col=colors())

dev.off()

嘿嘿

其实比较简单的

是这个寒假学习R的时候搞的

就那么几行

忍不住的將程式碼作了點小修正, 借花獻佛.

pdf(file="RColors.pdf", width=13, height=13)
op <- par(mar=c(2, 2, 2, 2) + .1)
plot(c(1, 8), c(1, 83), type="n",
     axes=FALSE, xlab="", ylab="",
     main="\n\ncolors()", col.main="blue")
text(c(rep(1:8, 82), 1), c(rep(83:2, rep(8, 82)), 1),
     colors(), col=colors())
par(op)
dev.off()

[此贴子已经被作者于2008-8-29 8:19:20编辑过]

look look