配色来源于论文 https://www.nature.com/articles/s41577-022-00707-2 里面图的颜色看起来非常舒服，摘下来作为自己数据可视化作图的备选项
第一个图
image.png
八个配色
library(ggplot2) cols<-c("#88c4e8","#db6968","#982b2b","#0074b3", "#e5ce81","#f47720","#459943","#bdc3d2") dat01<-data.frame(x=LETTERS[1:8], y=1) ggplot(data=dat01,aes(x=x,y=y))+ geom_col(aes(fill=x),show.legend = FALSE)+ scale_fill_manual(values = cols)+ theme_bw() 
image.png
第二个图
image.png
四个颜色
cols02<-c("#606f8a","#e8c559","#ea9c9d","#005496") dat02<-data.frame(x=LETTERS[1:4], y=1) ggplot(data=dat02,aes(x=x,y=y))+ geom_col(aes(fill=x),show.legend = FALSE)+ scale_fill_manual(values = cols02)+ theme_bw() 
image.png
第三个图
image.png
六个颜色
cols03<-c("#93cc82","#4d97cd","#f6f5ee","#ea9c9d", "#c74546","#88c4e8") dat03<-data.frame(x=LETTERS[1:6], y=1) ggplot(data=dat03,aes(x=x,y=y))+ geom_col(aes(fill=x),show.legend = FALSE)+ scale_fill_manual(values = cols03)+ theme_bw() 
image.png
第四个图
image.png
8个颜色
这个可能和第一个有重叠
cols04<-c("#db6968","#4d97cd","#99cbeb","#459943", "#fdc58f","#e8c559","#a3d393","#f8984e") dat04<-data.frame(x=LETTERS[1:8], y=1) ggplot(data=dat04,aes(x=x,y=y))+ geom_col(aes(fill=x),show.legend = FALSE)+ scale_fill_manual(values = cols04)+ theme_bw() 
image.png
image.png
欢迎大家关注我的公众号
小明的数据分析笔记本
小明的数据分析笔记本 公众号 主要分享：1、R语言和python做数据分析和数据可视化的简单小例子；2、园艺植物相关转录组学、基因组学、群体遗传学文献阅读笔记；3、生物信息学入门学习资料及自己的学习笔记！