Rでお遊び：2016年も終了。2016年アニメキャラの目髪カラーパレットの紹介

プログラムを擬人化し、データ解析中に妄想とちょっとの癒しを与えてくれた「ガラスの花と壊す世界」に始まり、頭カラッポでエクスプロージョンな「この素晴らしい世界に祝福を」、25分45秒のレムが最高な「Re:ゼロから始める異世界生活」、働くって本当に青春だと再確認の「NEW GAME!」、ゲスなことも才能だ！勝ったなガハハな「ガーリッシュナンバー」。今年も沢山のアニメを鑑賞することができました。

今年最後は2016年に鑑賞したアニメ作品で記憶に残したいキャラの目と髪のインタラクティブなカラーパレットを紹介します。

2017年は更新頻度を増やせればと考えています。

それでは、良いお正月を！

2017年も「少しでも、あなたのウェブや実験の解析が楽になりますように！！」

そして、やっぱり「アニメはからだにいいもの」です。

実行コマンドはwindows 10のR version 3.3.2で確認しています。

2016年アニメキャラの目髪カラーパレット

表だけの表示はこちらから。表内の作品名をクリックすると各公式サイトが開きます。
・https://www.karada-good.net/wp/wp-content/uploads/2016/12/DataTable.html

パッケージのインストール

下記、コマンドを実行してください。使用したパッケージは「DT」と「openxlsx」です。

#パッケージのインストール
install.packages("DT")
#windowsでは環境によってRtoolsのインストールが必要かもしれません
#https://cran.r-project.org/bin/windows/Rtools/
install.packages("openxlsx", dependencies = TRUE)

実行コマンド

詳細はコメント、各パッケージのヘルプや過去の紹介記事を参考にしてください。

#&#12497;&#12483;&#12465;&#12540;&#12472;&#12398;&#35501;&#12415;&#36796;&#12415;
library("DT")
library("openxlsx")
library("tcltk")

#############################################
###&#12456;&#12463;&#12475;&#12523;&#12501;&#12449;&#12452;&#12523;&#12398;&#25805;&#20316;:&#12300;openxlsx&#12301;&#12497;&#12483;&#12465;&#12540;&#12472;
#############################################
#&#12501;&#12449;&#12452;&#12523;&#12434;&#36984;&#25246;
XLPath <- paste0(as.character(tkgetOpenFile(title = "&#12456;&#12463;&#12475;&#12523;&#12501;&#12449;&#12452;&#12523;&#12434;&#36984;&#25246;",
                                            filetypes = '{"&#12456;&#12463;&#12475;&#12523;&#12501;&#12449;&#12452;&#12523;" {"*.*"}}',
                                            initialfile = c("*.*"))))
#&#35501;&#12415;&#36796;&#12416;&#12471;&#12540;&#12488;&#12434;&#25351;&#23450;:sheet&#12458;&#12503;&#12471;&#12519;&#12531;
XLData <- read.xlsx(XLPath, sheet = 1)

#############################################
###&#12452;&#12531;&#12479;&#12521;&#12463;&#12486;&#12451;&#12502;&#12394;&#34920;&#12434;&#20316;&#25104;:&#12300;DT&#12301;&#12497;&#12483;&#12465;&#12540;&#12472;
#############################################
#HTML&#12501;&#12449;&#12452;&#12523;&#12398;&#20445;&#23384;&#22580;&#25152;&#12434;&#25351;&#23450;
setwd(paste(as.character(tkchooseDirectory(title = "&#20445;&#23384;&#22580;&#25152;&#12434;&#36984;&#25246;"), sep = "", collapse ="")))

#&#12487;&#12540;&#12479;&#12363;&#12425;&#12486;&#12540;&#12502;&#12523;&#12434;&#20316;&#25104;
DataTable <- datatable(XLData, rownames = FALSE,
                       options = list(pageLength = 10, lengthMenu = c(5, 10, 20, 50)),
                       caption = '2016&#24180; &#12450;&#12491;&#12513;&#12461;&#12515;&#12521; &#30446;&#12539;&#39658;&#12497;&#12524;&#12483;&#12488;', escape = FALSE)
#&#22615;&#12426;&#33394;&#12434;&#35373;&#23450;
DataTable <- DataTable %>%
  formatStyle('&#30446;&#12398;&#33394;', backgroundColor = styleEqual(XLData[, 2], XLData[, 2])) %>%
  formatStyle('&#39658;&#12398;&#33394;', backgroundColor = styleEqual(XLData[, 3], XLData[, 3]))
#&#20316;&#25104;&#12486;&#12540;&#12502;&#12523;&#12434;html&#12391;&#20986;&#21147;
saveWidget(DataTable, 'DataTable.html')

少しでも、あなたの解析が楽になりますように！！