カラーチャート

一番最後に,これを作ったソースを添付

colorchart01.png
colorchart02.png
colorchart03.png
colorchart04.png
colorchart05.png
colorchart06.png
colorchart07.png
colorchart08.png
colorchart09.png

ソース

polygon.plot <- function(row, col, name, name.of.color, height, cell.width, cell.height)
{
	row <- row*cell.width
	col <- col*cell.height
	ordinate.x <- c(row, row, row+cell.width, row+cell.width, row)
	ordinate.y <- height-c(col, col+cell.height, col+cell.height, col, col)
	polygon(ordinate.x, ordinate.y, col=name.of.color)
	text(row+cell.width*0.1, height-(col+cell.height*0.6), name, pos=4)
	text(row+cell.width*0.1, height-(col+cell.height*0.4), name.of.color, pos=4)
	text(row+cell.width*0.1, height-(col+cell.height*0.2), 
            name.of.color,pos=4,col="white")
}

color.chart <- function(n.width=8, n.height=10)
{
	width <- 1200
	height <- 900
	name.of.color <- colors()
	n <- length(name.of.color)
	max <- floor(n/(n.width*n.height))
	pdf("colorchart%02i.pdf", onefile=FALSE, width=width/72, height=height/72)
	for (i in 0:max) {
		plot(c(0, width, width, 0, 0), c(0, 0, height, height, 0),type="n", xaxt="n",      
                      yaxt="n", xlab="",ylab="")
		for (col in 0:(n.height-1)) {
			for (row in 0:(n.width-1)) {
				name <- (n.width*n.height)*i+col*n.width+row+1
				cat(name, ", ", name.of.color[name], "&#165;n")
				polygon.plot(row, col, name, name.of.color[name], height,      
                                                    width/n.width, height/n.height)
			}
		}
	}
	dev.off()
}

添付ファイル: filecolorchart05.png 3945件 [詳細] filecolorchart08.png 4232件 [詳細] filecolorchart04.png 3762件 [詳細] filecolorchart02.png 13022件 [詳細] filecolorchart06.png 4203件 [詳細] filecolorchart07.png 5057件 [詳細] filecolorchart03.png 3775件 [詳細] filecolorchart09.png 1374件 [詳細] filecolorchart01.png 1579件 [詳細]

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2023-03-25 (土) 11:19:17