这些颜色来自于网页链接 https://www.royfrancis.com/elegant-scientific-graphs-learning-from-examples/，我使用snipaste软件把颜色弄下来了，记录一下，自己备用，也分享给大家
三个颜色
image.png
library(ggplot2)
colors_1<-c("#e20612","#ffd401","#00b0eb")
df1<-data.frame(x=letters[1:3],y=1:3)
library(ggplot2)
ggplot(data=df1,aes(x,y))+
geom_col(aes(fill=x))+
theme_bw()+
scale_fill_manual(values = colors_1)+
geom_label(aes(label=colors_1))+
scale_y_continuous(expand = c(0,0),
limits = c(0,4))
image.png
5个颜色
image.png
colors_3<-c("#ef1828","#f88421","#ffbc14",
"#00bdcd","#006b7b")
df3<-data.frame(x=letters[1:5],
y=1:5)
ggplot(data=df3,aes(x,y))+
geom_col(aes(fill=x))+
theme_bw()+
scale_fill_manual(values = colors_3)+
geom_label(aes(label=colors_3))+
scale_y_continuous(expand = c(0,0),
limits = c(0,6))+
theme(legend.position = "none")
image.png
8个颜色
image.png
colors_2<-c("#cc340c","#e8490f","#f18800","#e4ce00",
"#9ec417","#13a983","#44c1f0","#3f60aa")
df2<-data.frame(x=letters[1:8],
y=1:8)
ggplot(data=df2,aes(x,y))+
geom_col(aes(fill=x))+
theme_bw()+
scale_fill_manual(values = colors_2)+
geom_label(aes(label=colors_2))+
scale_y_continuous(expand = c(0,0),
limits = c(0,9))+
theme(legend.position = "none")
image.png
两个颜色
image.png
colors_4<-c("#156077","#f46f20")
df4<-data.frame(x=letters[1:2],
y=1:2)
ggplot(data=df4,aes(x,y))+
geom_col(aes(fill=x))+
theme_bw()+
scale_fill_manual(values = colors_4)+
geom_label(aes(label=colors_4))+
scale_y_continuous(expand = c(0,0),
limits = c(0,3))+
theme(legend.position = "none")
image.png
colors_5<-c("#4da0a0","#9b3a74")
ggplot(data=df4,aes(x,y))+
geom_col(aes(fill=x))+
theme_bw()+
scale_fill_manual(values = colors_5)+
geom_label(aes(label=colors_5))+
scale_y_continuous(expand = c(0,0),
limits = c(0,3))+
theme(legend.position = "none")
image.png
6个颜色
colors_6<-c("#3cb346","#00abf0","#d75427",
"#2e409a","#942d8d","#eeb401")
df6<-data.frame(x=letters[1:6],
y=1:6)
ggplot(data=df6,aes(x,y))+
geom_col(aes(fill=x))+
theme_bw()+
scale_fill_manual(values = colors_6)+
geom_label(aes(label=colors_6))+
scale_y_continuous(expand = c(0,0),
limits = c(0,6))+
theme(legend.position = "none")
image.png
这个链接里还有其他的颜色，大家也可以挑选自己喜欢的颜色，直接用snipaste这个软件来获取颜色值
欢迎大家关注我的公众号
小明的数据分析笔记本
小明的数据分析笔记本 公众号 主要分享：1、R语言和python做数据分析和数据可视化的简单小例子；2、园艺植物相关转录组学、基因组学、群体遗传学文献阅读笔记；3、生物信息学入门学习资料及自己的学习笔记！