# scClassify Model Building and Prediction

Yingxin Lin1,2

1School of Mathematics and Statistics, The University of Sydney, Australia
2Charles Perkins Centre, The University of Sydney, Australia

#### 27 October 2020

# 1 Introduction

A common application of single-cell RNA sequencing (RNA-seq) data is to identify discrete cell types. To take advantage of the large collection of well-annotated scRNA-seq datasets, `scClassify` package implements a set of methods to perform accurate cell type classification based on ensemble learning and sample size calculation. This vignette demonstrates the usage of `scClassify`, providing a pithy description of each method with workable examples.

First, install `scClassify` via `BiocManager`.

    # installation of scClassify
    if (!requireNamespace("BiocManager", quietly = TRUE)) {
        install.packages("BiocManager")
    }
    BiocManager::install("scClassify")

# 2 Setting up the data

We assume that you have log-transformed (size-factor normalized) matrices where each row is a gene and each column a cell for a reference dataset and a query dataset. For demonstration purposes, we will take a subset of single-cell pancreas datasets from two independent studies (Wang et al., and Xin et al.).

    library("scClassify")
    data("scClassify_example")
    xin_cellTypes <- scClassify_example$xin_cellTypes
    exprsMat_xin_subset <- scClassify_example$exprsMat_xin_subset
    wang_cellTypes <- scClassify_example$wang_cellTypes
    exprsMat_wang_subset <- scClassify_example$exprsMat_wang_subset
    exprsMat_xin_subset <- as(exprsMat_xin_subset, "dgCMatrix")
    exprsMat_wang_subset <- as(exprsMat_wang_subset, "dgCMatrix")

The original cell type annotations and compositions of the example datasets can be easily accessed as shown below.

    table(xin_cellTypes)
    #> xin_cellTypes
    #> alpha  beta delta gamma
    #>   285   261    49    79
    table(wang_cellTypes)
    #> wang_cellTypes
    #>   acinar    alpha     beta    delta   ductal    gamma stellate
    #>        5      206      118       10       96       21       45

We can see that Xin et al. data only have 4 cell types, while Wang et al. has 7 cell types.

# 3 scClassify

## 3.1 Non-ensemble scClassify

We first perform non-ensemble `scClassify` by using Xin et al. as our reference dataset and Wang et al. data as ur query data. We use `WKNN` as the KNN algorithm, `DE` (differential expression genes) as the gene selection method, and lastly `pearson` as the similarity calculation method.

    scClassify_res <- scClassify(exprsMat_train = exprsMat_xin_subset,
                                 cellTypes_train = xin_cellTypes,
                                 exprsMat_test = list(wang = exprsMat_wang_subset),
                                 cellTypes_test = list(wang = wang_cellTypes),
                                 tree = "HOPACH",
                                 algorithm = "WKNN",
                                 selectFeatures = c("limma"),
                                 similarity = c("pearson"),
                                 returnList = FALSE,
                                 verbose = FALSE)

We can check the cell type tree generated by the reference data:

    scClassify_res$trainRes
    #> Class: scClassifyTrainModel
    #> Model name: training
    #> Feature selection methods: limma
    #> Number of cells in the training data: 674
    #> Number of cell types in the training data: 4
    plotCellTypeTree(cellTypeTree(scClassify_res$trainRes))

Noted that `scClassify_res$trainRes` is a `scClassifyTrainModel` class.

Check the prediction results.

    table(scClassify_res$testRes$wang$pearson_WKNN_limma$predRes, wang_cellTypes)
    #>                   wang_cellTypes
    #>                    acinar alpha beta delta ductal gamma stellate
    #>   alpha                 0   206    0     0      0     2        0
    #>   beta                  0     0  118     0      1     0        0
    #>   beta_delta_gamma      0     0    0     0     25     0        0
    #>   delta                 0     0    0    10      0     0        0
    #>   gamma                 0     0    0     0      0    19        0
    #>   unassigned            5     0    0     0     70     0       45

## 3.2 Ensemble Classify

We next perform ensemble `scClassify` by using Xin et al. as our reference dataset and Wang et al. data as our query data. We use `WKNN` as the KNN algorithm, `DE` as the gene selection method, and `pearson` and `spearman` as the similarity calculation methods. Thus, we will generate two combinations of gene selection models and similarity metrics as training classifiers:

1. `WKNN` + `DE` + `pearson`
2. `WKNN` + `DE` + `spearman`

Here, we will weight these two classifiers equally by setting `weighted_ensemble = FALSE`. By default this is set as `TRUE`, so each base classifier will be weighted by the accuracy rates trained in the reference data.

    scClassify_res_ensemble <- scClassify(exprsMat_train = exprsMat_xin_subset,
                                          cellTypes_train = xin_cellTypes,
                                          exprsMat_test = list(wang = exprsMat_wang_subset),
                                          cellTypes_test = list(wang = wang_cellTypes),
                                          tree = "HOPACH",
                                          algorithm = "WKNN",
                                          selectFeatures = c("limma"),
                                          similarity = c("pearson", "cosine"),
                                          weighted_ensemble = FALSE,
                                          returnList = FALSE,
                                          verbose = FALSE)

