R中的艺术调色板之VHS

基于空白VHS盒式磁带包装设计的调色板，喜欢的小伙伴可以关注我的公众号R语言数据分析指南，持续分享更多优质资源

devtools::install_github('cj-holmes/vhs')
library(vhs)
library(tidyverse)

view_all_vhs_palettes()

ggplot(diamonds, aes(color, fill=cut))+
  geom_bar(col=1)+
  scale_fill_manual(values = vhs("cvs"))+
  scale_y_continuous(expand = c(0, 0))+
  theme_bw()+
  theme(panel.grid = element_blank(),
        panel.border = element_blank())