topGO

前面我们讲过GO.db这个包，现在接着延伸topGO包，该包是用来协助GO富集分析

1）安装

if("topGO" %in% rownames(installed.packages()) == FALSE) {source("http://bioconductor.org/biocLite.R");biocLite("topGO")}

suppressMessages(library(topGO))

ls("package:topGO")

2）使用方法

该包主要有三个使用步骤：

2.1、Data preparation:准备数据集，用于构建 topGOdata.对象。

2.1.1、包括gene标识符(List of genes identiﬁers)及相应的分值gene scores(例如p值等)
2.1.2、差异表达基因list或经一定标准按照分值筛选的基因集用于后续分析(list of diﬀerentially expressed genes or a criteria for selecting genes
based on their scores)；
2.1.3、identifier和GO term间的map，即GOterm表:（gene-to-GO annotations ） ####例如测试文件中的geneid2go.map
2.1.4、GO的层级结构，由GO.db提供，目前这个包只支持GO.db提供的结构

goterm表示例（gene-to-GO annotations ）：

2.2、Running enrichment tests：进行富集分析，用任何可行的混合统计测试和方法来处理 GO拓扑结构(GO topology)

2.3、Analysis results：用 summary functions 和 visualisation tools对第二步进行统计和可视化

3）简单示例(guide)

3.1.1、准备输入文件

library(ALL)

data(ALL)

data(geneList)   ##文件1：基因list，

affyLib <- paste(annotation(ALL), "db", sep = ".")          #####"hgu95av2.db"

library(package = affyLib, character.only = TRUE)       ########GO term表

sum(topDiffGenes(geneList)     ###选择差异基因集，

3.1.2、构建 topGOdata对象(核心步骤)：

sampleGOdata <- new("topGOdata",

                     description = "Simple session",  ##topGOdata的描述，可选

　　　　　　　　        ontology = "BP",                 ##可指定要分析的GO term的类型，即BP、CC之类

                     allGenes = geneList,             ##基因identifier的原始列表

　　　　　　　　        geneSel = topDiffGenes,          ##geneSelectionFun联合作用，筛选出后续参与分析的基因

                     nodeSize = 10,                   ##富集的GO term辖下基因的最小数目，这里选择10.即最少10个

                     annot = annFUN.db,               ##提取gene-to-GO mappings 的对应关系

　　　　　　　         affyLib = affyLib)

sampleGOdata

3.2 Performing the enrichment tests

有了topGOdata对象，接下来就可以用来进行富集分析。这里用两种检验方法：Fisher’s exact test (基于 gene counts)和Kolmogorov-Smirnov like test (computes enrichment based on gene scores)。
其中用runTest函数来进行这些检验，该函数含有3个参数：第一个是topGOdata对象、第二个是algorithm(用于指定处理 GO graph structured的方法）、第三个是statistic(用于指定检验方法)

resultFisher <- runTest(sampleGOdata, algorithm = "classic", statistic = "fisher")   ##Fisher’s exact test

resultKS <- runTest(sampleGOdata, algorithm = "classic", statistic = "ks")  #Kolmogorov-Smirnov test,classic method

resultKS.elim <- runTest(sampleGOdata, algorithm = "elim", statistic = "ks")#Kolmogorov-Smirnov test, elim method

3.3 Analysis of results

当富集检验结束后，我们就可以分析并解析结果。

runTest()这个函数用来分析显著富集的 GO terms及其相应的p值。

allRes <- GenTable(sampleGOdata,                 ##之前构建的topGOdata实例

　　　　　          classicFisher = resultFisher,  ##生成GO graphde的方法

                  classicKS = resultKS,          ##生成GO graphde的方法

　　　　　          elimKS = resultKS.elim,        ##生成GO graphde的方法

                  orderBy = "elimKS",

　　　　　          ranksOf = "classicFisher",

　　　　　          topNodes = 10)                 ##这里显示前10个显著结果

用 score()函数来测评topGO结果对象中 GO term的 p-values ，并用散点图来说明。

pValue.classic <- score(resultKS)

pValue.elim <- score(resultKS.elim)[names(pValue.classic)]

gstat <- termStat(sampleGOdata, names(pValue.classic))

gSize <- gstat$Annotated / max(gstat$Annotated) * 4

plot(pValue.classic, pValue.elim, xlab = "p-value classic", ylab = "p-value elim",pch = 19, cex = gSize)

差看显著富集的GO terms在 GO graph中的分布.

showSigOfNodes(sampleGOdata, score(resultKS.elim), firstSigNodes = 5, useInfo = 'all')

4)实战

4.1 原始数据集的准备（上面的4个文件）

library(topGO)

library(ALL) ##准备数据集

data(ALL)    ##文件1：原始数据集

BPterms <- ls(GOBPTerm)

MFterms <- ls(GOMFTerm)

CCterms <- ls(GOCCTerm)

head(BPterms)

head(MFterms)

head(CCterms)

library(genefilter)   ##对原始数据进行过滤

selProbes <- genefilter(ALL, filterfun(pOverA(0.20, log2(100)), function(x) (IQR(x) > 0.25)))#数据清洗

eset <- ALL[selProbes, ]   ##数据清洗：这里去掉及其低表达的基因，及探针在每个样品中表达变化不大的的基因


myInterestingGenes <- sample(geneNames, length(geneNames) / 10) #文件二：经一定标准对p值等筛选获取感兴趣基因集用于后续分析
geneList <- factor(as.integer(geneNames %in% myInterestingGenes))
names(geneList) <- geneNames
str(geneList)

geneID2GO <- readMappings(file = system.file("examples/geneid2go.map", package = "topGO"))##文件三：goterm的map文件
str(head(geneID2GO))

GO2geneID <- inverseList(geneID2GO)  ###额外知识：用inverseList()函数实现gene-to-GOs与 GO-to-genes 之间的转换
str(head(GO2geneID))     ##

巴特西

topGO

最新文章

热门文章