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)
}

出力例

・colorpile_palette:type = diverging
diverging

・colorpile_palette:type = qualitative
qualitative

colorpile_palette:type = sequential
sequential


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

スポンサードリンク

おすすめコンテンツ


スポンサードリンク