scDblFinder 1.10.0
Analyses in single-cell RNAseq are typically limited to a relatively small (e.g. one or two thousands) set of features that are most informative; these are often the genes with a higher expression (and hence more chances of being quantified). In contrast, single-cell ATACseq (scATACseq) data is considerably more sparse, with most reads being spread across hundreds of thousands of regions. In this context, selecting a subset of genes is highly ineffective, and therefore many of the methods developed for single-cell RNAseq are not easily applicable, and need to be adapted. Methods have therefore been developed specifically for scATACseq data (Granja et al. 2021; Thibodeau et al. 2021).
This vignette presents different approaches to doublet detection in single-cell ATAC-seq implemented in the package: the first is an adaptation of scDblFinder, the second a reimplementation of the AMULET method from Thibodeau et al. (2021). The latter has the advantage of capturing homotypic doublets, but does not perform well in all datasets, and especially requires the cells to have a high library size. We therefore next present two ways of combining the two.
With default parameters, the scDblFinder method performs very poorly on scATACseq data due to the increase spread of the reads across many features. Since working with all features (i.e. tiles or peaks) is computationally very expensive, an alternative approach is to begin by reducing the size of the dataset, not through selection (as in scRNAseq), but by aggregating correlated features into a relatively small set.
This has the advantage of using all information, as well as making the count data more continuous.
This method yields comparable performance to specialized single-cell ATACseq software (Germain et al., 2021).
The feature aggregation can be triggered using the aggregateFeatures=TRUE argument, which will aggregate peak or tile counts into the number of meta-features defined by the nfeatures.
If the number of meta-features is low (which we recommend), the meta-features can be directly used to calculated distances rather than going through the SVD step (which can be triggered with the processing argument). Such an example would be:
library(scDblFinder)
# we use a dummy SingleCellExperiment as example:
sce <- mockDoubletSCE(ngenes=300)
# setting low number of artificial doublets (same as ncells) just for speedup:
sce <- scDblFinder(sce, artificialDoublets=1, aggregateFeatures=TRUE, nfeatures=25, processing="normFeatures")## Aggregating features...## Creating ~520 artificial doublets...## Dimensional reduction## Evaluating kNN...## Training model...## iter=0, 52 cells excluded from training.## iter=1, 38 cells excluded from training.## iter=2, 38 cells excluded from training.## Threshold found:0.647## 18 (3.5%) doublets calledThe AMULET method from Thibodeau et al. (2021) is based on the assumption that, in a diploid cell, any given genomic region should be captured at most twice. Therefore, cells with loci covered by more than two fragments are indicative of the droplet being a doublet. Of note, this approach has the advantage of capturing homotypic doublets, which instead tend to be missed by other methods. Since it was only available in the form of a mixture of java and python scripts, we re-implemented the method in scDblFinder (see ?amulet), leading to equal or superior results to the original implementation (Germain et al. 2021).
As in the original implementation, we recommend excluding the mitochondrial and sex chromosomes, as well as repetitive regions. This can be specified with the regionsToExclude argument (see the underlying ?getFragmentOverlaps). It can be used as follows:
# here we use a dummy fragment file for example:
fragfile <- system.file("extdata", "example_fragments.tsv.gz", package="scDblFinder")
# we might also give a GRanges of repeat elements, so that these regions are excluded:
suppressPackageStartupMessages(library(GenomicRanges))
repeats <- GRanges("chr6", IRanges(1000,2000))
# it's better to combine these with mitochondrial and sex chromosomes
otherChroms <- GRanges(c("M","chrM","MT","X","Y","chrX","chrY"),IRanges(1L,width=10^8))
# here since I don't know what chromosome notation you'll be using I've just put them all,
# although this will trigger a warning when combining them:
toExclude <- suppressWarnings(c(repeats, otherChroms))
# we then launch the method
res <- amulet(fragfile, regionsToExclude=toExclude)## Fragment file is not tabix-indexed, requiring thewhole file to be imported in memory.## 17:59:25 - Splitting and subsetting barcodes...## 17:59:25 - Obtaining overlaps...res## nFrags uniqFrags nAbove2 total.nAbove2 p.value q.value
## barcode1 878 878 1 1 0.475069053 0.791781755
## barcode2 2401 2401 0 0 0.798103482 0.798103482
## barcode3 2325 2325 1 1 0.475069053 0.791781755
## barcode4 1882 1882 0 0 0.798103482 0.798103482
## barcode5 1355 1355 6 6 0.001335761 0.006678806The results is a data.frame with statistics for each barcode, including a p-value. In contrast to the scDblFinder score, a lower p-value here is indicative of the droplet being more likely to be a doublet (as in the original method).
By default, only the barcodes with a minimum number of reads are considered, but it is possible to specify the droplets for which to gather statistics using the barcodes argument.
While the package includes an implementation that works based on peak/tile count matrices (see ?amuletFromCounts), it has a much lower performance with respect to the one based directly on the fragment files (see ?amulet), and we therefore discourage its use.
The workhorse behind the amulet function is the getFragmentOverlaps, which also includes all of the relevant arguments.
If the fragment files are not Tabix-indexed, the whole fragment file will have to be loaded in memory for processing; while this ensures relatively rapid computation, it has high memory requirements. Therefore, if the fragment file is Tabix-indexed (as is for instance done as part of the ArchR pipeline), it will be read and processed per chromosome, which is a little slower due to overhead, but keeps memory requirements rather low. This behavior can be disabled by specifying fullInMemory=TRUE.
While the scDblFinder-based approach generally performs well, none of the two approach is optimal across all datasets tested. We therefore investigated two strategies for combining the rationales of each approach.
The Amulet method tends to perform best with datasets that have homotypic doublets and where cells have a high library size (i.e. median library size per cell of 10-15k reads), while the scDblFinder-based approach works better for heterotypic doublets. Until an optimal solution is found, we recommend using multiple approaches to inform decisions, in particular using the p-value combination method below.
The clamulet method (Classification-powered Amulet-like method) operates similarly to the scDblFinder method, but generates artificial doublets by operating on the fragment coverages. This has the advantage that the number of loci covered by more than two reads can be computed for artificial doublets, enabling the use of this feature (along with the kNN-based ones) in a classification scheme. It however has the disadvantage of being rather slow and memory hungry, and appears to be outperformed by a simple p-value combination of the two methods (see below).
The clamulet method uses the aforementioned aggregation approach, and its usage includes a number of arguments from both the scDblFinder and amulet method (see in particular ?getFragmentOverlaps):
# not run
d <- clamulet("path/to/fragments.tsv.gz")Since our dummy fragment file is so small (5 barcodes), here we’ll have to adjust the arguments for an example to run:
d <- clamulet(fragfile, k=2, nfeatures=3)## 17:59:29 - Reading full fragments...## 17:59:29 - Splitting and subsetting barcodes...## 17:59:29 - Computing coverages## 17:59:29 - Obtaining windows## 17:59:30 - Obtaining window counts## 17:59:30 - Aggregating features## Warning in (function (A, nv = 5, nu = nv, maxit = 1000, work = nv + 7, reorth =
## TRUE, : You're computing too large a percentage of total singular values, use a
## standard svd instead.## 17:59:30 - Computing features for artificial doublets## 17:59:30 - Counting overlaps for real cells## 17:59:31 - Counting overlaps for artificial doublets## 17:59:31 - Scoring network## 17:59:31 - Iterative training## iter=0, 0 cells excluded from training.## iter=1, 0 cells excluded from training.## 17:59:32 Done!d## total nAbove2 total.nAbove2 weighted ratio.k2 include.in.training
## barcode1 20 1 1 0.6194120 0.5 TRUE
## barcode2 14 0 0 NaN 0.5 TRUE
## barcode3 8 1 1 0.7639486 0.5 TRUE
## barcode4 10 0 0 NaN 1.0 TRUE
## barcode5 17 6 6 1.0000000 1.0 TRUE
## score
## barcode1 0.4402863
## barcode2 0.4402863
## barcode3 0.4402863
## barcode4 0.4402863
## barcode5 0.4402863The score can then be interpreted as for scDblFinder. We however note that this method proved inferior to alternatives.
The amulet and scDblFinder scores above can be simply combined by treating them as p-values and aggregating them (here using Fisher’s method from the aggregation package, but see also the metap package):
res$scDblFinder.p <- 1-colData(sce)[row.names(res), "scDblFinder.score"]
res$combined <- apply(res[,c("scDblFinder.p", "p.value")], 1, FUN=function(x){
x[x<0.001] <- 0.001 # prevent too much skew from very small or 0 p-values
suppressWarnings(aggregation::fisher(x))
})We found this to perform better than averaging the scores or their ranks, and while it is not the very best method in any of the datasets tested, it has a more robust performance overall (see Germain et al., 2021).
Jeffrey M. Granja et al., “ArchR Is a Scalable Software Package for Integrative Single-Cell Chromatin Accessibility Analysis,” Nature Genetics, February 25, 2021, 1–9, https://doi.org/10.1038/s41588-021-00790-6
Asa Thibodeau et al., “AMULET: A Novel Read Count-Based Method for Effective Multiplet Detection from Single Nucleus ATAC-Seq Data,” Genome Biology 22, no. 1 (December 2021): 252, https://doi.org/10.1186/s13059-021-02469-x
Pierre-Luc Germain et al., “Doublet Identification in Single-Cell Sequencing Data Using ScDblFinder” (F1000Research, September 28, 2021), https://doi.org/10.12688/f1000research.73600.1
sessionInfo()## R version 4.2.0 RC (2022-04-19 r82224)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 20.04.4 LTS
##
## Matrix products: default
## BLAS: /home/biocbuild/bbs-3.15-bioc/R/lib/libRblas.so
## LAPACK: /home/biocbuild/bbs-3.15-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] bluster_1.6.0 scDblFinder_1.10.0
## [3] scater_1.24.0 ggplot2_3.3.5
## [5] scran_1.24.0 scuttle_1.6.0
## [7] ensembldb_2.20.0 AnnotationFilter_1.20.0
## [9] GenomicFeatures_1.48.0 AnnotationDbi_1.58.0
## [11] scRNAseq_2.9.2 SingleCellExperiment_1.18.0
## [13] SummarizedExperiment_1.26.0 Biobase_2.56.0
## [15] GenomicRanges_1.48.0 GenomeInfoDb_1.32.0
## [17] IRanges_2.30.0 S4Vectors_0.34.0
## [19] BiocGenerics_0.42.0 MatrixGenerics_1.8.0
## [21] matrixStats_0.62.0 BiocStyle_2.24.0
##
## loaded via a namespace (and not attached):
## [1] AnnotationHub_3.4.0 BiocFileCache_2.4.0
## [3] igraph_1.3.1 lazyeval_0.2.2
## [5] BiocParallel_1.30.0 digest_0.6.29
## [7] htmltools_0.5.2 magick_2.7.3
## [9] viridis_0.6.2 fansi_1.0.3
## [11] magrittr_2.0.3 memoise_2.0.1
## [13] ScaledMatrix_1.4.0 cluster_2.1.3
## [15] limma_3.52.0 Biostrings_2.64.0
## [17] prettyunits_1.1.1 colorspace_2.0-3
## [19] ggrepel_0.9.1 blob_1.2.3
## [21] rappdirs_0.3.3 xfun_0.30
## [23] dplyr_1.0.8 crayon_1.5.1
## [25] RCurl_1.98-1.6 jsonlite_1.8.0
## [27] glue_1.6.2 gtable_0.3.0
## [29] zlibbioc_1.42.0 XVector_0.36.0
## [31] DelayedArray_0.22.0 BiocSingular_1.12.0
## [33] scales_1.2.0 DBI_1.1.2
## [35] edgeR_3.38.0 Rcpp_1.0.8.3
## [37] viridisLite_0.4.0 xtable_1.8-4
## [39] progress_1.2.2 dqrng_0.3.0
## [41] bit_4.0.4 rsvd_1.0.5
## [43] metapod_1.4.0 httr_1.4.2
## [45] ellipsis_0.3.2 farver_2.1.0
## [47] pkgconfig_2.0.3 XML_3.99-0.9
## [49] sass_0.4.1 dbplyr_2.1.1
## [51] locfit_1.5-9.5 utf8_1.2.2
## [53] labeling_0.4.2 tidyselect_1.1.2
## [55] rlang_1.0.2 later_1.3.0
## [57] munsell_0.5.0 BiocVersion_3.15.2
## [59] tools_4.2.0 cachem_1.0.6
## [61] xgboost_1.6.0.1 cli_3.3.0
## [63] generics_0.1.2 RSQLite_2.2.12
## [65] ExperimentHub_2.4.0 evaluate_0.15
## [67] stringr_1.4.0 fastmap_1.1.0
## [69] yaml_2.3.5 knitr_1.38
## [71] bit64_4.0.5 purrr_0.3.4
## [73] KEGGREST_1.36.0 sparseMatrixStats_1.8.0
## [75] mime_0.12 xml2_1.3.3
## [77] biomaRt_2.52.0 compiler_4.2.0
## [79] beeswarm_0.4.0 filelock_1.0.2
## [81] curl_4.3.2 png_0.1-7
## [83] interactiveDisplayBase_1.34.0 tibble_3.1.6
## [85] statmod_1.4.36 bslib_0.3.1
## [87] stringi_1.7.6 highr_0.9
## [89] lattice_0.20-45 ProtGenerics_1.28.0
## [91] Matrix_1.4-1 vctrs_0.4.1
## [93] pillar_1.7.0 lifecycle_1.0.1
## [95] BiocManager_1.30.17 jquerylib_0.1.4
## [97] BiocNeighbors_1.14.0 cowplot_1.1.1
## [99] data.table_1.14.2 bitops_1.0-7
## [101] irlba_2.3.5 httpuv_1.6.5
## [103] rtracklayer_1.56.0 R6_2.5.1
## [105] BiocIO_1.6.0 bookdown_0.26
## [107] promises_1.2.0.1 gridExtra_2.3
## [109] vipor_0.4.5 MASS_7.3-57
## [111] assertthat_0.2.1 rjson_0.2.21
## [113] withr_2.5.0 GenomicAlignments_1.32.0
## [115] Rsamtools_2.12.0 GenomeInfoDbData_1.2.8
## [117] parallel_4.2.0 hms_1.1.1
## [119] grid_4.2.0 beachmat_2.12.0
## [121] rmarkdown_2.14 DelayedMatrixStats_1.18.0
## [123] Rtsne_0.16 shiny_1.7.1
## [125] ggbeeswarm_0.6.0 restfulr_0.0.13