みくみくにしてあげる 再び

新しいアイコンを作ろうと思った。
髪が手前と奥にあるので、透過性を指定することで色付けを工夫した。

miku0 <- as.matrix(read.csv("data_load"), header=TRUE)
miku0[is.na(miku0)] <- 0

miku1 <- NULL
for(i in seq(ncol(miku0))){
	miku1 <- rbind(miku1, rev(miku0[, i]))
}

cols <- c("white", "black", "red", grey(0.5), "green", "#F0C9C0FF", "pink", rgb(0, 1, 0, alpha=0.5))

par(mar=c(2, 1, 1, 1))
image(miku1, col=cols, frame=FALSE, axes=FALSE)


cpalet <- rainbow(100)
cpaleta <- rainbow(100, alpha=0.5)
for(i in seq(cpalet)){
	cols <- c("white", "black", "red", grey(0.5), cpalet[i], "#F0C9C0FF", "pink", cpaleta[i])
	par(mar=c(2, 1, 1, 1))
	image(miku1, col=cols, frame=FALSE, axes=FALSE)
}


library(gplots)
miku2 <- array(0, c(dim(miku1), 2))
miku2[, , 1] <- miku1
miku2[, , 2] <- miku1[rev(seq(nrow(miku1))), ] 
cpalet <- rainbow(80)
cpaleta <- rainbow(80, alpha=0.5)
for(i in seq(cpalet)){
	cols <- c("white", "black", "red", grey(0.5), cpalet[i], "#F0C9C0FF", "pink", cpaleta[i])
	dance <- even(ceiling(i / 8)) + 1
	#png(paste("miku", i, ".png", sep=""), 96, 96)
	par(mar=c(2, 1, 1, 1)*(96/480))
	#image(miku2[, , dance], col=cols, frame=FALSE, axes=FALSE)
	dev.off()
}