# NOT RUN {
# load fisher data
data(fisher_ud)
# generate hcl color palette
pal_a <- palette_timeline(fisher_ud)
head(pal_a)
# use a clockwise palette
pal_b <- palette_timeline(fisher_ud, clockwise = TRUE)
# try a different starting hue
pal_c <- palette_timeline(fisher_ud, start = 50)
# visualize the palette in HCL space with colorspace::hclplot
library(colorspace)
hclplot(pal_a[pal_a$specificity == 100, ]$color)
hclplot(pal_b[pal_b$specificity == 100, ]$color)
hclplot(pal_c[pal_c$specificity == 100, ]$color)
# }
Run the code above in your browser using DataLab