ABCDみたいなことをしたいが、文字をそのままtext関数で配置すると、一色しか使えない。 というわけで一文字ずつ着色するのだが、そうすると文字の配置がずれる。 なのでsubstituteにphantomを使って文字と同じ幅の空白を作って無理やり文字を配置する。 txt <- "RAINBOW" w <- strsplit(txt, "")[[1]] cols <- rainbow(length(w)) # 地道に書いて配置してみる cex <- 2 par(mar=c(1, 1, 1, 1)) plot(1, type="n", frame=FALSE, xaxt="n", yaxt="n"…