期待の新カラーパレット {MetBrewer}：メトロポリタン美術館所蔵の作品の色合いをRで！


Twitterで以下のような新カラーパレットがアナウンスされていました。

https://twitter.com/BlakeRobMills/status/1469749740871077893?s=20

https://github.com/BlakeRMills/MetBrewer/tree/main

このカラーパレットはニューヨークの[メトロポリタン美術館](https://www.metmuseum.org/)所蔵の作品にインスパイアされたカラーパレットということです。個人的にとても好きな色合いだったので、どんな色があるのかプロットして見てみました。
上記GitHubレポジトリの方には作品とともにパレットの解説があるのでぜひご覧ください。

# インストール
現在はGitHubからインストールできます。

```.R
devtools::install_github("BlakeRMills/MetBrewer") 
# あるいは
remotes::install_github("BlakeRMills/MetBrewer") 
```

# 使い方
`met.brewer`という関数でパレットを取得できます。引数`name`にパレット名を、`n`に取得したいカラー数を、`type`に`discrete`か`continuous`かを指定できるようです。

# 色合いはこんな感じ！

33個（！）ものカラーパレットが使えるようだったので、ggplot2で一気にプロットしてみました。
背景色等は色が映えそうな感じに（自分基準で）調整しています。また色はもっと分けられますが、ここではコントラストを見やすくするために5色を使用しています。

<details><summary>コードは以下（クリックで展開）</summary>
<div>

```.R
library(tidyverse)
library(MetBrewer)


preview_metbrwer <- function(pname) {
  p <- ggplot(midwest) + 
    geom_point(aes(x = area, y = poptotal, color = state), size = 5) + 
    scale_y_log10() + 
    scale_color_manual(values = met.brewer(name = pname, n = 5)) + 
    annotate("text", 
             x = 0.11, y = 3000, label = pname, 
             fontface = "bold.italic", size = 20, 
             family = "serif", hjust = 1
    ) + theme(axis.text = element_text(size = 20), 
          axis.title = element_text(size = 20), 
          panel.background = element_rect(fill = "#d6c6af"), 
          plot.background = element_rect(fill = "#d6c6af"), 
          legend.background = element_rect(fill = "#d6c6af"), 
          legend.key = element_rect(fill = "#d6c6af"), 
          legend.title = element_text(size = 20), 
          legend.text = element_text(size = 10)
    )
    return(p)
}


PaletteNames <- MetBrewer::MetPalettes %>% names()

for (ii in PaletteNames) {
  ptmp <- preview_metbrwer(ii)
  ggsave(ptmp, file = paste0("p_", ii, ".png"), width = 7, height = 7)
}
```

</div></details>


|  |  |  |
|:-:|:-:|:-:|
|  ![p_Austria.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/a0d39852-7781-86cd-70d5-70b5e8f4b72f.png) | ![p_Cassatt.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/127ddea9-9002-656f-4fe7-168702595151.png)  |  ![p_Cross.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/21f56493-a50b-6623-2d57-89bda49b2bc5.png) |
|![p_Degas.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/2a85c2be-90b5-21d9-3d59-b785c74508e2.png)  |  ![p_Egypt.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/49ae3d7d-926c-d7d6-4e04-674ffcedca1e.png) |![p_Gauguin.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/33173a27-bfa8-1b5a-72e9-5be9e5083496.png)|
|![p_Greek.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/ec2f8e43-ec0f-f4b2-c574-dba0aa327a7a.png)   |  ![p_Hokusai.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/a26bfc65-62b9-4ee3-58dc-9a52eeec90d1.png) | ![p_Ingres.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/6b5c0519-e793-17e9-8369-9a2d26c93d29.png)  |
|  ![p_Isfahan1.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/3a734fd2-c21d-f590-d3ca-9b53292d4fba.png) | ![p_Isfahan2.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/9bb834cf-4370-47c0-5dd0-9eee37d121e7.png)  |  ![p_Juarez.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/390dce0b-8783-f022-b956-caf7787190a8.png) |
|  ![p_Klimt.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/e50c9dcc-0ffe-211a-8580-4a7112ab8a83.png) |  ![p_Manet.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/641c48ab-ec78-6bf7-97d5-f7c49e89bc41.png) | ![p_Monet.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/421a2294-a64a-ef3f-1841-7379eb1b32d3.png)  |
| ![p_Moreau.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/40789c00-a624-b758-2405-c7661fc12ca9.png)  | ![p_Morgenstern.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/14e11cb7-0db4-026e-b358-02037fb37d3d.png)  | ![p_Nattier.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/a2954319-cbc0-ab9c-f1a8-1bbf4461c4ed.png)  |
|  ![p_NewKingdom.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/c4c8fec1-86d3-a81b-465f-0e99dffa764d.png) |  ![p_Pillement.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/2832fb02-877b-77ff-b18d-d29eda6f284e.png) |  ![p_Pissaro.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/0f6593d0-ddf8-53a4-c1d4-b2faa21cba27.png) |
|  ![p_Redon.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/4eebe26c-fab6-3a74-cd46-e72b5de33879.png) |  ![p_Renoir.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/4830636f-d2b1-4feb-d27a-94ff2596ffb0.png) |  ![p_Robert.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/279cd289-c756-6541-b484-793759edbf3b.png) |
|  ![p_Stevens.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/3004dfb7-3eaf-6f9c-62e4-5288d345393c.png) |  ![p_Tara.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/f544ee36-25a6-045d-a53e-5e085b12814b.png) | ![p_Thomas.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/a481270e-d9cc-8f6d-ac31-399afbeacb8b.png)  |
| ![p_Tiepolo.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/0adf3808-70f7-5cd0-4f9c-f09b74b08823.png)  |  ![p_Troy.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/7b21f0a5-59c8-46f0-843b-111d2ca50e4e.png) | ![p_VanGogh1.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/98948396-dc12-a187-76f7-efe1f233a9cd.png)  |
|  ![p_VanGogh2.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/08b9e447-c447-a13f-cb89-ec07595ef99b.png) |  ![p_Veronese.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/9690e6bd-e24a-572b-364a-17fad045fd6e.png) |  ![p_Wissing.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/535720/0c1b20c2-dd99-67e7-4e25-db97e909bb3a.png) |

背景色の関係で淡い色合いよりも濃い色合いの方が映えて見えてしまっているかもしれませんが、どの色合いもとてもいい感じです！また種類が豊富であるにもかかわらず、それぞれのパレット名が画家の名前なので覚えやすいのもいいですね（「Hokusai」などは特に印象に残ります）。

まだソフトローンチの段階だそうなので、今後よりアップデートがあると思います。使っていきたいカラーパレットです。