cc <- ChineseColors()
cc
# Get a color by pinyin
get_colors("pinlan")
# By number
get_colors(44)
# By hex code
get_colors("#2B73AF")
# Multiple colors
get_colors("pinlan", "piao")
get_colors(91:100)
# Chinese names
cc$visual_colors(
title = "Chinese Traditional Colors",
name_type = "chinese"
)
# pinyin as names
cc$visual_colors(
loc_range = c(1, 120),
title = "Chinese Traditional Colors",
name_type = "pinyin"
)
# rgb as names
cc$visual_colors(
loc_range = c(1, 120),
title = "Colors with RGB values",
name_type = "rgb"
)
# hex as names
cc$visual_colors(
loc_range = c(1, 120),
title = "Colors with hex codes",
name_type = "hex"
)
Run the code above in your browser using DataLab