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

#パッケージのインストール
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")))
########

#&#12497;&#12524;&#12483;&#12488;ID&#12391;&#24773;&#22577;&#12434;&#21462;&#24471;:clpalette&#12467;&#12510;&#12531;&#12489;
CPalette1 <- clpalette("3994722")
CPalette2 <- clpalette("3854544")
CPalette3 <- clpalette("3983562")
CPalette4 <- clpalette("3874722")
#&#20869;&#23481;&#12434;&#30906;&#35469;
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 
#&#12463;&#12521;&#12473;&#12434;&#30906;&#35469;
class(CPalette1)
[1] "clpalette" "list" 

#&#21462;&#24471;&#12375;&#12383;clpalette class&#12363;&#12425;&#12459;&#12521;&#12540;&#12467;&#12540;&#12489;&#12434;&#25277;&#20986;:swatch&#12467;&#12510;&#12531;&#12489;
CPcol1 <- swatch(CPalette1)
CPcol2 <- swatch(CPalette2)
CPcol3 <- swatch(CPalette3)
CPcol4 <- swatch(CPalette4)
#&#20869;&#23481;&#12434;&#30906;&#35469;
CPcol1
[[1]]
[1] "#2A1C1B" "#452727" "#793F34" "#9B6257" "#FF3237"

#&#21462;&#24471;&#12375;&#12383;&#12497;&#12524;&#12483;&#12488;&#12434;&#12503;&#12525;&#12483;&#12488;
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]]))

#&#26465;&#20214;&#12434;&#25351;&#23450;&#12375;&#12390;&#12497;&#12524;&#12483;&#12488;&#12434;&#21462;&#24471;:clcolors&#12467;&#12510;&#12531;&#12489;
#&#26465;&#20214;&#12398;&#25351;&#23450;:set&#12458;&#12503;&#12471;&#12519;&#12531;;"new","top","random"&#12398;&#25351;&#23450;&#12364;&#21487;&#33021;
#&#26368;&#26032;20&#12398;&#12497;&#12524;&#12483;&#12488;&#12434;&#21462;&#24471;
clcolors(set = "new")

#&#12497;&#12479;&#12540;&#12531;&#12434;&#21462;&#24471;:clpattern&#12467;&#12510;&#12531;&#12489;
CPattern <- clpattern("5047600")
#&#21462;&#24471;&#12375;&#12383;&#12497;&#12479;&#12540;&#12531;&#12434;&#12503;&#12525;&#12483;&#12488;
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]])