阿狗工具

大年三十晚上全程看完了春晚，虽然节目很烂，还是全程坚持看完了，《国色》那个节目还是很惊艳的，如果去掉唱歌的环节，可以给打十分。今天的推文我们把其中的配色摘下来，可以试着用在我们科研数据可视化中。

沉香.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、生物信息学入门学习资料及自己的学习笔记！