Rと解析:配色の参考になります。「colourlovers」パッケージ


COLOURloversには多くのカラーパレットやパターンが登録されています。そんな、便利なCOLOURloversのAPIを利用した「colourlovers」パッケージを紹介します。最新の配色の参考になればと思います。

COLOURlovers:http://www.colourlovers.com/

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


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

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

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

実行コマンド

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

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

###データ例の作成#####
TestData <- matrix(sample(10:35, 16, replace = TRUE), 4, 4, dimnames = list(c(LETTERS[1:4]), c("Group1", "Group2", "Group3", "Group4"))) ######## #パレットIDで情報を取得:clpaletteコマンド CPalette1 <- clpalette("3994722") CPalette2 <- clpalette("3854544") CPalette3 <- clpalette("3983562") CPalette4 <- clpalette("3874722") #内容を確認 CPalette1 Palette ID: 3994722 Title: Valentine's Chocolat Created by user: stormiecub Date created: 2015-12-22 18:45:14 Views: 16 Votes: 2 Comments: 0 Hearts: 0 Rank: 0 URL: http://www.colourlovers.com/palette/3994722/Valentines_Chocolat Image URL: Colors: #2A1C1B, #452727, #793F34, #9B6257, #FF3237 #クラスを確認 class(CPalette1) [1] "clpalette" "list" #取得したclpalette classからカラーコードを抽出:swatchコマンド CPcol1 <- swatch(CPalette1) CPcol2 <- swatch(CPalette2) CPcol3 <- swatch(CPalette3) CPcol4 <- swatch(CPalette4) #内容を確認 CPcol1 [[1]] [1] "#2A1C1B" "#452727" "#793F34" "#9B6257" "#FF3237" #取得したパレットをプロット layout(matrix(1:4, nrow = 2)) par(mar = c(2, 2, 2, 2)) barplot(TestData, col = CPcol1[[1]], border = NA) title(main = paste0("Palette Name:", CPalette1[[2]])) pie(rep(1, length(CPcol2[[1]])), col = CPcol2[[1]], main = paste0("Palette Name:", CPalette2[[2]]), labels = CPcol2[[1]]) pie(rep(1, length(CPcol3[[1]])), col = CPcol3[[1]], main = paste0("Palette Name:", CPalette3[[2]]), labels = CPcol3[[1]]) barplot(TestData, col = CPcol4[[1]], border = NA, main = NULL) title(main = paste0("Palette Name:", CPalette3[[4]])) #条件を指定してパレットを取得:clcolorsコマンド #条件の指定:setオプション;"new","top","random"の指定が可能 #最新20のパレットを取得 clcolors(set = "new") #パターンを取得:clpatternコマンド CPattern <- clpattern("5047600") #取得したパターンをプロット layout(matrix(1:2, ncol = 2)) plot(CPattern) pie(rep(1, length(CPattern[[10]])), col = paste0("#", CPattern[[10]]), main = paste0("Pattern Name:", CPattern[[2]]), labels = CPattern[[10]]) [/code]


出力例

取得したパレットをプロット
clpalette

取得したパターンをプロット
clpattern


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

スポンサードリンク

スポンサードリンク