Rで解析：からだにいいものカラーパレット「KaradaColor」パッケージ

「からだにいいもの」のカラーパレットです。日本の風景や食べ物を撮影した写真から5色をピックアップしたカラーパレットです。カラーパレットは順次追加していく予定です。

また、ggplot2パッケージで利用できるカラーパレットや指定した色の補色やトライアド・カラーを作るコマンドが収録されています。

23.04.21にCRANでもversion 0.1.5が公開されました

CRAN - Package KaradaColor

GituHubでも公開します。完全に趣味です。どれだけ色を追加していけることやら。

GitHub - KaradaGood/KaradaColor

Contribute to KaradaGood/KaradaColor development by creating an account on GitHub.

なお、追加したカラーパレットはInstagramで写真とカラーコードを紹介します。

Instagram

バージョンは0.1.5。実行コマンドはR version 4.2.3で確認しています。

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

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

#パッケージのインストール
install.packages("KaradaColor")

実行コマンド

詳細はコメント、パッケージのヘルプを確認してください。

#パッケージの読み込み
library("KaradaColor")

#収録カラーパレットをコンソールに表示:kg_show_consoleコマンド
kg_show_console()

#プロットおよびカラーコードをコンソールに表示:kg_plot_colorコマンド
#収録カラーパレットを表示:nameオプション
#色を指定して表示:colorオプション;NULLの場合はnameオプションが優先されます
#コンソールに表示:showcodeオプション;TRUE/FALSE
kg_plot_color("Kyoto_City", showcode = TRUE)
kg_plot_color(color = c("#ff48ac", "yellow"), showcode = TRUE)

#指定した色の補色を作成:kg_create_ccコマンド
#色の指定:basecolsオプション
#透明度:alphaオプション
kg_create_cc(basecols = "yellow")
#          Base Complementary
#No_1 #FFFF00FF     #0000FFFF

#kg_plot_colorコマンドと組み合わせます
kg_plot_color(color = kg_create_cc(basecols = "yellow"))
  
#指定した色でトライアド・カラーを作成:kg_create_tcコマンド
#色の指定:basecolsオプション
#透明度:alphaオプション
kg_create_tc(basecols = "green")
#      Triadic
#No_1 #FF0000FF
#No_2 #00FF00FF
#No_3 #0000FFFF

#kg_plot_colorコマンドと組み合わせます
kg_plot_color(color = kg_create_tc(basecols = "green"))

###以下「ggplot2」パッケージで使用できるコマンド
#scale_color_kgコマンド/scale_fill_kgコマンド
#収録カラーパレット名を指定:nameオプション
#透明度:alphaオプション
#欠損値の色:na.valueオプション
#離散値に対応:discreateオプション;TRUE/FALSE

###データ例#####
if(!require("tidyverse", quietly = TRUE)){
  install.packages("tidyverse");require("tidyverse")
}
set.seed(1)
x <- LETTERS[1:20]
y <- paste0("var", seq(1,20))
data <- expand.grid(X=x, Y=y)
data$Z <- sample(c(NA, rnorm(15)), 20, replace = TRUE)
########

#連続変数:
ggplot(data, aes(X, Y, fill= Z)) +
  geom_tile() +
  scale_fill_kg(discrete = FALSE, name = "Hanamushiro",
                alpha = 1, na.value = "red")

#離散値:
library("ggplot2")
ggplot(data = diamonds, aes(x = cut, y = price,
                            color = cut, fill = cut)) +
  geom_boxplot() +
  scale_color_kg(name = "Hanamushiro", alpha = 0.3) +
  scale_fill_kg(name = "Hokkaido_Sky", alpha = 1) +
  theme_dark()