Performing differential abundance analysis using ZicoSeq

1. Introduction

ZicoSeq is a linear model and permutation-based method for dfferential abundance analysis of zero-inflated compositional sequencing data such as microbiome sequencing data. It has the following components:

Currently ZicoSeq supports:

2. Installation

Install the package.

# install.packages("GUniFrac")

Load the package.

library(GUniFrac)

3. Running ZicoSeq

3.1 Loading the example data

This example data set contains the OTU count data from the throat microbiome of the left body side, which is available in GUniFrac package. It contains 60 subjects consisting of 32 nonsmokers and 28 smokers (Charlson, Emily S., et al., 2010).. In this example, we will identify smoking-associated OTUs while adjusting the sex since sex is a potential confounder (we see more males in smokers).

data(throat.otu.tab)
data(throat.meta)
comm <- t(throat.otu.tab)
meta.dat <- throat.meta
meta.dat

3.2 Running ZicoSeq function

ZicoSeq.obj <- ZicoSeq(meta.dat = meta.dat, feature.dat = comm, 
                    grp.name = 'SmokingStatus', adj.name = 'Sex', feature.dat.type = "count",
                    # Filter to remove rare taxa
                    prev.filter = 0.2, mean.abund.filter = 0,  
                    max.abund.filter = 0.002, min.prop = 0, 
                    # Winsorization to replace outliers
                    is.winsor = TRUE, outlier.pct = 0.03, winsor.end = 'top',
                    # Posterior sampling 
                    is.post.sample = TRUE, post.sample.no = 25, 
                    # Use the square-root transformation
                    link.func = list(function (x) x^0.5), stats.combine.func = max,
                    # Permutation-based multiple testing correction
                    perm.no = 99,  strata = NULL, 
                    # Reference-based multiple stage normalization
                    ref.pct = 0.5, stage.no = 6, excl.pct = 0.2,
                    # Family-wise error rate control
                    is.fwer = TRUE, verbose = TRUE, return.feature.dat = TRUE)

3.3 Some notes on using ZicoSeq

3.3.1 Winsorization

Microbiome data may contain outliers with extremely large counts. These outliers could reduce the statistical power, or more seriously increase the type I error rate. In ZicoSeq, we use winsorization to replace those extremely large counts with a certain quantile (e.g. 97%). We recommend always setting is.winsor = TRUE for real data analysis. The specific quantile used depends on the expected proportion of outliers.

3.3.2 Posterior sampling

Posterior sampling can be enabled by setting is.post.sample = TRUE. It can only be used when the data type is “count”. For microbiome data, the majority of the taxa are rare, resulting in a large number of zeros in the data given a limited sequencing depth. As the probability of zero strongly depends on the sequencing depth, zeros from different samples are not comparable. In ZicoSeq, we provide a method to infer/impute the underlying true proportions using an empirical Bayes approach by pooling information across samples. The imputed proportions depend on both the sequencing depth and the estimated (prior) distribution of the proportions across samples. To better model the prior distribution, we used beta mixtures instead a single-component beta distribution. Posterior sampling effectively reduces the type I error when the sequencing depth is associated with the covariate of interest (e.g. cases and controls differ in sequencing depth) and is more powerful than rarefaction. When the sequencing depth is not a confounding factor, is.post.sample slightly improves the power and could be disabled for analyzing large datasets.

3.3.3 Omnibus testing

The relationship between the taxa abundance and the covariate of interest may vary across taxa, a single transformation function may not be powerful enough to capture diverse relationships. ZicoSeq allows specifying multiple possible transformation functions (link.func) and performs omnibus testing. Although the log transformation is commonly used for microbiome due to its interpretability, we found that power transformations may be more powerful. The default is the square-root transformation.

3.3.4 Reference selection

ZicoSeq uses a reference-based approach to address compositional effects. The default uses 30% of the least variable/significant taxa as the reference. It starts with selecting 50% of the least variable taxa as the reference and differential abundance testing is then run multiple times excluding 20% taxa with the smallest p-values in each iteration. This procedure is to make sure the remaining 30% are more likely to be non-differential.

3.3.5. Error control

