if (FALSE) {
# Get highly accessible palettes
safe_palettes <- get_cvd_safe_palettes(min_distance = 20)
# Use a safe palette
ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species)) +
geom_point() +
scale_color_vangogh(safe_palettes[1])
}
Run the code above in your browser using DataLab