新しいアイコンを作ろうと思った。 髪が手前と奥にあるので、透過性を指定することで色付けを工夫した。 miku0 <- as.matrix(read.csv("data_load"), header=TRUE) miku0[is.na(miku0)] <- 0 miku1 <- NULL for(i in seq(ncol(miku0))){ miku1 <- rbind(miku…