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


GitHubのcolorpileに登録のカラーパレットを利用するパッケージの紹介です。

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

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

パッケージバージョンは0.1.0。実行コマンドはwindows 7およびOS X 10.11.2のR version 3.2.3で確認しています。


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

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

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

実行コマンド

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

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

#パレットデータを取得:colorpile_metadataコマンド
PaletData <- colorpile_metadata() #確認 head(PaletData) name authors github_user description keywords 1 Accent Cynthia .... mikabr Provides color schemes for maps (and other graphics) designed by Cynthia Brewer as described at http://colorbrewer2.org 2 Blues Cynthia .... mikabr Provides color schemes for maps (and other graphics) designed by Cynthia Brewer as described at http://colorbrewer2.org 3 BottleRocket Karthik Ram karthik Palette generated mostly from 'Wes Anderson' movies. 4 BottleRocket2 Karthik Ram karthik Palette generated mostly from 'Wes Anderson' movies. 5 BrBG Cynthia .... mikabr Provides color schemes for maps (and other graphics) designed by Cynthia Brewer as described at http://colorbrewer2.org 6 BuGn Cynthia .... mikabr Provides color schemes for maps (and other graphics) designed by Cynthia Brewer as described at http://colorbrewer2.org date type 1 2016-04-01 qualitative 2 2016-04-01 sequential 3 2016-04-01 qualitative 4 2016-04-01 qualitative 5 2016-04-01 diverging 6 2016-04-01 sequential #登録情報でパレット名を検索: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") <a colorpile palette of 9 colors:> #F7FBFF #DEEBF7 #C6DBEF #9ECAE1 #6BAED6 #4292C6 #2171B5 #08519C #08306B #全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) } [/code]


出力例

・colorpile_palette:type = diverging
diverging

・colorpile_palette:type = qualitative
qualitative

colorpile_palette:type = sequential
sequential


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

スポンサードリンク

スポンサードリンク