ZicoSeq uses a permutation-based approach to control false discovery rate (FDR). The permutation-based FDR control preserves the correlation structure in the abundance data and is more robust and powerful than the traditional BH-based FDR control based on raw p values. ZicoSeq also allows performing permutation-based family-wise error rate control. Users can determine the appropriate error control method to suit their needs.

3.4 ZicoSeq output

The output of ZicoSeq consists of mainly:

3.4.1 p-values

  • p.raw: raw p-values based on permutations, it will not be accurate if perm.no is small.
  • p.adj.fdr: permutation-based FDR-adjusted p-values.
  • p.adj.fwer: permutation-based FWER-adjusted (West-Young), only if is.fwer = T in ZicoSeq. perm.no is recommened to set at least 999 for accurate FWER-adjusted p-values.

3.4.2 R^2 (percentage of variance explained)

A matrix of R^2 values (number of features by number of transformation functions) will be provided. R^2 is an effect size measure and can be used to assess the association strength between the taxa abundance and the covariate of interest while adjusting for other covariates. When the omnibus testing is in action, i.e., multiple transformations are used, there will be multiple R^2 s, each corresponding to a specific transformation.

3.5 ZicoSeq output visualization

ZicoSeq.plot function produces a volcano plot with the y-axis being the log10 (adjusted) p-value and the x-axis being the signed R^2 with the sign indicating the association direction determined based on the sign of the regression coefficient (for mutli-categorical variables, sign is not applicable). When multiple transformation functions are used, the largest R^2 is used. The names of differential taxa passing a specific significance cutoff will be printed on the figure. When data types are counts and proportions, the mean abundance and prevalence will be visualized; when the data type is other, mean and standard deviation of the features will be visualized. Users need to set return.feature.dat = T when using the plot function.

ZicoSeq.plot(ZicoSeq.obj, pvalue.type = 'p.adj.fdr', cutoff = 0.1, text.size = 10,
             out.dir = NULL, width = 10, height = 6)

3.6 More examples

3.6.1 Proportion data

For some bioinformatics pipelines, the output could be proportion data. ZicoSeq can be applied to proportion data by specifying feature.dat.type = "proportion" . Posterior sampling will not be applied when analyzing the proportions and other parameter settings are similar to the count case.

comm.p <- t(t(comm) / colSums(comm))
ZicoSeq.obj.p <- ZicoSeq(meta.dat = meta.dat, feature.dat = comm.p, 
                    grp.name = 'SmokingStatus', adj.name = 'Sex', feature.dat.type = "proportion",
                    # Filter to remove rare taxa
                    prev.filter = 0.2, mean.abund.filter = 0,  max.abund.filter = 0.002, min.prop = 0, 
                    # Winsorization to replace outliers
                    is.winsor = TRUE, outlier.pct = 0.03, winsor.end = 'top',
                    # Posterior sampling will be automatically disabled
                    is.post.sample = FALSE, post.sample.no = 25, 
                    # Use the square-root transformation
                    link.func = list(function (x) x^0.5, function (x) x^0.25), stats.combine.func = max,
                    # Permutation-based multiple testing correction
                    perm.no = 99,  strata = NULL, 
                    # Reference-based multiple stage normalization
                    ref.pct = 0.5, stage.no = 6, excl.pct = 0.2,
                    # Family-wise error rate control
                    is.fwer = TRUE, verbose = TRUE, return.feature.dat = T)
suppressWarnings(ZicoSeq.plot(ZicoSeq.obj = ZicoSeq.obj.p, pvalue.type = 'p.adj.fdr', 
             cutoff = 0.1, text.size = 10, out.dir = NULL, width = 10, height = 6))                    

3.6.2 General data types

ZicoSeq as a general linear model-based permutation test can be applied to association analyses of other high-dimensional datasets such as transcriptome-, methylome-, metabolome- and proteome-wide association testing, where the omics features are treated as the outcomes. In this case, posterior sampling will be automatically disabled. The user should be responsible for properly normalizing, transforming, and filtering the data before applying ZicoSeq. The user should also decide whether to winsorize the top, bottom or both ends of the distribution. The following code is just for demonstration purposes and does not mean to be applied for differential abundance analysis.

