色見本

MikuHatsune2017-09-28

R の関数にcolors というものがあって、これで色の名前指定でデフォルトで入っている色を使える。
プロットしているときに単純にcol=番号指定だと1:8 で終わってしまうし、かと言っていい色ないかなと毎回悩むのでとりあえず灰色以外を一括してプロットしておく。

cols <- colors()
cols <- cols[-grep("gray|grey", cols)]

i0 <- 6
j0 <- length(cols) %/% i0 + 1

k <- 0
par(mar=rep(0, 4))
plot(1, type="n", xlim=c(1, i0+0.5), ylim=c(j0-1, 1.5), xlab="", ylab="", frame=FALSE, axes=FALSE)
for(i in seq(i0)){
  for(j in seq(j0)){
    k <- k + 1
    points(i, j, cex=2, col=cols[k], pch=15)
    text(i, j, cols[k], pos=4, cex=ifelse(nchar(cols[k]) < 15, 1, 0.9))
  }
}