前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >systemPipeTools--强化你的数据可视化工具!

systemPipeTools--强化你的数据可视化工具!

作者头像
作图丫
发布2022-03-29 10:53:37
3020
发布2022-03-29 10:53:37
举报
文章被收录于专栏:作图丫

导语

GUIDE ╲

systemPipeTools 包扩展了广泛使用的 systemPipeR (SPR)工作流程环境。

背景介绍

systemPipeTools是扩展了systemPipeR包的数据可视化工具包,包括差异表达基因 (DEG) 分析的自动化工具 。systemPipeTools 通过散点图、层次聚类热图、主成分分析、多维缩放、广义主成分、t-SNE以及MA和火山图提供数据转换和数据探索功能。 由于它集成了多种类型图片的绘制功能,可以让我们只用systemPipeTools就能进行丰富的可视化!

R包安装

代码语言:javascript
复制
BiocManager::install("systemPipeTools")
BiocManager::install("systemPipeR")
library("systemPipeTools")  # Loads the package
library(help = "systemPipeTools")

可视化展示

01

导入数据

第一步是导入目标文件和原始reads计数表。

代码语言:javascript
复制
## 目标文件
targetspath <- system.file("extdata", "targets.txt", package = "systemPipeR")
targets <- read.delim(targetspath, comment = "#")
cmp <- systemPipeR::readComp(file = targetspath, format = "matrix", delim = "-")
## Count计数表
countMatrixPath <- system.file("extdata", "countDFeByg.xls", package = "systemPipeR")
countMatrix <- read.delim(countMatrixPath, row.names = 1)
showDT(countMatrix)

数据转换

对于基因差异表达,需要原始count,但是对于数据可视化或聚类,使用转换的count数据比较好。输入文件必须包含所有基因,而不仅仅是差异表达的基因。

代码语言:javascript
复制
exploredds <- exploreDDS(countMatrix, targets, cmp = cmp[[1]], preFilter = NULL, 
    transformationMethod = "rlog")
exploredds

02

实例

层次聚类树状图

代码语言:javascript
复制
hclustplot(exploredds, method = "spearman")

散点图

代码语言:javascript
复制
exploreDDSplot(countMatrix, targets, cmp = cmp[[1]], preFilter = NULL, samples = c("M12A", 
    "M12A", "A12A", "A12A"), scattermatrix = TRUE)

分层聚类热图

代码语言:javascript
复制
heatMaplot(exploredds, clust = "samples", plotly = FALSE)
代码语言:javascript
复制
## Individuals genes identified in DEG analysis DEG analysis with `systemPipeR`
degseqDF <- systemPipeR::run_DESeq2(countDF = countMatrix, targets = targets, cmp = cmp[[1]], 
    independent = FALSE)
DEG_list <- systemPipeR::filterDEGs(degDF = degseqDF, filter = c(Fold = 2, FDR = 10))
代码语言:javascript
复制
heatMaplot(exploredds, clust = "ind", DEGlist = unique(as.character(unlist(DEG_list[[1]]))))

PCA

代码语言:javascript
复制
PCAplot(exploredds, plotly = FALSE)

均线图

此函数绘制 log2 倍数变化(y 轴)与归一化计数的平均值。

代码语言:javascript
复制
MAplot(degseqDF, comparison = "M12-A12", filter = c(Fold = 1, FDR = 20), genes = "ATCG00280")

tSNE

代码语言:javascript
复制
tSNEplot(countMatrix, targets, perplexity = 5)

火山图

代码语言:javascript
复制
volcanoplot(degseqDF, comparison = "M12-A12", filter = c(Fold = 1, FDR = 20), genes = "ATCG00280")

小编总结

systemPipeR可以系统的,重头到尾的分析NGS数据,systemPipeTools包扩展了systemPipeR的功能,提供了丰富的可视化方式,满足我们的各种需求!

本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2021-11-19,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 作图丫 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档