news 2026/8/7 15:41:20

美图秀秀:出版级火山图

作者头像

张小明

前端开发工程师

1.2k 24
文章封面图
美图秀秀:出版级火山图

有学员评价 Galaxy 平台出的火山图有点丑:

这图确实难言美观。平台其实有好几个火山图工具

  • • 有基于 EnhancedVolcano 包的

  • • 有基于 ggplot2 的

上图就是 EnhancedVolcano 包的效果。不过画成这样,也有别的关系:

  • • 比如基因太多。应该把没表达,或者低表达的基因先过滤一下

  • • 此外 p 值设定,以及坐标轴的范围控制也有问题。

总之,这效果离发表级确实有点远。

既然现有工具的绘制效果差强人意,而火山图本质是一个散点图,为了使用方便,我们干脆再封装一个更适合用于发表的:

  • Volcano Plotwith Publication-Quality (Galaxy Version 1.0)

效果如下:

测试数据

我们先来生成一份测试数据,下面代码来源于 EnhancedVolcano 包的文档:

library(airway) library(magrittr) library(EnhancedVolcano) data('airway') airway$dex %<>% relevel('untrt') colData(airway) # 转换基因符号 ens <- rownames(airway) library(org.Hs.eg.db) symbols <- mapIds(org.Hs.eg.db, keys = ens, column = c('SYMBOL'), keytype = 'ENSEMBL') symbols <- symbols[!is.na(symbols)] symbols <- symbols[match(rownames(airway), names(symbols))] rownames(airway) <- symbols keep <- !is.na(rownames(airway)) airway <- airway[keep,] assays(airway)[[1]] # DESeq2差异分析 library('DESeq2') dds <- DESeqDataSet(airway, design = ~ cell + dex) dds <- DESeq(dds, betaPrior=FALSE) res <- results(dds, contrast = c('dex','trt','untrt')) res <- lfcShrink(dds, contrast = c('dex','trt','untrt'), res=res, type = 'normal') res EnhancedVolcano(res, lab = rownames(res), x = 'log2FoldChange', y = 'pvalue', title = 'N061011 versus N61311', pCutoff = 10e-32, FCcutoff = 0.5, pointSize = 3.0, labSize = 6.0) res$GeneID = rownames(res) out = res[, c('GeneID', 'log2FoldChange', 'pvalue')] write.table(out, 'airway_deg.tsv', sep='\t', row.names = F, quote=F)

EnhancedVolcano 绘制效果,我们后续作图跟该图进行比较:

完成差异分析后,我们将这 3 列(GeneID, log2FoldChange, pvalue)保存到一个文件 airway_deg.tsv 中,然后上传到平台。

开始作图

工具:Volcano Plotwith Publication-Quality (Galaxy Version 1.0)

参数设置:

  • 差异表达分析结果表:airway_deg.tsv

  • 阈值与坐标

    • 显著性阈值 (padj / FDR / qvalue):10e-32

    • 差异倍数阈值 (log2FoldChange threshold):0.5

    • Y 轴显示范围:150.0

  • • 高级设置

    • Y 轴标签:-log10 p-value

结果如下:

这个图就清爽多了。

标记基因

很多时候我们希望标记一些感兴趣的基因,可以将这些基因通过一个文件传给工具。

我们先用 filter 工具筛选一下显著差异基因,参数设置如下:

  • • 注:这个阈值设定供用于测试,实际一般不这样设置。

可以看到有 123 个显著差异基因,都画在图上有点多,我们取 top 20 吧,这里用于 **Select first **工具:

结果:

我们接着再 Cut 一下,将基因一列切出来:

重命名一下,结果:

现在重新作图,除了修改参数:

其他参数跟前面设置完全一样。

标记感兴趣的基因后的效果:

还可以吧。

写在最后

此文并非说 EnhancedVolcano 或者 ggplot2 包的效果不行。它们都非常优秀,并且广受好评。只不过对于作图,每个人的审美偏好不同。作为平台,只有丰富工具的品种,以满足丰富多样的个性化需求。

推荐阅读

中国银河生信云平台(UseGalaxy.cn)致力于零代码生信分析。平台拥有海量计算资源、3000 多个生信工具和数十条生信流程,并且为用户提供 200G 免费存储空间。进群交流请先加 usegalaxy 为好友。我们还为进阶用户提供高质量培训课程:

RNA-seq数据分析实战 | 2026年第1期,开启你的生信学习之旅

版权声明: 本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若内容造成侵权/违法违规/事实不符,请联系邮箱:809451989@qq.com进行投诉反馈,一经查实,立即删除!
网站建设 2026/8/7 4:56:31

低成本语音定制方案:基于GPT-SoVITS的轻量级训练实践

低成本语音定制方案&#xff1a;基于GPT-SoVITS的轻量级训练实践 在智能语音助手、虚拟主播和无障碍服务日益普及的今天&#xff0c;用户对“个性化声音”的需求正从奢侈走向必需。然而&#xff0c;传统语音合成系统动辄需要数小时的专业录音与高昂的训练成本&#xff0c;让大多…

作者头像 李华
网站建设 2026/7/28 9:14:27

GPT-SoVITS能否实现语音性别转换?技术实测

GPT-SoVITS能否实现语音性别转换&#xff1f;技术实测 在虚拟主播、AI配音和无障碍交互日益普及的今天&#xff0c;一个现实而迫切的问题摆在开发者面前&#xff1a;如何用最少的数据&#xff0c;把一段男声自然地“变”成女声&#xff0c;或者反过来&#xff0c;而不失真、不…

作者头像 李华
网站建设 2026/8/3 10:12:32

B站音频下载终极指南:无损提取与批量处理完整教程

B站音频下载终极指南&#xff1a;无损提取与批量处理完整教程 【免费下载链接】BilibiliDown (GUI-多平台支持) B站 哔哩哔哩 视频下载器。支持稍后再看、收藏夹、UP主视频批量下载|Bilibili Video Downloader &#x1f633; 项目地址: https://gitcode.com/gh_mirrors/bi/Bi…

作者头像 李华
网站建设 2026/7/28 7:44:00

HashCheck Windows文件校验工具完全指南

HashCheck Windows文件校验工具完全指南 【免费下载链接】HashCheck HashCheck Shell Extension for Windows with added SHA2, SHA3, and multithreading; originally from code.kliu.org 项目地址: https://gitcode.com/gh_mirrors/ha/HashCheck HashCheck 是一款专为…

作者头像 李华
网站建设 2026/8/3 3:52:30

5个真实痛点告诉你为什么需要.NET Windows Desktop Runtime

当你开发Windows桌面应用时&#xff0c;是否经常遇到这些问题&#xff1a;不同系统版本兼容性差、部署过程复杂、多语言支持困难&#xff1f;这些问题正是.NET Windows Desktop Runtime要帮你解决的核心痛点。作为专门支持Windows Forms和WPF应用程序的运行时环境&#xff0c;它…

作者头像 李华
网站建设 2026/7/29 0:27:57

Boss-Key隐私保护工具终极指南:告别职场尴尬时刻

还记得那个让你心跳加速的场景吗&#xff1f;老板突然出现在身后&#xff0c;而你正在浏览私人网页&#xff1b;同事无意间瞥见你的聊天窗口&#xff1b;会议投影时不小心打开了不该出现的应用……这些尴尬时刻是否曾让你手足无措&#xff1f; 【免费下载链接】Boss-Key 老板来…

作者头像 李华