Colour palettes based on blank VHS cassette packaging design.
The inspiration and images for the colour palettes came from flashbak.com
library(vhs)view_all_vhs_palettes()Extract a single palette with vhs()
vhs("tdk_vivid") %>%
tibble(x=.) %>%
mutate(x=fct_inorder(rev(x))) %>%
ggplot() +
geom_bar(aes("", fill=x), position = "stack") +
scale_fill_identity()+
theme_void()+
coord_flip()vhs("tdk_vivid", type="c", n=40) %>%
tibble(x=.) %>%
mutate(x=fct_inorder(rev(x))) %>%
ggplot() +
geom_bar(aes("", fill=x), position = "stack") +
scale_fill_identity()+
theme_void()+
coord_flip()ggplot(diamonds, aes(color, fill=cut))+
geom_bar(col=1)+
scale_fill_manual(values = vhs("rainbow"))