lefser: a Megatanomic biomarker discovery tool
2024-11-01
Contents
1 Overview
1.1 Background
lefser is the R implementation of the Linear discriminant analysis (LDA) Effect Size (LEfSe), a Python package for metagenomic biomarker discovery and explanation. (Huttenhower et al. 2011).
The original software utilizes standard statistical significance tests along with supplementary tests that incorporate biological consistency and the relevance of effects to identity the features (e.g., organisms, clades, OTU, genes, or functions) that are most likely to account for differences between the two sample classes of interest. While LEfSe is widely used and available in different platform such as Galaxy UI and Conda, there is no convenient way to incorporate it in R-based workflows. Thus, we re-implement LEfSe as an R/Bioconductor package, lefser. Following the LEfSe‘s algorithm including Kruskal-Wallis test, Wilcoxon-Rank Sum test, and Linear Discriminant Analysis, with some modifications, lefser successfully reproduces and improves the original statistical method and the associated plotting functionality.
1.2 Install and load pacakge
if (!requireNamespace("BiocManager", quietly = TRUE))
install.packages("BiocManager")
BiocManager::install("lefser")library(lefser)2 Analysis example
2.1 Prepare input
lefser package include the demo dataset, zeller14, which is the
microbiome data from colorectal cancer (CRC) patients and controls
(Zeller et al. 2014).
In this vignette, we excluded the ‘adenoma’ condition and used control/CRC as the main classes and age category as sub-classes (adult vs. senior) with different numbers of samples: control-adult (n = 46), control-senior (n = 20), CRC-adult (n = 45), and CRC-senior (n = 46).
data(zeller14)
zeller14 <- zeller14[, zeller14$study_condition != "adenoma"]The class and subclass information is stored in the colData slot under the
study_condition and age_category columns, respectively.
## Contingency table
table(zeller14$age_category, zeller14$study_condition)#>
#> CRC control
#> adult 45 46
#> senior 46 20If you try to run lefser directly on the ‘zeller14’ data, you will get the
following warning messages
lefser(zeller14, classCol = "study_condition", subclassCol = "age_category")Warning messages:
1: In lefser(zeller14, classCol = "study_condition", subclassCol = "age_category") :
Convert counts to relative abundances with 'relativeAb()'
2: In lda.default(x, classing, ...) : variables are collinear2.1.1 Terminal node
When working with taxonomic data, including both terminal and non-terminal nodes in the analysis can lead to collinearity problems. Non-terminal nodes (e.g., genus) are often linearly dependent on their corresponding terminal nodes (e.g., species) since the species-level information is essentially a subset or more specific representation of the genus-level information. This collinearity can violate the assumptions of certain statistical methods, such as linear discriminant analysis (LDA), and can lead to unstable or unreliable results. By using only terminal nodes, you can effectively eliminate this collinearity issue, ensuring that your analysis is not affected by linearly dependent or highly correlated variables. Additionally, you can benefit of avoiding redundancy, increasing specificity, simplifying data, and reducing ambiguity, using only terminal nodes.
You can select only the terminal node using get_terminal_nodes function.
tn <- get_terminal_nodes(rownames(zeller14))
zeller14tn <- zeller14[tn,]2.1.2 Relative abundance
First warning message informs you that lefser requires relative abundance of
features. You can use relativeAb function to reformat your input.
zeller14tn_ra <- relativeAb(zeller14tn)2.2 Run lefser
The lefser function returns a data.frame with two columns - the names of
selected features (the features column) and their effect size (the scores
column).
There is a random number generation step in the lefser algorithm to ensure
that more than half of the values for each features are unique. In most cases,
inputs are sparse, so in practice, this step is handling 0s. So to reproduce
the identical result, you should set the seed before running lefser.
set.seed(1234)
res <- lefser(zeller14tn_ra, # relative abundance only with terminal nodes
classCol = "study_condition",
subclassCol = "age_category")
head(res)#> features
#> 1 k__Bacteria|p__Firmicutes|c__Clostridia|o__Clostridiales|f__Oscillospiraceae|g__Oscillibacter|s__Oscillibacter_unclassified
#> 2 k__Bacteria|p__Firmicutes|c__Clostridia|o__Clostridiales|f__Peptostreptococcaceae|g__Peptostreptococcus|s__Peptostreptococcus_stomatis|t__GCF_000147675
#> 3 k__Bacteria|p__Bacteroidetes|c__Bacteroidia|o__Bacteroidales|f__Porphyromonadaceae|g__Porphyromonas|s__Porphyromonas_asaccharolytica|t__Porphyromonas_asaccharolytica_unclassified
#> 4 k__Bacteria|p__Firmicutes|c__Clostridia|o__Clostridiales|f__Clostridiaceae|g__Clostridium|s__Clostridium_symbiosum|t__Clostridium_symbiosum_unclassified
#> 5 k__Bacteria|p__Firmicutes|c__Bacilli|o__Bacillales|f__Bacillales_noname|g__Gemella|s__Gemella_morbillorum|t__GCF_000185645
#> 6 k__Bacteria|p__Fusobacteria|c__Fusobacteriia|o__Fusobacteriales|f__Fusobacteriaceae|g__Fusobacterium|s__Fusobacterium_nucleatum|t__Fusobacterium_nucleatum_unclassified
#> scores
#> 1 -3.336170
#> 2 -2.941230
#> 3 -2.834329
#> 4 -2.706471
#> 5 -2.579108
#> 6 -2.4319152.3 Visualization using lefserPlot
lefserPlot(res)
3 Benchmarking againt other tools
The codes for benchmarking lefser against LEfSe and the other R implementation of LEfSe is available here.
4 Interoperating with phyloseq
When using phyloseq objects, we recommend to extract the data and create a
SummarizedExperiment object as follows:
library(phyloseq)
library(SummarizedExperiment)
## Load phyloseq object
fp <- system.file("extdata",
"study_1457_split_library_seqs_and_mapping.zip",
package = "phyloseq")
kostic <- microbio_me_qiime(fp)#> Found biom-format file, now parsing it...
#> Done parsing biom...
#> Importing Sample Metdadata from mapping file...
#> Merging the imported objects...
#> Successfully merged, phyloseq-class created.
#> Returning...## Split data tables
counts <- unclass(otu_table(kostic))
coldata <- as(sample_data(kostic), "data.frame")
## Create a SummarizedExperiment object
SummarizedExperiment(assays = list(counts = counts), colData = coldata)#> class: SummarizedExperiment
#> dim: 2505 190
#> metadata(0):
#> assays(1): counts
#> rownames(2505): 304309 469478 ... 206906 298806
#> rowData names(0):
#> colnames(190): C0333.N.518126 C0333.T.518046 ... 32I9UNA9.518098
#> BFJMKNMP.518102
#> colData names(71): X.SampleID BarcodeSequence ... HOST_TAXID
#> DescriptionYou may also consider using makeTreeSummarizedExperimentFromPhyloseq from
the mia package.
mia::makeTreeSummarizedExperimentFromPhyloseq(kostic)#> class: TreeSummarizedExperiment
#> dim: 2505 190
#> metadata(0):
#> assays(1): counts
#> rownames(2505): 304309 469478 ... 206906 298806
#> rowData names(7): Kingdom Phylum ... Genus Species
#> colnames(190): C0333.N.518126 C0333.T.518046 ... 32I9UNA9.518098
#> BFJMKNMP.518102
#> colData names(71): X.SampleID BarcodeSequence ... HOST_TAXID
#> Description
#> reducedDimNames(0):
#> mainExpName: NULL
#> altExpNames(0):
#> rowLinks: NULL
#> rowTree: NULL
#> colLinks: NULL
#> colTree: NULL5 Session Info
sessionInfo()#> R Under development (unstable) (2024-10-21 r87258)
#> Platform: x86_64-pc-linux-gnu
#> Running under: Ubuntu 24.04.1 LTS
#>
#> Matrix products: default
#> BLAS: /home/biocbuild/bbs-3.21-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] stats4 stats graphics grDevices utils datasets methods
#> [8] base
#>
#> other attached packages:
#> [1] phyloseq_1.51.0 lefser_1.17.1
#> [3] SummarizedExperiment_1.37.0 Biobase_2.67.0
#> [5] GenomicRanges_1.59.0 GenomeInfoDb_1.43.0
#> [7] IRanges_2.41.0 S4Vectors_0.45.0
#> [9] BiocGenerics_0.53.1 generics_0.1.3
#> [11] MatrixGenerics_1.19.0 matrixStats_1.4.1
#> [13] BiocStyle_2.35.0
#>
#> loaded via a namespace (and not attached):
#> [1] splines_4.5.0 ggplotify_0.1.2
#> [3] tibble_3.2.1 rpart_4.1.23
#> [5] DirichletMultinomial_1.49.0 lifecycle_1.0.4
#> [7] lattice_0.22-6 MASS_7.3-61
#> [9] MultiAssayExperiment_1.33.0 backports_1.5.0
#> [11] magrittr_2.0.3 Hmisc_5.2-0
#> [13] sass_0.4.9 rmarkdown_2.28
#> [15] jquerylib_0.1.4 yaml_2.3.10
#> [17] DBI_1.2.3 minqa_1.2.8
#> [19] ade4_1.7-22 multcomp_1.4-26
#> [21] abind_1.4-8 zlibbioc_1.53.0
#> [23] purrr_1.0.2 yulab.utils_0.1.7
#> [25] nnet_7.3-19 TH.data_1.1-2
#> [27] sandwich_3.1-1 GenomeInfoDbData_1.2.13
#> [29] ggrepel_0.9.6 irlba_2.3.5.1
#> [31] tidytree_0.4.6 testthat_3.2.1.1
#> [33] vegan_2.6-8 rbiom_1.0.3
#> [35] permute_0.9-7 DelayedMatrixStats_1.29.0
#> [37] codetools_0.2-20 coin_1.4-3
#> [39] DelayedArray_0.33.1 scuttle_1.17.0
#> [41] tidyselect_1.2.1 aplot_0.2.3
#> [43] UCSC.utils_1.3.0 farver_2.1.2
#> [45] lme4_1.1-35.5 ScaledMatrix_1.15.0
#> [47] viridis_0.6.5 base64enc_0.1-3
#> [49] jsonlite_1.8.9 BiocNeighbors_2.1.0
#> [51] multtest_2.63.0 decontam_1.27.0
#> [53] mia_1.15.2 Formula_1.2-5
#> [55] survival_3.7-0 scater_1.35.0
#> [57] iterators_1.0.14 foreach_1.5.2
#> [59] tools_4.5.0 treeio_1.31.0
#> [61] Rcpp_1.0.13 glue_1.8.0
#> [63] gridExtra_2.3 SparseArray_1.7.0
#> [65] xfun_0.49 mgcv_1.9-1
#> [67] TreeSummarizedExperiment_2.15.0 dplyr_1.1.4
#> [69] withr_3.0.2 BiocManager_1.30.25
#> [71] fastmap_1.2.0 boot_1.3-31
#> [73] rhdf5filters_1.19.0 bluster_1.17.0
#> [75] fansi_1.0.6 digest_0.6.37
#> [77] rsvd_1.0.5 R6_2.5.1
#> [79] gridGraphics_0.5-1 colorspace_2.1-1
#> [81] lpSolve_5.6.21 utf8_1.2.4
#> [83] tidyr_1.3.1 data.table_1.16.2
#> [85] DECIPHER_3.3.0 httr_1.4.7
#> [87] htmlwidgets_1.6.4 S4Arrays_1.7.1
#> [89] pkgconfig_2.0.3 gtable_0.3.6
#> [91] modeltools_0.2-23 SingleCellExperiment_1.29.0
#> [93] XVector_0.47.0 brio_1.1.5
#> [95] htmltools_0.5.8.1 bookdown_0.41
#> [97] biomformat_1.35.0 scales_1.3.0
#> [99] ggfun_0.1.7 knitr_1.48
#> [101] rstudioapi_0.17.1 reshape2_1.4.4
#> [103] checkmate_2.3.2 nlme_3.1-166
#> [105] nloptr_2.1.1 cachem_1.1.0
#> [107] zoo_1.8-12 rhdf5_2.51.0
#> [109] stringr_1.5.1 parallel_4.5.0
#> [111] vipor_0.4.7 libcoin_1.0-10
#> [113] foreign_0.8-87 pillar_1.9.0
#> [115] grid_4.5.0 vctrs_0.6.5
#> [117] slam_0.1-54 BiocSingular_1.23.0
#> [119] beachmat_2.23.0 cluster_2.1.6
#> [121] beeswarm_0.4.0 htmlTable_2.4.3
#> [123] evaluate_1.0.1 tinytex_0.54
#> [125] magick_2.8.5 mvtnorm_1.3-1
#> [127] cli_3.6.3 compiler_4.5.0
#> [129] rlang_1.1.4 crayon_1.5.3
#> [131] labeling_0.4.3 mediation_4.5.0
#> [133] plyr_1.8.9 fs_1.6.5
#> [135] ggbeeswarm_0.7.2 stringi_1.8.4
#> [137] viridisLite_0.4.2 BiocParallel_1.41.0
#> [139] munsell_0.5.1 Biostrings_2.75.0
#> [141] lazyeval_0.2.2 Matrix_1.7-1
#> [143] patchwork_1.3.0 sparseMatrixStats_1.19.0
#> [145] ggplot2_3.5.1 Rhdf5lib_1.29.0
#> [147] highr_0.11 igraph_2.1.1
#> [149] RcppParallel_5.1.9 bslib_0.8.0
#> [151] ggtree_3.15.0 ape_5.8