COLOURloversには多くのカラーパレットやパターンが登録されています。そんな、便利なCOLOURloversのAPIを利用した「colourlovers」パッケージを紹介します。最新の配色の参考になればと思います。
COLOURlovers:http://www.colourlovers.com/
パッケージバージョンは0.3.6。実行コマンドは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]])
出力例
取得したパレットをプロット
取得したパターンをプロット
少しでも、あなたのウェブや実験の解析が楽になりますように!!