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

出力例

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

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


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

スポンサードリンク

おすすめコンテンツ


スポンサードリンク