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

用户7010445

发布于 2023-01-06 20:10:26

5500

发布于 2023-01-06 20:10:26

文章被收录于专栏：小明的数据分析笔记本小明的数据分析笔记本

配色来源于论文 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

第二个图

四个颜色


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()