基于空白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())