comm.o <- comm[rowMeans(comm != 0) >= 0.2, ] + 1
comm.o <- log(t(t(comm.o) / colSums(comm.o)))
ZicoSeq.obj.o <- ZicoSeq(meta.dat = meta.dat, feature.dat = comm.o, 
        grp.name = 'SmokingStatus', adj.name = 'Sex', feature.dat.type = "other",
        # Filter will not be applied
        prev.filter = 0, mean.abund.filter = 0,  max.abund.filter = 0, min.prop = 0, 
        # Winsorization the top end 
        is.winsor = TRUE, outlier.pct = 0.03, winsor.end = 'top',
        # Posterior sampling will be automatically disabled
        is.post.sample = FALSE, post.sample.no = 25, 
        # Identity function is used
        link.func = list(function (x) x), stats.combine.func = max,
        # Permutation-based multiple testing correction
        perm.no = 99,  strata = NULL, 
        # Reference-based multiple-stage normalization will not be performed
        ref.pct = 0.5, stage.no = 6, excl.pct = 0.2,
        # Family-wise error rate control
        is.fwer = TRUE, verbose = TRUE, return.feature.dat = T)
    ZicoSeq.plot(ZicoSeq.obj = ZicoSeq.obj.o,  pvalue.type = 'p.adj.fdr', 
             cutoff = 0.1, text.size = 10, out.dir = NULL, width = 10, height = 6)    

3.6.3 Random effect model - within-subject comparisons

ZicoSeq can be applied to perform within-subject comparisons (e.g. before treatment vs. after treatment) by using the strata parameter. For example, if the subject variable is “subject_id” in the meta data file, the user can set strata = 'subject_id' .

4. References

5. Session info

sessionInfo()
## R version 4.2.2 (2022-10-31)
## Platform: aarch64-apple-darwin20 (64-bit)
## Running under: macOS Ventura 13.5.1
## 
## Matrix products: default
## BLAS:   /Library/Frameworks/R.framework/Versions/4.2-arm64/Resources/lib/libRblas.0.dylib
## LAPACK: /Library/Frameworks/R.framework/Versions/4.2-arm64/Resources/lib/libRlapack.dylib
## 
## locale:
## [1] C/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
## 
## attached base packages:
## [1] stats     graphics  grDevices utils     datasets  methods   base     
## 
## other attached packages:
## [1] GUniFrac_1.8
## 
## loaded via a namespace (and not attached):
##  [1] statmod_1.5.0       tidyselect_1.2.0    xfun_0.38          
##  [4] bslib_0.4.2         splines_4.2.2       lattice_0.20-45    
##  [7] colorspace_2.1-0    vctrs_0.6.1         generics_0.1.3     
## [10] htmltools_0.5.5     rmutil_1.1.10       yaml_2.3.7         
## [13] mgcv_1.8-41         utf8_1.2.3          rlang_1.1.0        
## [16] stable_1.1.6        jquerylib_0.1.4     pillar_1.8.1       
## [19] withr_2.5.0         glue_1.6.2          matrixStats_1.0.0  
## [22] foreach_1.5.2       lifecycle_1.0.3     timeDate_4022.108  
## [25] munsell_0.5.0       fBasics_4022.94     gtable_0.3.1       
## [28] timeSeries_4021.105 statip_0.2.3        codetools_0.2-18   
## [31] evaluate_0.20       labeling_0.4.2      inline_0.3.19      
## [34] knitr_1.42          permute_0.9-7       fastmap_1.1.1      
## [37] modeest_2.4.0       parallel_4.2.2      fansi_1.0.4        
## [40] highr_0.10          Rcpp_1.0.10         scales_1.2.1       
## [43] cachem_1.0.7        vegan_2.6-4         jsonlite_1.8.4     
## [46] farver_2.1.1        ggplot2_3.4.2       digest_0.6.31      
## [49] dplyr_1.1.1         ggrepel_0.9.3       clue_0.3-64        
## [52] grid_4.2.2          stabledist_0.7-1    cli_3.6.0          
## [55] tools_4.2.2         magrittr_2.0.3      sass_0.4.5         
## [58] tibble_3.2.1        cluster_2.1.4       ape_5.7            
## [61] spatial_7.3-15      pkgconfig_2.0.3     MASS_7.3-58.1      
## [64] Matrix_1.5-1        rmarkdown_2.21      iterators_1.0.14   
## [67] rpart_4.1.19        R6_2.5.1            nlme_3.1-160       
## [70] compiler_4.2.2