大年三十晚上全程看完了春晚，虽然节目很烂，还是全程坚持看完了，《国色》那个节目还是很惊艳的，如果去掉唱歌的环节，可以给打十分。今天的推文我们把其中的配色摘下来，可以试着用在我们科研数据可视化中。
沉香.jpg
凝脂.jpg
群青.jpg
桃红.jpg
缃叶.jpg
以上图片截取自央视频
颜色截取下来
cols<-c("#8c232a","#eaebd9","#dfa041","#103472","#423735")
cols01<-c("桃红","凝脂","缃叶","群青","沉香")
作图代码
library(ggplot2)
library(extrafont)
fonts()
dat<-data.frame(x=letters[1:5],
y=10)
dat
grDevices::cairo_pdf(filename = "20230101.pdf",
width = 9.4,height = 4)
ggplot(data=dat,aes(x=x,y=y))+
geom_col(aes(fill=x),
show.legend = FALSE)+
geom_text(aes(y=5),
label=cols01,angle=90,
size=10,color=c("white","red","white","white","white"),
family="STKaiti")+
scale_fill_manual(values = cols)+
theme_void()+
labs(title = "2023 学业有成，科研顺利！",
caption = "小明的数据分析笔记本")+
theme(text = element_text(family = "STKaiti"),
title = element_text(size=30))
dev.off()
image.png
示例代码可以给推文点赞，点击在看，最后留言
欢迎大家关注我的公众号
小明的数据分析笔记本
小明的数据分析笔记本 公众号 主要分享：1、R语言和python做数据分析和数据可视化的简单小例子；2、园艺植物相关转录组学、基因组学、群体遗传学文献阅读笔记；3、生物信息学入门学习资料及自己的学习笔记！
