Biological molecules in a living organism seldom work individually. They usually interact each other in a cooperative way. Biological process is too complicated to understand without considering such interactions. These associations can be conveniently represented as networks (graphs) with nodes (vertices) for molecules and links (edges) for interactions between them. Thus, network-based procedures can be seen as powerful methods for studying complex process. For example, cancer may be better characterized by frequently mutated or dysregulated pathways than driver mutations. However, many methods are devised for analyzing individual genes. It is said that techniques based on biological networks such as gene co-expression are more precise ways to represent information than those using lists of genes only. This package is aimed to integrate the gene expression and biological network. A biological network is constructed from gene expression data and it is used for Gene Set Enrichment Analysis.
Recently, network module-based methods have been proposed as a powerful tool to analyze and interpret gene expression data. For example, a co-expression gene network exhibit distinctive connection structures, including their topologies. In particular, the highly connected genes, or hub genes located at the functional center of the network, should have a high tendency to be associated with their phenotypic outcome. In case that a pathway is represented as a network with nodes and edges, its topology is essential for evaluating the importance of the pathway. However, the widely used statistical methods were designed for individual genes, which may detect too many irrelevant significantly genes or too few genes to describe the phenotypic changes. One possible reason is that most of the existing functional enrichment analyses ignore topological information. Therfore, they are limited for applicability. To overcome this limitation, the original functional enrichment method is extended by assigning network centralities such as node weights. The rationale behind this is that all nodes are not equally important because of hub genes. A fundamental problem in the analysis of complex networks is the determination of how important a certain node is. Centrality measures such as node strength show how influential that node is in the overall network. It assigns relative scores to all nodes within the graph. For simplicity, degree centrality or node strength is used as a centrality measure by default. For over-representation analysis, the label propagation algorithm is employed to score nodes in this package.
Label propagation is a semi-supervised learning that assigns labels for unlabelled nodes in a network. Each node will be labeled, based on the corresponding score. These score can be used as a statistic for GSEA. Thus ORA can be performed by GSEA. For the example of GSEA for the label propagation, consider Lung Adenocarcinoma data from TCGA. We have set our threshold to 0.7, so only those nodes with similarities higher than 0.7 will be considered neighbors. Consider recurrently mutated genes from MutSig and KEGG pathways. In the result, we can see that these mutated genes are enriched at cancer relevant signaling pathways such as ERBB and MAPK pathways. The warning message indicates that there are many genes that have the same score and so are ranked equally, which means that they are not affected by recurrently mutated genes.
library(gsean)
library(TCGAbiolinks)
library(SummarizedExperiment)
# TCGA LUAD
query <- GDCquery(project = "TCGA-LUAD",
data.category = "Gene expression",
data.type = "Gene expression quantification",
platform = "Illumina HiSeq",
file.type = "normalized_results",
experimental.strategy = "RNA-Seq",
legacy = TRUE)
GDCdownload(query, method = "api")
invisible(capture.output(data <- GDCprepare(query)))
exprs.LUAD <- assay(data)
# remove duplicated gene names
exprs.LUAD <- exprs.LUAD[-which(duplicated(rownames(exprs.LUAD))),]
# list of genes
recur.mut.gene <- c("KRAS", "TP53", "STK11", "RBM10", "SPATA31C1", "KRTAP4-11",
"DCAF8L2", "AGAP6", "KEAP1", "SETD2", "ZNF679", "FSCB",
"BRAF", "ZNF770", "U2AF1", "SMARCA4", "HRNR", "EGFR")
# KEGG_hsa
load(system.file("data", "KEGG_hsa.rda", package = "gsean"))
# GSEA
set.seed(1)
result.GSEA <- gsean(KEGG_hsa, recur.mut.gene, exprs.LUAD, threshold = 0.7)
invisible(capture.output(p <- GSEA.barplot(result.GSEA, category = 'pathway',
score = 'NES', pvalue = 'padj',
sort = 'padj', top = 20)))
p <- GSEA.barplot(result.GSEA, category = 'pathway', score = 'NES',
pvalue = 'padj', sort = 'padj', top = 20)
p + theme(plot.margin = margin(10, 10, 10, 75))Gene expression data are analyzed to identify differentially expressed genes. Consider pasilla RNA-seq count data. By using the Wald statistic in this example, GSEA can be performed with Gene Ontology terms from http://www.go2msig.org/cgi-bin/prebuilt.cgi?taxid=7227. Thus, it is expected that we may find the biological functions related to change in phenotype from the network, rather than individual genes.
library(gsean)
library(pasilla)
library(DESeq2)
# pasilla count data
pasCts <- system.file("extdata", "pasilla_gene_counts.tsv",
package = "pasilla", mustWork = TRUE)
cts <- as.matrix(read.csv(pasCts, sep="\t", row.names = "gene_id"))
condition <- factor(c(rep("untreated", 4), rep("treated", 3)))
dds <- DESeqDataSetFromMatrix(
countData = cts,
colData = data.frame(condition),
design = ~ 0 + condition)
# filtering
keep <- rowSums(counts(dds)) >= 10
dds <- dds[keep,]
# differentially expressed genes
dds <- DESeq(dds)
resultsNames(dds)## [1] "conditiontreated" "conditionuntreated"res <- results(dds, contrast = list("conditiontreated", "conditionuntreated"), listValues = c(1, -1))
statistic <- res$stat
names(statistic) <- rownames(res)
exprs.pasilla <- counts(dds, normalized = TRUE)
# convert gene id
library(org.Dm.eg.db)
gene.id <- AnnotationDbi::select(org.Dm.eg.db, names(statistic), "ENTREZID", "FLYBASE")
names(statistic) <- gene.id[,2]
rownames(exprs.pasilla) <- gene.id[,2]
# GO_dme
load(system.file("data", "GO_dme.rda", package = "gsean"))
# GSEA
set.seed(1)
result.GSEA <- gsean(GO_dme, statistic, exprs.pasilla)## log2 transformed for correlationinvisible(capture.output(p <- GSEA.barplot(result.GSEA, category = 'pathway',
score = 'NES', top = 50, pvalue = 'padj',
sort = 'padj', numChar = 110) +
theme(plot.margin = margin(10, 10, 10, 50))))
plotly::ggplotly(p)## R version 4.1.1 (2021-08-10)
## Platform: x86_64-w64-mingw32/x64 (64-bit)
## Running under: Windows Server x64 (build 17763)
##
## Matrix products: default
##
## locale:
## [1] LC_COLLATE=C
## [2] LC_CTYPE=English_United States.1252
## [3] LC_MONETARY=English_United States.1252
## [4] LC_NUMERIC=C
## [5] LC_TIME=English_United States.1252
##
## attached base packages:
## [1] stats4 stats graphics grDevices utils datasets methods
## [8] base
##
## other attached packages:
## [1] org.Dm.eg.db_3.14.0 AnnotationDbi_1.56.0
## [3] DESeq2_1.34.0 SummarizedExperiment_1.24.0
## [5] Biobase_2.54.0 MatrixGenerics_1.6.0
## [7] matrixStats_0.61.0 GenomicRanges_1.46.0
## [9] GenomeInfoDb_1.30.0 IRanges_2.28.0
## [11] S4Vectors_0.32.0 pasilla_1.21.0
## [13] gsean_1.14.0 PPInfer_1.20.0
## [15] yeastExpData_0.39.0 graph_1.72.0
## [17] BiocGenerics_0.40.0 STRINGdb_2.6.0
## [19] igraph_1.2.7 ggplot2_3.3.5
## [21] kernlab_0.9-29 biomaRt_2.50.0
## [23] fgsea_1.20.0
##
## loaded via a namespace (and not attached):
## [1] snow_0.4-3 backports_1.2.1 Hmisc_4.6-0
## [4] fastmatch_1.1-3 BiocFileCache_2.2.0 plyr_1.8.6
## [7] lazyeval_0.2.2 splines_4.1.1 crosstalk_1.1.1
## [10] BiocParallel_1.28.0 digest_0.6.28 foreach_1.5.1
## [13] htmltools_0.5.2 GO.db_3.14.0 fansi_0.5.0
## [16] magrittr_2.0.1 checkmate_2.0.0 memoise_2.0.0
## [19] cluster_2.1.2 doParallel_1.0.16 fastcluster_1.2.3
## [22] Biostrings_2.62.0 annotate_1.72.0 prettyunits_1.1.1
## [25] jpeg_0.1-9 colorspace_2.0-2 blob_1.2.2
## [28] rappdirs_0.3.3 xfun_0.27 dplyr_1.0.7
## [31] crayon_1.4.1 RCurl_1.98-1.5 jsonlite_1.7.2
## [34] genefilter_1.76.0 impute_1.68.0 survival_3.2-13
## [37] iterators_1.0.13 glue_1.4.2 hash_2.2.6.1
## [40] gtable_0.3.0 zlibbioc_1.40.0 XVector_0.34.0
## [43] DelayedArray_0.20.0 scales_1.1.1 DBI_1.1.1
## [46] Rcpp_1.0.7 plotrix_3.8-2 viridisLite_0.4.0
## [49] xtable_1.8-4 progress_1.2.2 htmlTable_2.3.0
## [52] foreign_0.8-81 bit_4.0.4 preprocessCore_1.56.0
## [55] Formula_1.2-4 sqldf_0.4-11 htmlwidgets_1.5.4
## [58] httr_1.4.2 gplots_3.1.1 RColorBrewer_1.1-2
## [61] ellipsis_0.3.2 farver_2.1.0 pkgconfig_2.0.3
## [64] XML_3.99-0.8 nnet_7.3-16 sass_0.4.0
## [67] dbplyr_2.1.1 locfit_1.5-9.4 utf8_1.2.2
## [70] dynamicTreeCut_1.63-1 labeling_0.4.2 tidyselect_1.1.1
## [73] rlang_0.4.12 munsell_0.5.0 tools_4.1.1
## [76] cachem_1.0.6 gsubfn_0.7 generics_0.1.1
## [79] RSQLite_2.2.8 evaluate_0.14 stringr_1.4.0
## [82] fastmap_1.1.0 yaml_2.2.1 knitr_1.36
## [85] bit64_4.0.5 caTools_1.18.2 purrr_0.3.4
## [88] KEGGREST_1.34.0 xml2_1.3.2 compiler_4.1.1
## [91] rstudioapi_0.13 plotly_4.10.0 filelock_1.0.2
## [94] curl_4.3.2 png_0.1-7 tibble_3.1.5
## [97] geneplotter_1.72.0 bslib_0.3.1 stringi_1.7.5
## [100] lattice_0.20-45 Matrix_1.3-4 vctrs_0.3.8
## [103] pillar_1.6.4 lifecycle_1.0.1 jquerylib_0.1.4
## [106] data.table_1.14.2 bitops_1.0-7 R6_2.5.1
## [109] latticeExtra_0.6-29 KernSmooth_2.23-20 gridExtra_2.3
## [112] codetools_0.2-18 gtools_3.9.2 assertthat_0.2.1
## [115] chron_2.3-56 proto_1.0.0 withr_2.4.2
## [118] GenomeInfoDbData_1.2.7 parallel_4.1.1 hms_1.1.1
## [121] grid_4.1.1 rpart_4.1-15 tidyr_1.1.4
## [124] rmarkdown_2.11 WGCNA_1.70-3 base64enc_0.1-3Gu, Z., Liu, J., Cao, K., Zhang, J., & Wang, J. (2012). Centrality-based pathway enrichment: a systematic approach for finding significant pathways dominated by key genes. BMC systems biology, 6(1), 56.
Wu, J. (2016). Transcriptomics and Gene Regulation. Springer.
Zhang, W., Chien, J., Yong, J., & Kuang, R. (2017). Network-based machine learning and graph theory algorithms for precision oncology. npj Precision Oncology, 1(1), 25.