Wrench is a normalization technique for metagenomic count data. While principally developed for sparse 16S count data from metagenomic experiments, it can also be applied to normalizing count data from other sparse technologies like single cell RNAseq, functional microbiome etc.,.
Given (a) count data organized as features (OTUs, genes etc.,) x samples, and (b) experimental group labels associated with samples, Wrench outputs a normalization factor for each sample. The data is normalized by dividing each sample’s counts with its normalization factor.
The manuscript can be accessed here: https://www.biorxiv.org/content/early/2018/01/31/142851
An unwanted side-effect of DNA sequencing is that the observed counts retain only relative abundance/expression information. Comparing such relative abundances between experimental conditions/groups (for e.g., with differential abundance analysis) can cause problems. Specifically, in the presence of features that are differentially abundant in absolute abundances, truly unperturbed features can be identified as being differentially abundant. Commonly used techniques like rarefaction/subsampling/dividing by the total count and other variants of these approaches, do not correct for this issue. Wrench was developed to address this problem of reconstructing absolute from relative abundances based on some commonly exploited assumptions in genomics.
The Introduction section in the manuscript presented here: https://www.biorxiv.org/content/early/2018/01/31/142851 provide some perspective on various commonly used normalization techniques from the above standpoint, and we recommend reading through it.
Download package.
if (!requireNamespace("BiocManager", quietly = TRUE))
install.packages("BiocManager")
BiocManager::install("Wrench")Or install the development version of the package from Github.
BiocManager::install(“HCBravoLab/Wrench”)Load the package.
library(Wrench)Below, we present a quick tutorial, where we pass count data, and group information to generate compositional and normalization factors. Details on any optional parameters are provided by typing “?wrench” in the R terminal window.
#extract count and group information for from the mouse microbiome data in the metagenomeSeq package
data(mouseData)
mouseData## MRexperiment (storageMode: environment)
## assayData: 10172 features, 139 samples
## element names: counts
## protocolData: none
## phenoData
## sampleNames: PM1:20080107 PM1:20080108 ... PM9:20080303 (139 total)
## varLabels: mouseID date ... status (5 total)
## varMetadata: labelDescription
## featureData
## featureNames: Prevotellaceae:1 Lachnospiraceae:1 ...
## Parabacteroides:956 (10172 total)
## fvarLabels: superkingdom phylum ... OTU (7 total)
## fvarMetadata: labelDescription
## experimentData: use 'experimentData(object)'
## Annotation:counts <- MRcounts( mouseData, norm=FALSE ) #get the counts
counts[1:10,1:2]## PM1:20080107 PM1:20080108
## Prevotellaceae:1 0 0
## Lachnospiraceae:1 0 0
## Unclassified-Screened:1 0 0
## Clostridiales:1 0 0
## Clostridiales:2 0 0
## Firmicutes:1 0 0
## PeptostreptococcaceaeIncertaeSedis:1 0 0
## Clostridiales:3 0 0
## Lachnospiraceae:7 0 0
## Lachnospiraceae:8 0 0group <- pData(mouseData)$diet #get the group/condition vector
head(group)## [1] "BK" "BK" "BK" "BK" "BK" "BK"#Running wrench with defaults
W <- wrench( counts, condition=group )
compositionalFactors <- W$ccf
normalizationFactors <- W$nf
head( compositionalFactors ) #one factor for each sample## PM1:20080107 PM1:20080108 PM1:20080114 PM1:20071211 PM1:20080121 PM1:20071217
## 0.7540966 0.8186825 1.0423187 1.2690286 0.7860119 1.3059309head( normalizationFactors) #one factor for each sample## PM1:20080107 PM1:20080108 PM1:20080114 PM1:20071211 PM1:20080121 PM1:20071217
## 0.3364660 0.7051424 1.3295084 0.8530978 0.7545386 2.1273695Introducing the above normalization factors for the most commonly used tools is shown below.
# -- If using metagenomeSeq
normalizedObject <- mouseData #mouseData is already a metagenomeSeq object
normFactors(normalizedObject) <- normalizationFactors
# -- If using edgeR, we must pass in the compositional factors
edgerobj <- edgeR::DGEList( counts=counts,
group = as.matrix(group),
norm.factors=compositionalFactors )
# -- If using DESeq/DESeq2
deseq.obj <- DESeq2::DESeqDataSetFromMatrix(countData = counts,
DataFrame(group),
~ group )## converting counts to integer modedeseq.obj## class: DESeqDataSet
## dim: 10172 139
## metadata(1): version
## assays(1): counts
## rownames(10172): Prevotellaceae:1 Lachnospiraceae:1 ... Bryantella:103
## Parabacteroides:956
## rowData names(0):
## colnames(139): PM1:20080107 PM1:20080108 ... PM9:20080225 PM9:20080303
## colData names(1): groupsizeFactors(deseq.obj) <- normalizationFactorsWrench currently implements strategies for categorical group labels only. While extension to continuous covariates is still in development, you can create factors/levels out of your continuous covariates (however you think is reasonable) by discretizing/cutting them in pieces.
time <- as.numeric(as.character(pData(mouseData)$relativeTime))
time.levs <- cut( time, breaks = c(0, 6, 28, 42, 56, 70) )
overall_group <- paste( group, time.levs ) #merge the time information and the group information together
W <- wrench( counts, condition = overall_group )In cases of very low sample depths and high sparsity, one might find a roughly linear trend between the reconstructed compositional factors (“ccf” entry in the returned list object from Wrench) and the sample depths (total count of a sample) within each experimental group. This can potentially be caused by a large number of zeros affecting the average estimate of the sample-wise ratios of proportions in a downward direction. Existing approaches that exploit zeroes during estimation also suffer from this issue (for instance, varying Scran’s abundance filtering by changing the “min.mean” parameter will reveal the same issue, although in general we have found their pooling approach to be slightly less sensitive with their default abundance filtering).
If you find this happening with the Wrench reconstructed compositional factors, and if you can assume it is reasonable to do so, you can use the detrend=T option (a work in progress) in Wrench to remove such linear trends within groups. It is also worth mentioning that even though low sample-depth samples’ compositional factors can show this behavior, in our experience, we have often found that group-wise averages of compositional factors can still be robust.
sessionInfo()## R version 4.1.1 (2021-08-10)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 20.04.3 LTS
##
## Matrix products: default
## BLAS: /home/biocbuild/bbs-3.14-bioc/R/lib/libRblas.so
## LAPACK: /home/biocbuild/bbs-3.14-bioc/R/lib/libRlapack.so
##
## 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
##
## attached base packages:
## [1] stats4 stats graphics grDevices utils datasets methods
## [8] base
##
## other attached packages:
## [1] DESeq2_1.34.0 SummarizedExperiment_1.24.0
## [3] MatrixGenerics_1.6.0 matrixStats_0.61.0
## [5] GenomicRanges_1.46.0 GenomeInfoDb_1.30.0
## [7] IRanges_2.28.0 S4Vectors_0.32.0
## [9] Wrench_1.12.0 edgeR_3.36.0
## [11] metagenomeSeq_1.36.0 RColorBrewer_1.1-2
## [13] glmnet_4.1-2 Matrix_1.3-4
## [15] limma_3.50.0 Biobase_2.54.0
## [17] BiocGenerics_0.40.0
##
## loaded via a namespace (and not attached):
## [1] bitops_1.0-7 bit64_4.0.5 httr_1.4.2
## [4] tools_4.1.1 bslib_0.3.1 utf8_1.2.2
## [7] R6_2.5.1 KernSmooth_2.23-20 DBI_1.1.1
## [10] colorspace_2.0-2 tidyselect_1.1.1 bit_4.0.4
## [13] compiler_4.1.1 DelayedArray_0.20.0 sass_0.4.0
## [16] caTools_1.18.2 scales_1.1.1 genefilter_1.76.0
## [19] stringr_1.4.0 digest_0.6.28 rmarkdown_2.11
## [22] XVector_0.34.0 pkgconfig_2.0.3 htmltools_0.5.2
## [25] fastmap_1.1.0 rlang_0.4.12 RSQLite_2.2.8
## [28] shape_1.4.6 jquerylib_0.1.4 generics_0.1.1
## [31] jsonlite_1.7.2 BiocParallel_1.28.0 gtools_3.9.2
## [34] dplyr_1.0.7 RCurl_1.98-1.5 magrittr_2.0.1
## [37] GenomeInfoDbData_1.2.7 Rcpp_1.0.7 munsell_0.5.0
## [40] fansi_0.5.0 lifecycle_1.0.1 stringi_1.7.5
## [43] yaml_2.2.1 zlibbioc_1.40.0 gplots_3.1.1
## [46] grid_4.1.1 blob_1.2.2 parallel_4.1.1
## [49] crayon_1.4.1 lattice_0.20-45 Biostrings_2.62.0
## [52] splines_4.1.1 annotate_1.72.0 KEGGREST_1.34.0
## [55] locfit_1.5-9.4 knitr_1.36 pillar_1.6.4
## [58] geneplotter_1.72.0 codetools_0.2-18 XML_3.99-0.8
## [61] glue_1.4.2 evaluate_0.14 png_0.1-7
## [64] vctrs_0.3.8 foreach_1.5.1 purrr_0.3.4
## [67] gtable_0.3.0 assertthat_0.2.1 cachem_1.0.6
## [70] ggplot2_3.3.5 xfun_0.27 xtable_1.8-4
## [73] survival_3.2-13 tibble_3.1.5 iterators_1.0.13
## [76] AnnotationDbi_1.56.0 memoise_2.0.0 ellipsis_0.3.2