今天我们学做一下NC文章的小提琴图,有小提琴图,也有散点,其实看过之前系列文章的人如果能够联想,可以想到这个的结合。只不过这篇文章的图有个特点是散点分布和小提琴图形状一致,在画散点的时候利用geom_quasirandom 代替geom_jitter即可。
image.png
image.png
原文提供了原始作图数据,可去官网下载。
示例数据和注释代码已上传群文件,免费获取可加群!
作图:
读入数据
setwd("D:/KS项目/复现NC") A <- read.csv("Fig3f.csv", header = T) A$Integrated.density <- 0.001*A$Integrated.density library(ggplot2) library(ggbeeswarm) library(ggpubr) A$Biological.replicate <- as.factor(A$Biological.replicate)计算平均值、sd等:
library(dplyr) B <- A %>% group_by(Treatment) %>% mutate(upper = quantile(Integrated.density, 0.75), lower = quantile(Integrated.density, 0.25), mean = mean(Integrated.density), median = median(Integrated.density), sd = sd(Integrated.density))ggplot作图:
ggplot(A,aes(x=Treatment,y=Integrated.density))+ geom_violin(width =0.8,fill='#EDEDED',color='#EDEDED')+ geom_quasirandom(aes(color=Biological.replicate),width = 0.4,size=2.5)+ scale_color_manual(name = 'Rep.', values = c('#FFD7A8','#F2A9A9','#BAB099'), labels = c('1','2','3'))+ theme_classic()+ labs(x=" ", y=expression('Integrated density (x'~10^3~')'))+ theme(axis.title.y = element_text(colour = 'black',size = 16), axis.text = element_text(colour = 'black',size = 14), axis.line = element_line(size = 1), legend.title = element_text(size = 14), legend.text = element_text(size = 14))+ guides(color=guide_legend(override.aes = list(size=4)))+ geom_errorbar(data=B, aes(ymin = mean-sd, ymax = mean+sd),width = 0.2,size=0.5)+ stat_summary(fun = "mean", geom = "crossbar", mapping = aes(ymin=..y..,ymax=..y..), width=0.4, size=0.3)+ stat_summary(aes(fill=Biological.replicate), geom="point", fun = mean, shape=21, size=6,stroke=1.3)+ scale_fill_manual(values = c('#FFAF51','#E65454','#756233'))+ geom_signif(data=A, aes(xmin=1, xmax=2, annotations="0.3008367", y_position=310), textsize = 5,tip_length = c(0, 0), manual=TRUE, size = 0.5)+ guides(fill=guide_legend(title = 'Mean'))image.png
结果基本是一致的,不同之处在于误差线,我是按照mean±sd,和原文有出入。其次Mean的图例,这里没有修改,不知有啥好办法,原文只有一个圈,其实用annotate函数可以加上。
更多精彩请关注我的公众号《KS科研分享与服务》
AI大模型学习福利
作为一名热心肠的互联网老兵,我决定把宝贵的AI知识分享给大家。 至于能学习到多少就看你的学习毅力和能力了 。我已将重要的AI大模型资料包括AI大模型入门学习思维导图、精品AI大模型学习书籍手册、视频教程、实战学习等录播视频免费分享出来。
一、全套AGI大模型学习路线
AI大模型时代的学习之旅:从基础到前沿,掌握人工智能的核心技能!
因篇幅有限,仅展示部分资料,需要点击文章最下方名片即可前往获取
二、640套AI大模型报告合集
这套包含640份报告的合集,涵盖了AI大模型的理论研究、技术实现、行业应用等多个方面。无论您是科研人员、工程师,还是对AI大模型感兴趣的爱好者,这套报告合集都将为您提供宝贵的信息和启示。
因篇幅有限,仅展示部分资料,需要点击文章最下方名片即可前往获
三、AI大模型经典PDF籍
随着人工智能技术的飞速发展,AI大模型已经成为了当今科技领域的一大热点。这些大型预训练模型,如GPT-3、BERT、XLNet等,以其强大的语言理解和生成能力,正在改变我们对人工智能的认识。 那以下这些PDF籍就是非常不错的学习资源。
因篇幅有限,仅展示部分资料,需要点击文章最下方名片即可前往获
四、AI大模型商业化落地方案
因篇幅有限,仅展示部分资料,需要点击文章最下方名片即可前往获
作为普通人,入局大模型时代需要持续学习和实践,不断提高自己的技能和认知水平,同时也需要有责任感和伦理意识,为人工智能的健康发展贡献力量