Rでお遊び：「透明になって崩壊」しなきゃいいな。シャーロットキャラのEyeColourパレットの紹介

公開日 2015-08-05

第6話の予告編では「乙坂歩未」に確実な異変が示されています。ほのぼの物語から一気にシリアスな物語へ進んでしまうのでしょうか。これから、物語は「彗星と謎の粒子」、そして「病気と特殊能力」との関係について紡がれていくことが考えられます。

紡がれる物語が、どんな演出で装飾されるのか。佐倉綾音さんの演技も含め注目の作品です。シャーロットの演出は、ウェブでのPRなど幅広く応用ができるのではと考えています。いつも、佐倉綾音さんの演技でドラマSPACを思い出します。

第6話に期待して、公式サイトのキャラ画像から「目の中心付近のカラーコードを取得て、下段に行くほどalpha値が小さくなる（透明になる）」カラーパレットを作成したので紹介します。なお、カラーコードは「作画指定」と異なるかもしれません。参考としてご覧いただければと思います。

カラーパレットのように、シャーロットの世界が「透明になって崩壊」しなければいいなぁと思います。

なお、紹介コードはR version 3.2.0で動作を確認しています。

OPの謎文字と図形をまとめています。記事の紹介です。 ・「謎文字」を書き起こし！多くの秘密がありそうです。 https://www.karada-good.net/bodygood-mono/anime-manga/charlotte-4

・「謎の図形」3つをトレース https://www.karada-good.net/bodygood-mono/anime-manga/charlotte-3

「からだにいいもの」ではシャーロットを応援しています。 バナーをクリックすると公式サイトに移動します。

シャーロットHP:http://charlotte-anime.jp/

OP/EDテーマ曲｢Bravely You / 灼け落ちない翼｣の発売日は8月26日で、暦では秋です。「Bravely You」思慮深くなる秋の夜長のBGMにいかがでしょうか。初回限定版にはノンクレジットのOPとEDが収録されています。サビに入る前の15秒間の演出はすごいと思います。ノンクレジットで見るのが楽しみです。

商品が気になる方へAmazonリンクの紹介

＜おすすめのRに関する書籍です＞

医学研究のためのRによる統計解析入門 | 加葉田大志朗, 新谷歩

Amazonで加葉田大志朗, 新谷歩の医学研究のためのRによる統計解析入門。アマゾンならポイント還元本が多数。

www.amazon.co.jp

結果

左から「乙坂有宇」「友利奈緒」「高城丈士郎」「西森柚咲」そして「乙坂歩未」です。図内に書かれている文字は「カラーコード」となります。また、末尾2文字は16進数で示されるalpha値（透明度）です。画像はクリックで大きく表示されます。

実行コマンドの紹介

詳細はコメント、パッケージヘルプを確認してください。コマンドでは「palr」というパッケージを利用しています。パッケージの使い方は下記記事を参考ください。

視認性が高い海色パレットの利用「palr」パッケージの紹介 https://www.karada-good.net/analyticsr/r-181/


#パッケージのインストール
install.packages("palr")

#パッケージの読み込み
library("palr")

n <- 10
MGcol <- NULL
for(n in seq(n)){

  Gcol <- col2hex(c("#5a2d35", "#0242ac", "#213349", "#0074af", "#6b4496"), alpha = 1/n)
  MGcol <- rbind(MGcol, Gcol)

}

#プロット領域の作成
par(bg = "gray")
plot(0:2, 0:2, type = "n", axes = FALSE, xlab = "", ylab = "",
     main = "Charlot Eye colours", col.main = "black")
box()
rasterImage(MGcol,
            0, 0, 2, 2, interpolate = FALSE)
#末尾2桁は16進数で示されるalpha値です
text(x = rep(seq(1/5, 2 - 1/5, len = 5), each = n),
     y = seq(1/n, 2 - 1/n, len = n), cex = 0.5, rev(MGcol), col = "red")