Color Palettes Inspired by Japanese Landscape and Culture

The palette includes motifs from Japanese landscape and culture. And it provides commands for color manipulation and 'ggplot2' color scales.

KaradaColor

Color palette of "KARADA-GOOD". The color palette consists of five colors selected from photographs of Japanese landscapes and foods. Color palette will be added sequentially.

Color palettes to be added are introduced on Instagrame from time to time.

Installation

You can install the development version of KaradaColor from GitHub with:

# install.packages("devtools")
devtools::install_github("KaradaGood/KaradaColor")

Example

library(KaradaColor)
#Display all palettes in console
kg_show_consol()

#Plot the palette
kg_plot_color("Kyoto_City", n = 10, showcode = TRUE)

#Create complementary color
kg_plot_color(color = kg_create_cc())

#Create triad color
kg_plot_color(color = kg_create_tc())

ggplot2

The package contains colour scale functions for scale_color_kg() and scale_fill_kg(). Missing values are initially displayed in red.

#Continuous scale exsample
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)
library("tidyverse")
ggplot(data, aes(X, Y, fill= Z)) +
  geom_tile() +
  scale_fill_kg(discrete = FALSE, name = "Hanamushiro",
                alpha = 1, na.value = "red")

#Discrete scale exsample
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()

aRtsy and other packages

This can be done with the kg_get_color() command.

library("aRtsy")
set.seed(1234)
canvas_strokes(colors = kg_get_color(name = "Otaru_Unga"),
               neighbors = 1, p = 0.02, iterations = 1,
               resolution = 350)