batchelor 1.14.1
The batchelor package provides the batchCorrect() generic that dispatches on its PARAM argument.
Users writing code using batchCorrect() can easily change one method for another by simply modifying the class of object supplied as PARAM.
For example:
B1 <- matrix(rnorm(10000), ncol=50) # Batch 1
B2 <- matrix(rnorm(10000), ncol=50) # Batch 2
# Switching easily between batch correction methods.
m.out <- batchCorrect(B1, B2, PARAM=ClassicMnnParam())
f.out <- batchCorrect(B1, B2, PARAM=FastMnnParam(d=20))
r.out <- batchCorrect(B1, B2, PARAM=RescaleParam(pseudo.count=0))Developers of other packages can extend this further by adding their batch correction methods to this dispatch system. This improves interoperability across packages by allowing users to easily experiment with different methods.
You will need to Imports: batchelor, methods in your DESCRIPTION file.
You will also need to add import(methods), importFrom(batchelor, "batchCorrect") and importClassesFrom(batchelor, "BatchelorParam") in your NAMESPACE file.
Obviously, you will also need to have a function that implements your batch correction method. For demonstration purposes, we will use an identity function that simply returns the input values1 Not a very good correction, but that’s not the point right now.. This is implemented like so:
noCorrect <- function(...)
# Takes a set of batches and returns them without modification.
{
do.call(cbind, list(...))
}BatchelorParam subclassWe need to define a new BatchelorParam subclass that instructs the batchCorrect() generic to dispatch to our new method.
This is most easily done like so:
NothingParam <- setClass("NothingParam", contains="BatchelorParam")Note that BatchelorParam itself is derived from a SimpleList and can be modified with standard list operators like $.
nothing <- NothingParam()
nothing## NothingParam of length 0nothing$some_value <- 1
nothing## NothingParam of length 1
## names(1): some_valueIf no parameters are set, the default values in the function will be used2 Here there are none in noCorrect(), but presumably your function is more complex than that..
Additional slots can be specified in the class definition if there are important parameters that need to be manually specified by the user.
batchCorrect methodThe batchCorrect() generic looks like this:
batchCorrect## standardGeneric for "batchCorrect" defined from package "batchelor"
##
## function (..., batch = NULL, restrict = NULL, subset.row = NULL,
## correct.all = FALSE, assay.type = NULL, PARAM)
## standardGeneric("batchCorrect")
## <bytecode: 0x555724284838>
## <environment: 0x5557242569d0>
## Methods may be defined for arguments: PARAM
## Use showMethods(batchCorrect) for currently available ones.Any implemented method must accept one or more matrix-like objects containing single-cell gene expression matrices in ....
Rows are assumed to be genes and columns are assumed to be cells.
If only one object is supplied, batch must be specified to indicate the batches to which each cell belongs.
Alternatively, one or more SingleCellExperiment objects can be supplied, containing the gene expression matrix in the assay.type assay.
These should not be mixed with matrix-like objects, i.e., if one object is a SingleCellExperiment, all objects should be SingleCellExperiments.
The subset.row= argument specifies a subset of genes on which to perform the correction.
The correct.all= argument specifies whether corrected values should be returned for all genes, by “extrapolating” from the results for the genes that were used3 If your method cannot support this option, setting it to TRUE should raise an error..
See the Output section below for the expected output from each combination of these settings.
The restrict= argument allows users to compute the correction using only a subset of cells in each batch (e.g., from cell controls).
The correction is then “extrapolated” to all cells in the batch4 Again, if your method cannot support this, any non-NULL value of restrict should raise an error., such that corrected values are returned for all cells.
Any implemented method must return a SingleCellExperiment where the first assay contains corrected gene expression values for all genes.
Corrected values should be returned for all genes if correct.all=TRUE or subset.row=NULL.
If correct.all=FALSE and subset.row is not NULL, values should only be returned for the selected genes.
Cells should be reported in the same order that they are supplied in ....
In cases with multiple batches, the cell identities are simply concatenated from successive objects in their specified order,
i.e., all cells from the first object (in their provided order), then all cells from the second object, and so on.
If there is only a single batch, the order of cells in that batch should be preserved.
The output object should have row names equal to the row names of the input objects.
Column names should be equivalent to the concatenated column names of the input objects, unless all are NULL, in which case the column names in the output can be NULL.
In situations where some input objects have column names, and others are NULL, those missing column names should be filled in with empty strings.
This represents the expected behaviour when cbinding multiple matrices together.
Finally, the colData slot should contain ‘batch’, a vector specifying the batch of origin for each cell.
Finally, we define a method that calls our noCorrect function while satisfying all of the above input/output requirements.
To be clear, it is not mandatory to lay out the code as shown below; this is simply one way that all the requirements can be satisfied.
We have used some internal batchelor functions for brevity - please contact us if you find these useful and want them to be exported.
setMethod("batchCorrect", "NothingParam", function(..., batch = NULL,
restrict=NULL, subset.row = NULL, correct.all = FALSE,
assay.type = "logcounts", PARAM)
{
batches <- list(...)
checkBatchConsistency(batches)
# Pulling out information from the SCE objects.
is.sce <- checkIfSCE(batches)
if (any(is.sce)) {
batches[is.sce] <- lapply(batches[is.sce], assay, i=assay.type)
}
# Subsetting by 'batch', if only one object is supplied.
do.split <- length(batches)==1L
if (do.split) {
divided <- divideIntoBatches(batches[[1]], batch=batch, restrict=restrict)
batches <- divided$batches
restrict <- divided$restricted
}
# Subsetting by row.
# This is a per-gene "method", so correct.all=TRUE will ignore subset.row.
# More complex methods will need to handle this differently.
if (correct.all) {
subset.row <- NULL
} else if (!is.null(subset.row)) {
subset.row <- normalizeSingleBracketSubscript(originals[[1]], subset.row)
batches <- lapply(batches, "[", i=subset.row, , drop=FALSE)
}
# Don't really need to consider restrict!=NULL here, as this function
# doesn't do anything with the cells anyway.
output <- do.call(noCorrect, batches)
# Reordering the output for correctness if it was previously split.
if (do.split) {
d.reo <- divided$reorder
output <- output[,d.reo,drop=FALSE]
}
ncells.per.batch <- vapply(batches, FUN=ncol, FUN.VALUE=0L)
batch.names <- names(batches)
if (is.null(batch.names)) {
batch.names <- seq_along(batches)
}
SingleCellExperiment(list(corrected=output),
colData=DataFrame(batch=rep(batch.names, ncells.per.batch)))
})And it works5 In a strictly programming sense, as the method itself does no correction at all.:
n.out <- batchCorrect(B1, B2, PARAM=NothingParam())
n.out## class: SingleCellExperiment
## dim: 200 100
## metadata(0):
## assays(1): corrected
## rownames: NULL
## rowData names(0):
## colnames: NULL
## colData names(1): batch
## reducedDimNames(0):
## mainExpName: NULL
## altExpNames(0):Remember to export both the new method and the NothingParam class and constructor.
sessionInfo()## R version 4.2.2 (2022-10-31)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 20.04.5 LTS
##
## Matrix products: default
## BLAS: /home/biocbuild/bbs-3.16-bioc/R/lib/libRblas.so
## LAPACK: /home/biocbuild/bbs-3.16-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] scater_1.26.1 ggplot2_3.4.0
## [3] scran_1.26.1 scuttle_1.8.3
## [5] scRNAseq_2.12.0 batchelor_1.14.1
## [7] SingleCellExperiment_1.20.0 SummarizedExperiment_1.28.0
## [9] Biobase_2.58.0 GenomicRanges_1.50.2
## [11] GenomeInfoDb_1.34.6 IRanges_2.32.0
## [13] S4Vectors_0.36.1 BiocGenerics_0.44.0
## [15] MatrixGenerics_1.10.0 matrixStats_0.63.0
## [17] knitr_1.41 BiocStyle_2.26.0
##
## loaded via a namespace (and not attached):
## [1] AnnotationHub_3.6.0 BiocFileCache_2.6.0
## [3] igraph_1.3.5 lazyeval_0.2.2
## [5] BiocParallel_1.32.5 digest_0.6.31
## [7] ensembldb_2.22.0 htmltools_0.5.4
## [9] magick_2.7.3 viridis_0.6.2
## [11] fansi_1.0.3 magrittr_2.0.3
## [13] memoise_2.0.1 ScaledMatrix_1.6.0
## [15] cluster_2.1.4 limma_3.54.0
## [17] Biostrings_2.66.0 prettyunits_1.1.1
## [19] colorspace_2.0-3 ggrepel_0.9.2
## [21] blob_1.2.3 rappdirs_0.3.3
## [23] xfun_0.36 dplyr_1.0.10
## [25] crayon_1.5.2 RCurl_1.98-1.9
## [27] jsonlite_1.8.4 glue_1.6.2
## [29] gtable_0.3.1 zlibbioc_1.44.0
## [31] XVector_0.38.0 DelayedArray_0.24.0
## [33] BiocSingular_1.14.0 scales_1.2.1
## [35] DBI_1.1.3 edgeR_3.40.1
## [37] Rcpp_1.0.9 viridisLite_0.4.1
## [39] xtable_1.8-4 progress_1.2.2
## [41] dqrng_0.3.0 bit_4.0.5
## [43] rsvd_1.0.5 ResidualMatrix_1.8.0
## [45] metapod_1.6.0 httr_1.4.4
## [47] ellipsis_0.3.2 farver_2.1.1
## [49] pkgconfig_2.0.3 XML_3.99-0.13
## [51] sass_0.4.4 dbplyr_2.2.1
## [53] locfit_1.5-9.7 utf8_1.2.2
## [55] labeling_0.4.2 tidyselect_1.2.0
## [57] rlang_1.0.6 later_1.3.0
## [59] AnnotationDbi_1.60.0 munsell_0.5.0
## [61] BiocVersion_3.16.0 tools_4.2.2
## [63] cachem_1.0.6 cli_3.5.0
## [65] generics_0.1.3 RSQLite_2.2.20
## [67] ExperimentHub_2.6.0 evaluate_0.19
## [69] stringr_1.5.0 fastmap_1.1.0
## [71] yaml_2.3.6 bit64_4.0.5
## [73] purrr_1.0.0 KEGGREST_1.38.0
## [75] AnnotationFilter_1.22.0 sparseMatrixStats_1.10.0
## [77] mime_0.12 xml2_1.3.3
## [79] biomaRt_2.54.0 compiler_4.2.2
## [81] beeswarm_0.4.0 filelock_1.0.2
## [83] curl_4.3.3 png_0.1-8
## [85] interactiveDisplayBase_1.36.0 tibble_3.1.8
## [87] statmod_1.4.37 bslib_0.4.2
## [89] stringi_1.7.8 highr_0.10
## [91] GenomicFeatures_1.50.3 lattice_0.20-45
## [93] bluster_1.8.0 ProtGenerics_1.30.0
## [95] Matrix_1.5-3 vctrs_0.5.1
## [97] pillar_1.8.1 lifecycle_1.0.3
## [99] BiocManager_1.30.19 jquerylib_0.1.4
## [101] BiocNeighbors_1.16.0 cowplot_1.1.1
## [103] bitops_1.0-7 irlba_2.3.5.1
## [105] httpuv_1.6.7 rtracklayer_1.58.0
## [107] R6_2.5.1 BiocIO_1.8.0
## [109] bookdown_0.31 promises_1.2.0.1
## [111] gridExtra_2.3 vipor_0.4.5
## [113] codetools_0.2-18 assertthat_0.2.1
## [115] rjson_0.2.21 withr_2.5.0
## [117] GenomicAlignments_1.34.0 Rsamtools_2.14.0
## [119] GenomeInfoDbData_1.2.9 parallel_4.2.2
## [121] hms_1.1.2 grid_4.2.2
## [123] beachmat_2.14.0 rmarkdown_2.19
## [125] DelayedMatrixStats_1.20.0 Rtsne_0.16
## [127] shiny_1.7.4 ggbeeswarm_0.7.1
## [129] restfulr_0.0.15