Introduction to the TBSignatureProfiler
October 27, 2020
Package
TBSignatureProfiler 1.2.0
Contents
1 Introduction to the TBSignatureProfiler
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.
2 Installation
In order to install the TBSignatureProfiler from Bioconductor, run the following code:
if (!requireNamespace("BiocManager", quietly=TRUE))
install.packages("BiocManager")
BiocManager::install("TBSignatureProfiler")3 Compatibility with SummarizedExperiment objects
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.
4 A Quick Tutorial for the TBSignature Profiler
4.1 Load packages
suppressPackageStartupMessages({
library(TBSignatureProfiler)
library(SummarizedExperiment)
})4.2 Run Shiny App
This command is to start the TBSignatureProfiler shiny app. For shiny app tutorials, please go to our website, and select the tab labeled “Interactive Shiny Analysis.”
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.
4.3 Load dataset from a SummarizedExperiment object
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): countsWe 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 cpm log_counts log_cpm4.4 Profile the data
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_5" "Blankley_380"
## [7] "Bloom_OD_144" "Esmail_82" "Esmail_203"
## [10] "Esmail_OD_893" "Gliddon_OD_3" "Gliddon_OD_4"
## [13] "Jacobsen_3" "Kaforou_27" "Kaforou_OD_44"
## [16] "Kaforou_OD_53" "Lee_4" "Leong_RISK_29"
## [19] "Maertzdorf_4" "Maertzdorf_OD_100" "Rajan_HIV_5"
## [22] "Roe_3" "Roe_OD_4" "Sambarey_HIV_10"
## [25] "Singhania_OD_20" "Sloot_HIV_2" "Suliman_4"
## [28] "Suliman_RISK_4" "Sweeney_OD_3" "Thompson_9"
## [31] "Thompson_FAIL_13" "Thompson_RES_5" "Walter_51"
## [34] "Walter_PNA_47" "Walter_PNA_119" "Zak_RISK_16"## 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_cpm",
signatures = TBsignatures,
algorithm = "ssGSEA",
combineSigAndAlgorithm = TRUE,
parallel.sz = 1))## Running ssGSEAWhen 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)4.5 Visualization with TBSignatureProfiler Plots
4.5.1 Heatmap with all Signatures
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)
4.5.2 Boxplots of Scores, All Signatures
Another method of visualization for scores is that of boxplots. When multiple signatures in the input data are to be compared, the signatureBoxplot function takes the scores for each signature and produces an individual boxplot, with jittered points representing individual sample scores. For this specific example, it is clear that some signatures do a better job at differentiating the TB/HIV and HIV only samples than others, as seen by overlapping or separate spreads of the adjacent boxplots.
signatureBoxplot(inputData = ssgsea_result,
name = "Boxplots of Signatures, ssGSEA",
signatureColNames = names(TBsignatures),
annotationColName = "Disease", rotateLabels = FALSE)
4.5.3 Compare scoring methods for a single signature
The compareAlgs function allows multiple scoring methods to be compared via a heatmap or boxplot with samples on the columns and methods on the rows. Here, we compare scoring methods for the “Anderson_42” signature. It seems that singscore may be the best method here, as its sample scores most closely align with the information provided by the annotation data.
An examination of the boxplot and heatmap together determine that PLAGE and the comparing Z-score methods are least helpful in correctly identifying TB from LTBI subjects - AUC scores are little more than 0.5 and subjects in different groups are falsely assigned similar scores. According to the boxplot, we see that ssGSEA has the highest predictive AUC.
# Heatmap
compareAlgs(hivtb_data, annotationColName = "Disease",
scale = TRUE,
algorithm = c("GSVA", "ssGSEA",
"singscore", "PLAGE", "Zscore"),
useAssay = "log_counts",
signatures = TBsignatures[1],
choose_color = col.me, show.pb = FALSE,
parallel.sz = 1)
# Boxplot
compareAlgs(hivtb_data, annotationColName = "Disease",
scale = TRUE,
algorithm = c("GSVA", "ssGSEA",
"singscore", "PLAGE", "Zscore"),
useAssay = "log_counts",
signatures = TBsignatures[1],
choose_color = col.me, show.pb = FALSE,
parallel.sz = 1, output = "boxplot")
5 Additional Documentation and Tutorials
The functions presented as part of this vignette are but a limited subset of those available in the TBSignatureProfiler package. A more complete tutorial is available by going to our website, and selecting the tab labeled “Command Line Analysis.”
6 Session Info
sessionInfo()## R version 4.0.3 (2020-10-10)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 18.04.5 LTS
##
## Matrix products: default
## BLAS: /home/biocbuild/bbs-3.12-bioc/R/lib/libRblas.so
## LAPACK: /home/biocbuild/bbs-3.12-bioc/R/lib/libRlapack.so
##
## locale:
## [1] LC_CTYPE=en_US.UTF-8 LC_NUMERIC=C
## [3] LC_TIME=en_US.UTF-8 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
##
## attached base packages:
## [1] parallel stats4 stats graphics grDevices utils datasets
## [8] methods base
##
## other attached packages:
## [1] SummarizedExperiment_1.20.0 Biobase_2.50.0
## [3] GenomicRanges_1.42.0 GenomeInfoDb_1.26.0
## [5] IRanges_2.24.0 S4Vectors_0.28.0
## [7] BiocGenerics_0.36.0 MatrixGenerics_1.2.0
## [9] matrixStats_0.57.0 TBSignatureProfiler_1.2.0
## [11] BiocStyle_2.18.0
##
## loaded via a namespace (and not attached):
## [1] bitops_1.0-6 GSVA_1.38.0 bit64_4.0.5
## [4] RColorBrewer_1.1-2 httr_1.4.2 tools_4.0.3
## [7] R6_2.4.1 DT_0.16 DBI_1.1.0
## [10] colorspace_1.4-1 GetoptLong_1.0.4 withr_2.3.0
## [13] tidyselect_1.1.0 gridExtra_2.3 bit_4.0.4
## [16] compiler_4.0.3 graph_1.68.0 Cairo_1.5-12.2
## [19] DelayedArray_0.16.0 labeling_0.4.2 bookdown_0.21
## [22] scales_1.1.1 readr_1.4.0 stringr_1.4.0
## [25] digest_0.6.27 bioDist_1.62.0 rmarkdown_2.5
## [28] XVector_0.30.0 pkgconfig_2.0.3 htmltools_0.5.0
## [31] limma_3.46.0 htmlwidgets_1.5.2 rlang_0.4.8
## [34] GlobalOptions_0.1.2 RSQLite_2.2.1 farver_2.0.3
## [37] shape_1.4.5 generics_0.0.2 jsonlite_1.7.1
## [40] gtools_3.8.2 crosstalk_1.1.0.1 BiocParallel_1.24.0
## [43] dplyr_1.0.2 RCurl_1.98-1.2 magrittr_1.5
## [46] GenomeInfoDbData_1.2.4 Matrix_1.2-18 Rcpp_1.0.5
## [49] munsell_0.5.0 lifecycle_0.2.0 stringi_1.5.3
## [52] yaml_2.2.1 edgeR_3.32.0 zlibbioc_1.36.0
## [55] plyr_1.8.6 grid_4.0.3 blob_1.2.1
## [58] gdata_2.18.0 crayon_1.3.4 lattice_0.20-41
## [61] annotate_1.68.0 circlize_0.4.10 hms_0.5.3
## [64] magick_2.5.0 locfit_1.5-9.4 knitr_1.30
## [67] ComplexHeatmap_2.6.0 pillar_1.4.6 rjson_0.2.20
## [70] boot_1.3-25 reshape2_1.4.4 fastmatch_1.1-0
## [73] XML_3.99-0.5 glue_1.4.2 evaluate_0.14
## [76] BiocManager_1.30.10 png_0.1-7 vctrs_0.3.4
## [79] gtable_0.3.0 purrr_0.3.4 tidyr_1.1.2
## [82] ROCit_2.1.1 clue_0.3-57 ggplot2_3.3.2
## [85] xfun_0.18 xtable_1.8-4 e1071_1.7-4
## [88] class_7.3-17 singscore_1.10.0 tibble_3.0.4
## [91] AnnotationDbi_1.52.0 memoise_1.1.0 cluster_2.1.0
## [94] ellipsis_0.3.1 ggfortify_0.4.11 GSEABase_1.52.0