TBSignatureProfiler 1.8.0
Tuberculosis (TB) is the leading cause of infectious disease mortality worldwide, causing on average nearly 1.4 million deaths per year. A consistent issue faced in controlling TB outbreak is difficulty in diagnosing individuals with particular types of TB infections for which bacteria tests (e.g., via GeneXpert, sputum) prove inaccurate. As an alternative mechanism of diagnosis for these infections, researchers have discovered and published multiple gene expression signatures as blood-based disease biomarkers. In this context, gene signatures are defined as a combined group of genes with a uniquely characteristic pattern of gene expression that occurs as a result of a medical condition. To date, more than 30 signatures have been published by researchers, though most have relatively low cross-condition validation (e.g., testing TB in samples from diverse geographic and comorbidity backgrounds). Furthermore, these signatures have never been formally collected and made available as a single unified resource.
We aim to provide the scientific community with a resource to access these aggregated signatures and to create an efficient means for their visual and quantitative comparison via open source software. This necessitated the development of the TBSignatureProfiler, a novel R package which delivers a computational profiling platform for researchers to characterize the diagnostic ability of existing signatures in multiple comorbidity settings. This software allows for signature strength estimation via several enrichment methods and subsequent visualization of single- and multi-pathway results. Its signature evaluation functionalities include signature profiling, AUC bootstrapping, and leave-one-out cross-validation (LOOCV) of logistic regression to approximate TB samples’ status. Its plotting functionalities include sample-signature score heatmaps, bootstrap AUC and LOOCV boxplots, and tables for presenting results.
More recently, the TBSignatureProfiler has undertaken a new role in analyzing signatures across multiple chronic airway diseases, the most recent being COVID-19 (see the COVIDsignatures
object). As we grow and expand the TBSignatureProfiler, we hope to add signatures from multiple diseases to improve the package’s utility in the area of gene signature comparison.
In order to install the TBSignatureProfiler from Bioconductor, run the following code:
if (!requireNamespace("BiocManager", quietly = TRUE))
install.packages("BiocManager")
BiocManager::install("TBSignatureProfiler")
While the TBSignatureProfiler often allows for the form of a data.frame
or matrix
as input data, the most ideal form of input for this package is that of the SummarizedExperiment
object. This is an amazing data structure that is being developed by the as part of the SummarizedExperiment package, and is imported as part of the TBSignatureProfiler package. It is able to store data matrices along with annotation information, metadata, and reduced dimensionality data
(PCA, t-SNE, etc.). To learn more about proper usage and context of the SummarizedExperiment
object, you may want to take a look at the package vignette. A basic understanding of the assay
and colData
properties of a SummarizedExperiment
will be useful for the purposes of this vignette.
suppressPackageStartupMessages({
library(TBSignatureProfiler)
library(SummarizedExperiment)
})
This command is to start the TBSignatureProfiler shiny app. Shiny app tutorials are forthcoming and will be uploaded to the package website.
TBSPapp()
The basic functions of the shiny app are also included in the command line version of the TBSignatureProfiler, which is the focus of the remainder of this vignette.
In this tutorial, we will work with HIV and Tuberculosis (TB) gene expression data in a SummarizedExperiment
format. This dataset is included in the TBSignatureProfiler package and can be loaded into the global environment with data("TB_hiv")
. The 31 samples in the dataset are marked as either having both TB and HIV infection, or HIV infection only.
We begin by examining the dataset, which contains a matrix of counts information (an “assay” in SummarizedExperiment terms) and another matrix of meta data information on our samples (the “colData”). We will also generate a few additional assays; these are the log(counts), the counts per million (CPM) reads mapped, and the log(CPM) assays.
## HIV/TB gene expression data, included in the package
hivtb_data <- TB_hiv
### Note that we have 25,369 genes, 33 samples, and 1 assay of counts
dim(hivtb_data)
## [1] 25369 31
# We start with only one assay
assays(hivtb_data)
## List of length 1
## names(1): counts
We now make a log counts, CPM and log CPM assay.
## Make a log counts, CPM and log CPM assay
hivtb_data <- mkAssay(hivtb_data, log = TRUE, counts_to_CPM = TRUE)
### Check to see that we now have 4 assays
assays(hivtb_data)
## List of length 4
## names(4): counts log_counts counts_cpm log_counts_cpm
The TBSignatureProfiler enables comparison of multiple Tuberculosis gene signatures. The package currently contains information on 34 signatures for comparison. The default signature list object for most functions here is TBsignatures
, although a list with publication-given signature names is also available as TBcommon
. Data frames of annotation information for these signatures, including information on associated disease and tissue type, can be accessed as sigAnnotData
and common_sigAnnotData
respectively.
With the runTBSigProfiler
function, we are able to score these signatures with a selection of algorithms, including gene set variation analysis (GSVA) (Hänzelmann et al, 2013), single-sample GSEA (ssGSEA) (Barbie et al, 2009), and the ASSIGN pathway profiling toolkit (Shen et al, 2015). For a complete list of included scoring methods, run ?runTBsigProfiler
in the terminal.
Here, we evaluate all signatures included in the package with ssGSEA. Paraphrasing from the ssGSEA documentation, for each pairing of one of the 31 samples and its gene set, ssGSEA calculates a separate enrichment score independent of the phenotypic labeling (in this case, whether a sample has HIV/TB, or HIV only). The single sample’s gene expression profile is then transformed to a gene set enrichment profile. A score from the set profile represents the activity level of the biological process in which the gene set’s members are coordinately up- or down-regulated.
## List all signatures in the profiler
data("TBsignatures")
names(TBsignatures)
## [1] "Anderson_42" "Anderson_OD_51" "Berry_393"
## [4] "Berry_OD_86" "Blankley_380" "Blankley_5"
## [7] "Bloom_OD_144" "Bloom_RES_268" "Bloom_RES_558"
## [10] "Chen_HIV_4" "Chendi_HIV_2" "Darboe_RISK_11"
## [13] "Dawany_HIV_251" "Duffy_23" "Esmail_203"
## [16] "Esmail_82" "Esmail_OD_893" "Estevez_133"
## [19] "Estevez_259" "Gjoen_10" "Gjoen_7"
## [22] "Gliddon_2_OD_4" "Gliddon_HIV_3" "Gliddon_OD_3"
## [25] "Gliddon_OD_4" "Gong_OD_4" "Heycken_FAIL_22"
## [28] "Hoang_OD_13" "Hoang_OD_20" "Hoang_OD_3"
## [31] "Huang_OD_13" "Jacobsen_3" "Jenum_8"
## [34] "Kaforou_27" "Kaforou_OD_44" "Kaforou_OD_53"
## [37] "Kulkarni_HIV_2" "LauxdaCosta_OD_3" "Lee_4"
## [40] "Leong_24" "Leong_RISK_29" "Long_RES_10"
## [43] "Maertzdorf_15" "Maertzdorf_4" "Maertzdorf_OD_100"
## [46] "PennNich_RISK_6" "Qian_OD_17" "Rajan_HIV_5"
## [49] "Roe_3" "Roe_OD_4" "Sambarey_HIV_10"
## [52] "Singhania_OD_20" "Sivakumaran_11" "Sloot_HIV_2"
## [55] "Suliman_4" "Suliman_RISK_2" "Suliman_RISK_4"
## [58] "Sweeney_OD_3" "Tabone_OD_11" "Tabone_RES_25"
## [61] "Tabone_RES_27" "Thompson_9" "Thompson_FAIL_13"
## [64] "Thompson_RES_5" "Tornheim_71" "Tornheim_RES_25"
## [67] "Verhagen_10" "Walter_51" "Walter_PNA_119"
## [70] "Walter_PNA_47" "Zak_RISK_16" "Zhao_NANO_6"
## [73] "Zimmer_RES_3"
## We can use all of these signatures for further analysis
siglist_hivtb <- names(TBsignatures)
## Run the TBSignatureProfiler to score the signatures in the data
out <- capture.output(ssgsea_result <- runTBsigProfiler(input = hivtb_data,
useAssay = "log_counts_cpm",
signatures = TBsignatures,
algorithm = "ssGSEA",
combineSigAndAlgorithm = TRUE,
parallel.sz = 1))
## Parameter update_genes is TRUE. Gene names will be updated.
## The following signatures have <2 genes that coincide with the genes in the given sample and will not be scored: Chendi_HIV_2
## Running ssGSEA
## Warning in .filterFeatures(expr, method): 2204 genes with constant expression
## values throuhgout the samples.
## Remove any signatures that were not scored
TBsignatures <- subset(TBsignatures, !(names(TBsignatures) %in% c("Chendi_HIV_2")))
When a SummarizedExperiment
is the format of the input data for runTBsigprofiler
, the returned object is also of the SummarizedExperiment
. The scores will be returned as a part of the colData.
Below, we subset the data to compare the enrichment scores for the Anderson_42, Anderson_OD_51, and Berry_393 signatures.
Signature Scores
## New colData entries from the Profiler
sigs <- c("Anderson_42", "Anderson_OD_51", "Berry_393")
ssgsea_print_results <- as.data.frame(colData(ssgsea_result))[, c("Disease", sigs)]
ssgsea_print_results[, 2:4] <- round(ssgsea_print_results[, 2:4], 4)
DT::datatable(ssgsea_print_results)
Commonly, enrichment scores are compared across signatures by means of a heatmap combined with clustering methods to group samples and/or scores. The signatureHeatmap
function uses the information from the score data to visualize changes in gene expression across samples and signatures (or genes, if only one signature is selected).
Here, the columns of the heatmap represent samples, and rows represent signatures. Rows are split according to annotation data with associated signature disease type. As we move across the columns, we see different patterns of gene expression as indicated by the varying color and intensity of individual rectangles. In the top bar, the solid red represents a sample is HIV infected only, and solid blue indicates that the sample is both HIV and TB infected. In the gradient area of the heatmap, the scaled scores are associated with either up-regulated or down-regulated genes. A cluster of samples near the bottom of the heatmap reveals that some signatures are inversely associated with TB/HIV identification, as their phenotypic mapping for lower/higher scores is nearly the opposite of most of the other signatures.
# Colors for gradient
colors <- RColorBrewer::brewer.pal(6, "Spectral")
col.me <- circlize::colorRamp2(seq(from = -2, to = 2,
length.out = 6), colors)
signatureHeatmap(ssgsea_result, name = "Heatmap of Signatures,
ssGSEA Algorithm",
signatureColNames = names(TBsignatures),
annotationColNames = "Disease",
scale = TRUE,
showColumnNames = TRUE,
choose_color = col.me)