ジブリ作品から発想を得た27種のカラーパレットが収録されたパッケージの紹介です。各カラーパレットは7色で構成されています。大変綺麗なカラーパレットです。
収録カラーパレットは実行コマンドとRmdファイルで紹介します。実行前に「パッケージのインストール」のコマンドを実行してください。なお、実行はRStudioがおすすめです。
パッケージのバージョンは0.3.2。実行コマンドはRStudioのRStudio Desktop 2021.09.2+382、windows 11のR version 4.1.2で確認しています。
パッケージのインストール
下記コマンドを実行してください。
install.packages("ghibli")
install.packages("tidyverse")
install.packages("flexdashboard")
install.packages("DT")
実行コマンドとRmdファイル
詳細はコマンド、Rmdファイル（エンコード:UTF-8）、パッケージヘルプを確認してください。
---
title: "ghibliパッケージ"
output:
flexdashboard::flex_dashboard:
orientation: columns
social: menu
source_code: embed
runtime: shiny
---
```{r global, include=FALSE}
#必要パッケージの読み込み
library("ghibli")
library("tidyverse")
library("flexdashboard")
library("DT")
###データ例の作成#####
n <- 100
TestData <- data.frame("Group" = sample(paste0("Group", 1:7), n, replace = TRUE),
"Data1" = sample(1:10, n, replace = TRUE),
"Data2" = sample(LETTERS[1:24], n, replace = TRUE))
########
#「ghibli」パッケージ:カラーパレット名：27種類
GgSColName <- c("MarnieLight1", "MarnieMedium1", "MarnieDark1", "MarnieLight2",
"MarnieMedium2", "MarnieDark2", "PonyoLight", "PonyoMedium",
"PonyoDark", "LaputaLight", "LaputaMedium", "LaputaDark",
"MononokeLight", "MononokeMedium", "MononokeDark","SpiritedLight",
"SpiritedMedium", "SpiritedDark", "YesterdayLight", "YesterdayMedium",
"YesterdayDark", "KikiLight", "KikiMedium", "KikiDark",
"TotoroLight", "TotoroMedium", "TotoroDark")
```
Column {data-width=500}
-------------------------------------
```{r}
selectInput('Colpal', 'Select Color Palette Name', GgSColName)
```
###収録カラーパレット：27種類
```{r}
renderDataTable({
ColCodeData <- data.frame("Color_Code" = as.character(ghibli_palette(name = 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 = as.character(ghibli_palette(name = 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_histogram(stat = "count") +theme_bw() +
scale_fill_manual(values = as.character(ghibli_palette(name = input$Colpal))) +
labs(title = paste0("パレット名：", input$Colpal)) +
theme_bw(base_family = "Yu Gothic")
})
```
出力例
少しでも、あなたの解析が楽になりますように！！
