Rで解析：色覚バリアフリーな全35種類「scico」パッケージ

公開日 2022-02-12

「Scientific Colour Maps」としてFabio Crameri氏が開発した色覚バリアフリーな全35種類のカラーパレットが収録されたパッケージの紹介です。配色が綺麗で視認性がかなり高いと思います。バリアフリーな配色の資料は大変重要だと思います。なお、Fabio Crameri氏のHPは下記よりご確認ください。

Fabio Crameri氏HP：https://www.fabiocrameri.ch/colourmaps/

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

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

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

遺伝統計学の基礎―Rによる遺伝因子解析・遺伝子機能解析― | 山田亮

Amazonで山田亮の遺伝統計学の基礎―Rによる遺伝因子解析・遺伝子機能解析―。アマゾンならポイント還元本が多数。山田亮作品ほか、お急ぎ便対象商品は当日お届けも可能。

www.amazon.co.jp

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

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

install.packages("scico")
install.packages("tidyverse")
install.packages("flexdashboard")
install.packages("DT")

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

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

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

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

```{r global, include=FALSE}
#必要パッケージの読み込み
library("scico")
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))
########
#「MetBrewer」パッケージ:カラーパレット名：35種類
GgSColName <- c("acton", "bam", "bamako", "bamO", "batlow", "batlowK",
                "batlowW", "berlin", "bilbao", "broc", "brocO", "buda",
                "bukavu", "cork", "corkO", "davos", "devon", "fes", "grayC",
                "hawaii", "imola", "lajolla", "lapaz", "lisbon", "nuuk",
                "oleron", "oslo", "roma", "romaO", "tofino", "tokyo",
                "turku", "vanimo", "vik", "vikO")
```

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

```

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

```{r}
renderDataTable({
 ColCodeData <- data.frame("Color_Code" = as.character(scico(input$ColNo, palette = input$Colpal)),
                           "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 = scico(5, palette = input$Colpal)) +
    labs(title = paste0("パレット名：", input$Colpal)) +
    theme_bw(base_family = "Yu Gothic")
})
```

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