data(chinese_colors)
color_sets <- attr(chinese_colors, "color_sets")
show_palettes(
list(
color_sets$ChineseSet8,
color_sets$ChineseSet16,
color_sets$ChineseSet32
)
)
# Use ChineseColors class
cc <- ChineseColors()
cc$visual_colors(
title = "Chinese Traditional Colors",
name_type = "chinese"
)
Run the code above in your browser using DataLab