R语言ggplot2作图好看的配色备选

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