Rで解析：カラーパレットが４４種類「colormap」パッケージ

公開日 2022-02-27

カラーパレットが4４種類収録されているパッケージの紹介です。使いやすいパレットだと思います。

収録カラーパレットは実行コマンドとRmdファイルで紹介します。実行前に「パッケージのインストール」のコマンドを実行してください。なお、実行はRStudioがおすすめです。

パッケージのバージョンは0.1.4。実行コマンドはRStudioのRStudio Desktop 2021.09.2+382、windows 11のR version 4.1.2で確認しています。

＜おすすめのRに関する書籍です＞

Ｒで学ぶ統計的データ解析データサイエンス入門シリーズ | 林賢一, 下平英寿 | 工学 | Kindleストア

Amazonで林賢一, 下平英寿のＲで学ぶ統計的データ解析データサイエンス入門シリーズ。アマゾンならポイント還元本が多数。一度購入いただいた電子書籍は、KindleおよびFire端末、スマートフォンやタブレットなど、様々な端末でもお楽しみいただけます。

www.amazon.co.jp

パッケージのインストール

下記コマンドを実行してください。

#パッケージのインストール
install.packages("colormap")
install.packages("tidyverse")
install.packages("flexdashboard")
install.packages("DT")

実行コマンドとRmdファイル

詳細はコマンド、Rmdファイル（エンコード:UTF-8）、パッケージヘルプを確認してください。

Rmdファイル：colormap ダウンロード

---
title: "colormapパッケージ"
output:
  flexdashboard::flex_dashboard:
    orientation: columns
    social: menu
    source_code: embed
runtime: shiny
---

```{r global, include=FALSE}
#必要パッケージの読み込み
library("colormap")
library("tidyverse")
library("flexdashboard")
library("DT")

###データ例の作成#####
n <- 100
TestData <- data.frame("Group" = sample(paste0("Group", 1:5), n, replace = TRUE),
                       "Data1" = sample(1:10, n, replace = TRUE),
                       "Data2" = sample(LETTERS[1:24], n, replace = TRUE))
########
#「colormap」パッケージ:カラーパレット名：44種類
GgSColName <- c("jet","hsv","hot","cool","spring","summer",
                "autumn","winter","bone","copper","greys",
                "YIGnBu","greens","YIOrRd","bluered","RdBu",
                "picnic","rainbow","portland","blackbody","earth",
                "electric","viridis","inferno","magma","plasma",
                "warm","cool","rainbow-soft","bathymetry","cdom",
                "chlorophyll","density","freesurface-blue","freesurface-red",
                "oxygen","par","phase","salinity","temperature","turbidity",
                "velocity-blue","velocity-green","cubehelix")
```

Column {data-width=500}
-------------------------------------
```{r}
selectInput('Colpal', 'Select Color Palette Name', GgSColName)
sliderInput('ColNo', 'Select No：カラーパレットの色数', value = 5, min = 5, max = 20)

```

###収録カラーパレット：44種類

```{r}
renderDataTable({
 ColCodeData <- data.frame("Color_Code" = as.character(colormap_pal(colormap = input$Colpal)(input$ColNo)),
                           "Color" = "")
  datatable(ColCodeData, rownames = FALSE,
            options = list(pageLength = 10, lengthMenu = c(20, 40, 100))) %>%
    formatStyle("Color", valueColumns = "Color_Code",
                backgroundColor = styleEqual(ColCodeData[, 1], ColCodeData[, 1]))
})
```

Column {data-width=500}
-------------------------------------

###ggplot2:colorに適応
```{r}
renderPlot({
  ggplot(TestData,
         aes(x = Data1, y = Data2, col = Group)) +
    geom_point(size = 10) +
    theme_bw() +
    scale_color_manual(values = colormap_pal(colormap = input$Colpal)(input$ColNo)) +
    labs(title = paste0("パレット名：", input$Colpal))
})
```

###ggplot2:fillに適応
```{r}
renderPlot({
  ggplot(TestData,
         aes(x = Data2, fill = Group)) +
    geom_bar(stat = "count") + theme_bw() +
    scale_fill_manual(values = colormap_pal(colormap = input$Colpal)(input$ColNo)) +
    labs(title = paste0("パレット名：", input$Colpal))
})
```

おまけ

#カラーパレットの表示:colormapコマンド
par(mfrow = c(44,1))
par(mar = rep(0.01, 4))
for(i in seq(colormaps)) {
  barplot(rep(1, 72), yaxt = "n", space = c(0, 0), border = NA,
          col = colormap(colormap = colormaps[[i]]), main = sprintf("\n%s", names(colormaps[i])))
}