学习Wesanderson包的高端配色

说在前面

鉴于Immugent对美学感受的不够深入，导致平时做出的图总感觉土不拉几的，而且各种颜色之间不协调。当看到高分杂志发表的文章时，它们所采用的配色却很高达上而且看着很舒服。一个可以解释的方面是，各种颜色其实都是有自己的色调的，暖色调和冷色调的配比应该有一定讲究，这样当这些颜色出现在一幅图中感觉是浑然天成的。Wish, 小编自己也不知道怎么形容，那就看看下方的图来感受一下美学之美吧。

image.png

无独有偶，最近在复现别人的代码时，发现了一个高端大气上档次的配色包：wesanderson，这配色绝了，不仅考虑整体的对比度，还考虑每一种颜色混合使用时的调和度，大家可根据自己的需要采取不同的配色板。有了这个包，妈妈再也不用担心做出的图配色又土又丑啦。

---

代码实现

这个包的取色基本都是来自已有的一些作品的配色，而且很轻便，一键安装。

install.packages("wesanderson")
library("wesanderson")

# See all palettes
names(wes_palettes)
#>  [1] "BottleRocket1"  "BottleRocket2"  "Rushmore1"      "Rushmore"      
#>  [5] "Royal1"         "Royal2"         "Zissou1"        "Darjeeling1"   
#>  [9] "Darjeeling2"    "Chevalier1"     "FantasticFox1"  "Moonrise1"     
#> [13] "Moonrise2"      "Moonrise3"      "Cavalcanti1"    "GrandBudapest1"
#> [17] "GrandBudapest2" "IsleofDogs1"    "IsleofDogs2"

首先来画一个热图感受一下！

pal <- wes_palette("Zissou1", 21, type = "continuous")
image(volcano, col = pal)

pal <- wes_palette("Zissou1", 100, type = "continuous")
# heatmap is a local dataset
ggplot(heatmap, aes(x = X2, y = X1, fill = value)) +
  geom_tile() + 
  scale_fill_gradientn(colours = pal) + 
  scale_x_discrete(expand = c(0, 0)) +
  scale_y_discrete(expand = c(0, 0)) + 
  coord_equal() 

image.png image.png

还有很多其它配色，可以根据自己需要进行选择。

wes_palette("GrandBudapest2")wes_palette("IsleofDogs1")wes_palette("IsleofDogs2")

image.png image.png image.png

---

展望

Immugent感觉这篇推文是有史以来图最好看的一篇啦，哈哈。科研虽然看似枯燥，但是我们可以通过自己来赋予它不同的颜色，美一直都存在，只是缺少发现美的眼睛和感受美的心境。想起一句广告词，遇见彩虹吃定彩虹！

好啦，本期分享到这就结束啦，我们下次再会！

---