We can compare the two base classifiers predictions as below.

    table(scClassify_res_ensemble$testRes$wang$pearson_WKNN_limma$predRes,
          scClassify_res_ensemble$testRes$wang$cosine_WKNN_limma$predRes)
    #>
    #>                    alpha beta beta_delta_gamma delta gamma unassigned
    #>   alpha              208    0                0     0     0          0
    #>   beta                 0  119                0     0     0          0
    #>   beta_delta_gamma     0    0               22     0     0          3
    #>   delta                0    0                0    10     0          0
    #>   gamma                0    0                0     0    19          0
    #>   unassigned           1    3               15     0     0        101

Now, check the final ensemble results:

    table(scClassify_res_ensemble$testRes$wang$ensembleRes$cellTypes,
          wang_cellTypes)
    #>                   wang_cellTypes
    #>                    acinar alpha beta delta ductal gamma stellate
    #>   alpha                 0   206    0     0      0     2        0
    #>   beta                  0     0  118     0      1     0        0
    #>   beta_delta_gamma      0     0    0     0     25     0        0
    #>   delta                 0     0    0    10      0     0        0
    #>   gamma                 0     0    0     0      0    19        0
    #>   unassigned            5     0    0     0     70     0       45

# 4 Train your own model

You can also train your own model `scClassifyTrainModel` using `train_scClassify()`. Note that by setting `weightsCal = TRUE`, we will calculate the training error of the reference data as the weights for the individual classifiers.

Here, we illustrate the training function with gene selection methods based on differential expression (“limma”) and biomodal distribution (“BI”).

    trainClass <- train_scClassify(exprsMat_train = exprsMat_xin_subset,
                                   cellTypes_train = xin_cellTypes,
                                   selectFeatures = c("limma", "BI"),
                                   returnList = FALSE
    )
    #> after filtering not expressed genes
    #> [1] 980 674
    #> [1] "Feature Selection..."
    #> [1] "Number of genes selected to construct HOPACH tree 160"
    #> [1] "Constructing tree ..."
    #> [1] "Training...."
    #> [1] "=== selecting features by: limma ===="
    #> [1] "=== selecting features by: BI ===="

    trainClass
    #> Class: scClassifyTrainModel
    #> Model name: training
    #> Feature selection methods: limma BI
    #> Number of cells in the training data: 674
    #> Number of cell types in the training data: 4

# 5 Session Info

    sessionInfo()
    #> R version 4.0.3 (2020-10-10)
    #> Platform: x86_64-pc-linux-gnu (64-bit)
    #> Running under: Ubuntu 18.04.5 LTS
    #>
    #> Matrix products: default
    #> BLAS:   /home/biocbuild/bbs-3.12-bioc/R/lib/libRblas.so
    #> LAPACK: /home/biocbuild/bbs-3.12-bioc/R/lib/libRlapack.so
    #>
    #> locale:
    #>  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C
    #>  [3] LC_TIME=en_US.UTF-8        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] stats     graphics  grDevices utils     datasets  methods   base
    #>
    #> other attached packages:
    #> [1] scClassify_1.2.0 BiocStyle_2.18.0
    #>
    #> loaded via a namespace (and not attached):
    #>  [1] Biobase_2.50.0      viridis_0.5.1       mixtools_1.2.0
    #>  [4] tidyr_1.1.2         tidygraph_1.2.0     viridisLite_0.3.0
    #>  [7] splines_4.0.3       ggraph_2.0.3        RcppParallel_5.0.2
    #> [10] statmod_1.4.35      BiocManager_1.30.10 stats4_4.0.3
    #> [13] yaml_2.2.1          ggrepel_0.8.2       pillar_1.4.6
    #> [16] lattice_0.20-41     glue_1.4.2          limma_3.46.0
    #> [19] digest_0.6.27       polyclip_1.10-0     colorspace_1.4-1
    #> [22] htmltools_0.5.0     Matrix_1.2-18       pkgconfig_2.0.3
    #> [25] magick_2.5.0        bookdown_0.21       purrr_0.3.4
    #> [28] scales_1.1.1        tweenr_1.0.1        hopach_2.50.0
    #> [31] BiocParallel_1.24.0 ggforce_0.3.2       tibble_3.0.4
    #> [34] proxy_0.4-24        mgcv_1.8-33         generics_0.0.2
    #> [37] farver_2.0.3        ggplot2_3.3.2       ellipsis_0.3.1
    #> [40] BiocGenerics_0.36.0 survival_3.2-7      magrittr_1.5
    #> [43] crayon_1.3.4        evaluate_0.14       nlme_3.1-150
    #> [46] MASS_7.3-53         segmented_1.3-0     tools_4.0.3
    #> [49] minpack.lm_1.2-1    lifecycle_0.2.0     stringr_1.4.0
    #> [52] S4Vectors_0.28.0    kernlab_0.9-29      munsell_0.5.0
    #> [55] cluster_2.1.0       compiler_4.0.3      proxyC_0.1.5
    #> [58] rlang_0.4.8         grid_4.0.3          igraph_1.2.6
    #> [61] labeling_0.4.2      rmarkdown_2.5       gtable_0.3.0
    #> [64] graphlayouts_0.7.1  R6_2.4.1            gridExtra_2.3
    #> [67] knitr_1.30          dplyr_1.0.2         stringi_1.5.3
    #> [70] parallel_4.0.3      Rcpp_1.0.5          vctrs_0.3.4
    #> [73] diptest_0.75-7      tidyselect_1.1.0    xfun_0.18