```r library(simplecolors) highlight_colors <- simplecolors::sc_across(light = 1, return = "table") # ^^^^^ highlight <- set_names( highlight_colors$hex, str_remove(highlight_colors$color_name, "\\d") ) |> as.list() highlight$red # #F9D2D2 highlight$blue # "#D2DFF9"