blue <- "#0e6ba8"
blue_light <- lighten_color(blue, strength = 0.33)
blue_dark <- darken_color(blue, strength = 0.33)
if (requireNamespace("scales", quietly = TRUE)) {
scales::show_col(c(blue_light, blue, blue_dark))
}
Run the code above in your browser using DataLab