Rで解析：追加できるカラーパレット？「colorpiler」パッケージ

GitHubのcolorpileに収録されているカラーパレットを利用するパッケージの紹介です。

・colorpile
　https://github.com/ropenscilabs/colorpile

本パッケージの「colorpile_palette」コマンドは興味深いです。実行で得られるclassはclosureです。closureの内容はfunctionとなります。使い勝手が良いclassなので「colorpile_palette」コマンドの内容を読み解くのも面白いかもしれません。

パッケージバージョンは0.1.0。実行コマンドはR version 4.2.2で確認しています。

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

下記、コマンドを実行してください。

#パッケージのインストール
install.packages("devtools")
devtools::install_github("ropenscilabs/colorpiler")

実行コマンド

詳細はコメント、パッケージのヘルプを確認してください。

#パッケージの読み込み
library("colorpiler")
#カラーパレット表示に「scales」パッケージを利用
#install.packages("scales")
library("scales")

#パレットデータを取得:colorpile_metadataコマンド
PaletData <- colorpile_metadata()
#確認
head(PaletData)

#登録情報でパレット名を検索:search_colorpileコマンド
#"diverging","qualitative","sequential"のオプションが利用可能
search_colorpile(type = "sequential")
[1] "Blues"   "BuGn"    "BuPu"    "GnBu"    "Greens"  "Greys"   "Oranges" "OrRd"
[9] "PuBu"    "PuBuGn"  "PuRd"    "Purples" "RdPu"    "Reds"    "YlGn"    "YlGnBu"
[17] "YlOrBr"  "YlOrRd"

#パレット名からカラーコードを取得:colorpile_paletteコマンド
#結果はclosure classでオプションとしてnum_valuesが設定されています
#出力するカラーコードのを指定:num_values;初期値max
#結果は省略
colorpile_palette("Blues")

#全typのカラーパレットをプロット
ColCode <- NULL
ColType <- c("diverging", "qualitative", "sequential")
for(m in 1:3){
  SearchPal <- search_colorpile(type = ColType[1])
  for(i in seq(SearchPal)){
    
    ColCode <- c(ColCode, colorpile_palette(SearchPal[i])())
    
  }
  show_col(ColCode, labels = FALSE)
}