当前位置: 首页 > news >正文

复现《nature communications》散点小提琴图+蜜蜂图

今天我们学做一下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大模型商业化落地方案

因篇幅有限,仅展示部分资料,需要点击文章最下方名片即可前往获

作为普通人,入局大模型时代需要持续学习和实践,不断提高自己的技能和认知水平,同时也需要有责任感和伦理意识,为人工智能的健康发展贡献力量

http://www.cnnetsun.cn/news/109271.html

相关文章:

  • 直播间数据监控实战指南:从入门到精通的高效方案
  • 高效PowerShell转EXE工具使用指南:轻松生成专业可执行文件
  • 必剪官网下载安装图文版教程(附安装包,超级详细)
  • Hyper终端性能优化实践指南
  • 掌握MCP PL-600多模态Agent的UI组件,这4个性能陷阱一定要避开
  • Cirq代码提示太弱?教你亲手打造智能补全系统,提升编码速度70%
  • 情感语音合成的未来趋势:从EmotiVoice看行业发展方向
  • BasePopup:打造优雅高效的Android弹窗解决方案
  • 【稀缺资源曝光】MCP量子编程认证内部培训资料首次全公开
  • 远程开发效率翻倍,VSCode文件同步配置你真的掌握了吗?
  • 后端成本砍掉 90% 后,我发现 Render 和 Railway 都做错了一件事
  • SynthDoG技术解析:如何解决文档理解模型的数据瓶颈问题
  • Open Library 深度探索:构建你的专属数字图书馆王国
  • MapGIS DataStore产品安装要求
  • Go语言Office文档自动化:unioffice完整使用指南
  • 5大策略实现轻量级技术部署:嵌入式设备实战指南
  • MinIO版本选型终极指南:开源与商业版深度对比
  • LinearDesign快速上手:mRNA序列优化实战指南
  • FastExcel终极指南:轻松处理百万级Excel数据的完整教程
  • Ferry工单系统完整指南:从零开始构建企业级流程协作平台
  • 1.4 你绝对不能错过的天气查询工具:MCP 标准化接入实战
  • Taiga敏捷项目管理:5个核心功能助你高效协作
  • 29、Linux 系统管理与使用指南
  • dc.js GDPR合规可视化:构建数据隐私保护的交互式仪表盘
  • Strapi 无头 CMS 实战:如何用现代架构构建高性能网站
  • NMEA-GNSS-RTK 定位html小工具
  • 30、Bash Shell 高级特性与实用命令详解
  • 31、深入探索C与Bash脚本交互及相关命令
  • EmotiVoice语音害羞感模拟增添人际互动趣味
  • 终极免费方案:李跳跳自定义规则一键告别所有弹窗广告