Create color palette function using model color palette for Color Universal Design (Color Universal Design Organization, 2018, https://cudo.jp/?page_id=1565) or JIS Z 9103:2018.
CUDO(NPO法人 カラーユニバーサルデザイン機構)により示されている「カラーユニバーサルデザイン推奨配色セット ver.4」(https://cudo.jp/?page_id=1565) および「カラーユニバーサルデザイン推奨配色セット ガイドブック 第2版」(PDF)の「比較的見分けやすい組み合わせ(画面用)」をカラーパレットとして利用できるようにする。
同様の趣旨で制定されているJIS安全色(JIS Z 9103:2018)も使用できるよう更新。
Get Color Universal Design or JIS Z 9103:2018 color code(s) from color
name(s) listed berow. The color name(s) for JIS color should be
specified with a “jis_” prefix.
If “colorname” is not exist in the list, NA
will be return.
CUD推奨カラーパレットの色名(下記)から対応するカラーコードを取得。存在しない色は NA を返す
#> [1] "red" "yellow" "green" "blue"
#> [5] "skyblue" "pink" "orange" "purple"
#> [9] "brown" "lightpink" "cream" "lightyellowgreen"
#> [13] "lightskyblue" "beige" "lightgreen" "lightpurple"
#> [17] "white" "lightgray" "lightgrey" "gray"
#> [21] "grey" "black"
jis_
の接頭語をつけてjis_color()
の色を取得することもできる
#> [1] "jis_red" "jis_yellowred" "jis_orange" "jis_yellow"
#> [5] "jis_green" "jis_blue" "jis_purple" "jis_white"
#> [9] "jis_black"
Get JIS Z 9103:2018 color code.
NA
will be return when “colorname” is not exist in the following list.
JIS Z 9103:2018 で定義されているカラーコードを取得。存在しない色は NA を返す
#> [1] "red" "yellowred" "orange" "yellow" "green" "blue"
#> [7] "purple" "white" "black"
Use patterns recommended as easy-to-distinguish combinations in the
materials as a palette. See the sample at the end of this page for
possible combinations.
The default pallete is type = "accent", size = 6, pal = 1
. If
requested number of colors is more than in the pallete, colors are used
repeatedly (warning message could be suppressed with warn = F
option).
Colors are reorderd to maximize the color difference between adjacent
colors. If you want to go back to the order in which they described in
the source material, use reorder = F
.
「比較的見分けやすい組み合わせ」をパレットとして使用する。可能な組み合わせは下記サンプルを参照。
隣り合う色の色差を最大化するために色を並べ替えている。出典資料に出てくる順に戻したい場合は、reorder = F
。デフォルトはアクセントカラー 6色のひとつ。色が足りない場合は警告メッセージ(
warn = F
でoff可)を出してループで使用する。
This is a wrapper function calls ‘cud_pal()’ with type = “jis”.
JIS Z 9103:2018 で定義されている色をパレットとして使用。
cud_pal(type = "jis")
を呼び出すラッパー関数。
remotes::install_github("mokztk/cudpalette")
library(cudpalette)
cud_color("red")
#> [1] "#FF4B00"
cud_color(c("red", "blue", "magenta", "purple"))
#> undefined color name : magenta
#> [1] "#FF4B00" "#005AFF" NA "#990099"
cud_pal()()
#> [1] "#F6AA00" "#03AF7A" "#804000" "#4DC4FF" "#FFF100" "#005AFF"
cud_pal(type = "a", size = 5, pal = 2, direction = -1)()
#> [1] "#4DC4FF" "#FFF100" "#990099" "#03AF7A" "#F6AA00"
cud_pal(type = "a", size = 7, pal = 2, direction = -1)()
#> Warning in cud_pal(type = "a", size = 7, pal = 2, direction = -1):
#> 'size' should be in 1:6. Default (6) will be used.
#> [1] "#4DC4FF" "#FFF100" "#005AFF" "#F6AA00" "#03AF7A" "#FF4B00"
cud_pal(type = "a", size = 5, pal = 2, direction = -1)(6)
#> Warning in cud_pal(type = "a", size = 5, pal = 2, direction = -1)(6):
#> Requested colors (6) > this palette (5). The palette will be used repeatedly.
#> [1] "#4DC4FF" "#FFF100" "#990099" "#03AF7A" "#F6AA00" "#4DC4FF"
cud_pal(type = "a", size = 5, pal = 2, direction = -1, warn = FALSE)(6)
#> [1] "#4DC4FF" "#FFF100" "#990099" "#03AF7A" "#F6AA00" "#4DC4FF"
with parameter reorder = TRUE
(reorder palettes maximizing color
differences between adjacent colors)
- 🔖v0.1.0 (2023-10-12): impremented the model color palette for Color Universal Design.
- 🔖v0.2.0 (2023-10-20): impremented the JIS Safety Colors (JIS Z 9103:2018).
- 🔖v0.3.0 (2023-10-20): reorder palettes to maximize color differences between adjacent colors.
- 🔖v0.4.0 (2024-02-20): reorder (again) palettes to maximize color differences considering repeated use.