GSEAmining
7 May 2020
Package
GSEAmining 1.16.0
Contents
1 Overview
Gene Set Enrichment Analysis (GSEA) is a very powerful and interesting computational method that allows an easy correlation between differential expressed genes and biological processes. Unfortunately, although it was designed to help researchers to interpret gene expression data it can generate huge amounts of results whose biological meaning can be difficult to interpret.
Many available tools rely on the hierarchically structured Gene Ontology (GO) classification to reduce reundandcy in the results. However, due to the popularity of GSEA many more gene set collections, such as those in the Molecular Signatures Database (MSigDB), are emerging. Since these collections are not organized as those in GO, their usage for GSEA do not always give a straightforward answer or, in other words, getting all the meaninful information can be challenging with the currently available tools. For these reasons, GSEAmining was born to be an easy tool to create reproducible reports to help researchers make biological sense of GSEA outputs.
Given the results of GSEA, GSEAmining clusters the different gene sets collections based on the presence of the same genes in the leadind edge (core) subset. Leading edge subsets are those genes that contribute most to the enrichment score of each collection of genes or gene sets. For this reason, gene sets that participate in similar biological processes should share genes in common and in turn cluster together. After that, GSEAmining is able to identify and represent for each cluster:
- The most enriched terms in the names of gene sets (as word clouds)
- The most enriched genes in the leading edge subsets (as bar plots).
In each case, positive and negative enrichments are shown in different colors so it is easy to distinguish biological processes or genes that may be of interest in that particular study.
2 Installation
You can install GSEAmining from Bioconductor:
if (!requireNamespace("BiocManager", quietly = TRUE))
install.packages("BiocManager")
BiocManager::install("GSEAmining")Or directly from GitHub:
install.packages("devtools") # If you have not installed "devtools" package
library(devtools)
devtools::install_github("oriolarques/GSEAmining")3 Input data format: gm_filter
By default GSEAmining is designed to accept the resuls of the GSEA function from the clusterProfiler package. For more information about this function click here. However, it is not mandatory to use this package.
In this example the data corresponds to GSEA analysis of differential expressed genes from treated versus control samples in HGPalmer-PDX-P30 experiment. Differential gene expression (tableTop) was obtained using the oligo and limma R packages.
- Generation of a geneList, which is a ranked list of all the genes, for GSEA using clusterProfiler.
# A geneList contains three features:
# 1.numeric vector: fold change or other type of numerical variable
# 2.named vector: every number has a name, the corresponding gene ID
# 3.sorted vector: number should be sorted in decreasing order
tableTop_p30 <- as.data.frame(tableTop_p30)
geneList = tableTop_p30[,2]
names(geneList) = as.character(tableTop_p30[,1])- Gmt files containing the different gene sets that will be analysed by GSEA. They can be downloaded from the MSigDB
library(clusterProfiler)
# Read the .gmt file from MSigDB
gmtC2<- read.gmt("gmt files/c2.all.v7.1.symbols.gmt")
gmtC5<- read.gmt('gmt files/c5.all.v7.1.symbols.gmt')
gmtHALL <- read.gmt('gmt files/h.all.v7.1.symbols.gmt')
# Merge all the gene sets
gmt_all <- rbind(gmtC2, gmtC5, gmtHALL)- Perform the GSEA.
GSEA_p30<-GSEA(geneList, TERM2GENE = gmt_all, nPerm = 1000, pvalueCutoff = 0.5)
# Selection of gene sets with a specific thershold in terms of NES and p.adjust
genesets_sel <- GSEA_p30@resultData should be in a data.frame with, at least three columns labelled as follows:
ID: The name of the gene set.
NES: Normalized Enrichment Score of the gene set.
core_enrichment: Genes that appear in the leading edge subset of the gene set.
# Structure of the data included in the package
data('genesets_sel', package = 'GSEAmining')
tibble::glimpse(genesets_sel)
#> Rows: 52
#> Columns: 4
#> $ ID <chr> "WATANABE_COLON_CANCER_MSI_VS_MSS_DN", "GO_RNA_BINDING…
#> $ NES <dbl> 2.511796, 2.234696, 2.200913, 2.167304, 2.127964, 2.11…
#> $ p.adjust <dbl> 0.02463671, 0.02716912, 0.03017176, 0.02612857, 0.0222…
#> $ core_enrichment <chr> "DACH1/DUOX2/GRM8/CDHR1/SPINK1/CEL/CYP2B6/C10orf99/SLC…gm_filter: Filter the input data
GSEA outputs normally presents tens or hundreds of genesets but many of them may not meet the thresholds for considering them significantly enriched. For that it is better to filter the data for a better visualization.
The gm_filter() function of GSEAmining allows this process to be very easy,
especially if the format of your data meets the aforementioned criteria.
library(GSEAmining)
data("genesets_sel", package = 'GSEAmining')
gs.filt <- gm_filter(genesets_sel,
p.adj = 0.05,
neg_NES = 2.6,
pos_NES = 2)4 Clustering
4.1 gm_clust: Creation of a gm_clust object
Using the gm_clust() function, we can create an object that will contain the
hierarchical clustering of the gene sets according to their genes in the
core_enrichment column. This function accepts the data frame created with
gm_filter. In the process, a distance matrix is calculated using the
binary method (from the dist() function in stats) and then a cluster with
the complete method (from hclust() function in stats) is created.
# Create an object that will contain the cluster of gene sets.
gs.cl <- gm_clust(gs.filt)4.2 gm_dendplot: Plot the cluster
The gm_dendplot() function uses (i) the filtered data frame and (ii) the
gm_clust object to plot the cluster dendrogram. It shows which gene sets are
positively or negatively enriched coloring them in red or blue respectively.
Additionally by default the function will highlight every other cluster with a
rectangle to facilitate the differentiation of all the clusters.
gm_dendplot(gs.filt,
gs.cl)
It is possible to tune the height of the dendrogram, the colors for the enrichment and the use of rectangles (and their sizes) for highlighting clusters.
gm_dendplot(gs.filt,
gs.cl,
col_pos = 'orange',
col_neg = 'black',
rect = TRUE,
dend_len = 20,
rect_len = 2)
5 Evaluation of gene sets enriched terms by cluster
To start getting an idea of what kind of biological processes are represented
in each cluster we can use gm_enrichterms(). This function plots word clouds
for the most enriched terms in the names of the different gene sets in each
cluster. Again it needs (i) the filtered data frame and (ii) the gm_clust
object created before. By default Positive or negative enrichment are colored
in red or in blue respectively and two ploting options are available:
- By cluster:
gm_enrichterms(gs.filt, gs.cl)
#> Warning in ggwordcloud::geom_text_wordcloud_area(eccentricity = 1,
#> area_corr_power = 1, : Ignoring unknown parameters: `area_corr_power`
- Without clustering:
gm_enrichterms(gs.filt,
gs.cl,
clust = FALSE,
col_pos = 'chocolate3',
col_neg = 'skyblue3')
#> Warning in ggwordcloud::geom_text_wordcloud_area(eccentricity = 1,
#> area_corr_power = 1, : Ignoring unknown parameters: `area_corr_power`
6 Evaluation of gene enrichment in leading edge subsets by clusters
As for the gene set terms, it is also possible to evaluate which are the most
enriched genes in the leading edge (or core enrichment) subsets in the
different clusters with the function gm_enrichcores(). In this case the
representation is shown as bar plots following the same options as in
gm_enrichterms() regarding colors and clustering the results.
gm_enrichcores(gs.filt, gs.cl)
Additionally, this function allows the possibility to
decide the number of the most top genes that will be plotted using the parameter
top. In case more than the indicated number of top genes appear the same
number of times in the same cluster they all will be shown.
7 gm_enrichreport: Create a report
Finally, the gm_enrichreport() is a tool that generates a pdf file where each
page contains both the terms word cloud and the leading edge bar plot for each of
the different clusters in the gm_clust object.
gm_enrichreport(gs.filt, gs.cl, output = 'gm_report')The outputparameter can be used to name the file that will be generated (by
default it will be called gm_report.pdf). As in the previous functions the
colors and the number of top genes are also editable parameters of the function.
8 SessionInfo()
sessionInfo()
#> R version 4.4.1 (2024-06-14)
#> Platform: x86_64-pc-linux-gnu
#> Running under: Ubuntu 24.04.1 LTS
#>
#> Matrix products: default
#> BLAS: /home/biocbuild/bbs-3.20-bioc/R/lib/libRblas.so
#> LAPACK: /usr/lib/x86_64-linux-gnu/lapack/liblapack.so.3.12.0
#>
#> locale:
#> [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
#> [3] LC_TIME=en_GB LC_COLLATE=C
#> [5] LC_MONETARY=en_US.UTF-8 LC_MESSAGES=en_US.UTF-8
#> [7] LC_PAPER=en_US.UTF-8 LC_NAME=C
#> [9] LC_ADDRESS=C LC_TELEPHONE=C
#> [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C
#>
#> time zone: America/New_York
#> tzcode source: system (glibc)
#>
#> attached base packages:
#> [1] stats graphics grDevices utils datasets methods base
#>
#> other attached packages:
#> [1] GSEAmining_1.16.0 BiocStyle_2.34.0
#>
#> loaded via a namespace (and not attached):
#> [1] viridis_0.6.5 janeaustenr_1.0.0 sass_0.4.9
#> [4] utf8_1.2.4 generics_0.1.3 slam_0.1-54
#> [7] xml2_1.3.6 stringi_1.8.4 lattice_0.22-6
#> [10] digest_0.6.37 magrittr_2.0.3 evaluate_1.0.1
#> [13] grid_4.4.1 bookdown_0.41 fastmap_1.2.0
#> [16] jsonlite_1.8.9 Matrix_1.7-1 tm_0.7-14
#> [19] tidytext_0.4.2 ggwordcloud_0.6.2 tinytex_0.53
#> [22] gridExtra_2.3 BiocManager_1.30.25 purrr_1.0.2
#> [25] fansi_1.0.6 viridisLite_0.4.2 scales_1.3.0
#> [28] jquerylib_0.1.4 cli_3.6.3 rlang_1.1.4
#> [31] tokenizers_0.3.0 commonmark_1.9.2 munsell_0.5.1
#> [34] withr_3.0.2 cachem_1.1.0 yaml_2.3.10
#> [37] parallel_4.4.1 NLP_0.3-0 tools_4.4.1
#> [40] dplyr_1.1.4 colorspace_2.1-1 ggplot2_3.5.1
#> [43] vctrs_0.6.5 R6_2.5.1 png_0.1-8
#> [46] magick_2.8.5 lifecycle_1.0.4 stringr_1.5.1
#> [49] pkgconfig_2.0.3 dendextend_1.18.1 pillar_1.9.0
#> [52] bslib_0.8.0 gtable_0.3.6 glue_1.8.0
#> [55] Rcpp_1.0.13 highr_0.11 xfun_0.48
#> [58] tibble_3.2.1 tidyselect_1.2.1 knitr_1.48
#> [61] farver_2.1.2 SnowballC_0.7.1 htmltools_0.5.8.1
#> [64] labeling_0.4.3 rmarkdown_2.28 compiler_4.4.1
#> [67] markdown_1.13 gridtext_0.1.5