配色来源于论文 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、生物信息学入门学习资料及自己的学习笔记！
