# Introduction to netSmooth package

Jonathan Ronen1 and Altuna Akalin1

1Berlin Institute for Medical Systems Biology, Max Delbrück Center

#### 2018-07-24

# 1 Introduction

netSmooth implements a network-smoothing framework to smooth single-cell gene expression data as well as other omics datasets. The algorithm is a graph based diffusion process on networks. The intuition behind the algorithm is that gene networks encoding coexpression patterns may be used to smooth scRNA-seq expression data, since the gene expression values of connected nodes in the network will be predictive of each other. Protein-protein interaction (PPI) networks and coexpression networks are among the networks that could be used for such procedure.

More precisely, netSmooth works as follows. First, the gene expression values or other quantitative values per gene from each sample is projected on to the provided network. Then, the diffusion process is used to smooth the expression values of adjacent genes in the graph, so that a genes expression value represent an estimate of expression levels based the gene it self, as well as the expression values of the neighbors in the graph. The rate at which expression values of genes diffuse to their neighbors is degree-normalized, so that genes with many edges will affect their neighbors less than genes with more specific interactions. The implementation has one free parameter, `alpha`, which controls if the diffusion will be local or will reach further in the graph. Higher the value, the further the diffusion will reach. The netSmooth package implements strategies to optimize the value of `alpha`.

Figure 1: Network-smoothing concept

In summary, netSmooth enables users to smooth quantitative values associated with genes using a gene interaction network such as a protein-protein interaction network. The following sections of this vignette demonstrate functionality of `netSmooth` package.

# 2 Smoothing single-cell gene expression data with netSmooth() function

The workhorse of the netSmooth package is the `netSmooth()` function. This function takes at least two arguments, a network and genes-by-samples matrix as input, and performs smoothing on genes-by-samples matrix. The network should be organized as an adjacency matrix and its row and column names should match the row names of genes-by-samples matrix.

We will demonstrate the usage of the `netSmooth()` function using a subset of human PPI and a subset of single-cell RNA-seq data from GSE44183-GPL11154. We will first load the example datasets that are available through netSmooth package.

    data(smallPPI)
    data(smallscRNAseq)

We can now smooth the gene expression network now with `netSmooth()` function. We will use `alpha=0.5`.

    smallscRNAseq.sm.se <- netSmooth(smallscRNAseq, smallPPI, alpha=0.5)

    ## Using given alpha: 0.5

    smallscRNAseq.sm.sce <- SingleCellExperiment(
        assays=list(counts=assay(smallscRNAseq.sm.se)),
        colData=colData(smallscRNAseq.sm.se)
    )

Now, we can look at the smoothed and raw expression values using a heatmap.

    anno.df <- data.frame(cell.type=colData(smallscRNAseq)$source_name_ch1)
    rownames(anno.df) <- colnames(smallscRNAseq)
    pheatmap(log2(assay(smallscRNAseq)+1), annotation_col = anno.df,
             show_rownames = FALSE, show_colnames = FALSE,
             main="before netSmooth")

    pheatmap(log2(assay(smallscRNAseq.sm.sce)+1), annotation_col = anno.df,
             show_rownames = FALSE, show_colnames = FALSE,
             main="after netSmooth")

## 2.1 Optimizing the smoothing parameter `alpha`

By default, the parameter `alpha` will be optimized using a robust clustering statistic. Briefly, this approach will try different clustering algorithms and/or parameters and find clusters that can be reproduced with different algorithms. The `netSmooth()` function will try different `alpha` values controlled by additional arguments to maximize the number of samples in robust clusters.

Now, we smooth the expression values using automated alpha optimization and plot the heatmaps of raw and smooth versions.

    smallscRNAseq.sm.se <- netSmooth(smallscRNAseq, smallPPI, alpha='auto')
    smallscRNAseq.sm.sce <- SingleCellExperiment(
        assays=list(counts=assay(smallscRNAseq.sm.se)),
        colData=colData(smallscRNAseq.sm.se)
    )

    pheatmap(log2(assay(smallscRNAseq.sm.sce)+1), annotation_col = anno.df,
             show_rownames = FALSE, show_colnames = FALSE,
             main="after netSmooth (optimal alpha)")

# 3 Getting robust clusters from data

There is no standard method especially for clustering single cell RNAseq data, as different studies produce data with different topologies, which respond differently to the various clustering algorithms. In order to avoid optimizing different clustering routines for the different datasets, we have implemented a robust clustering routine based on clusterExperiment. The clusterExperiment framework for robust clustering is based on consensus clustering of clustering assignments obtained from different views of the data and different clustering algorithms. The different views are different reduced dimensionality projections of the data based on different techniques; thus, no single clustering result will dominate the data, and only cluster structures which are robust to different analyses will prevail. We implemented a clustering framework using the components of clusterExperiment and different dimensionality reduction methods.

We can directly use the robust clustering function `robustClusters`.

    yhat <- robustClusters(smallscRNAseq, combineManyMinSize=2, combineManyProportion=.9)$clusters

    ## Picked dimReduceFlavor: tsne

    ## Note: Merging will be done on ' combineMany ', with clustering index 1

    yhat.sm <- robustClusters(smallscRNAseq.sm.se, combineManyMinSize=2, combineManyProportion=.9)$clusters

    ## Picked dimReduceFlavor: pca
    ##
    ## Note: Merging will be done on ' combineMany ', with clustering index 1

    ## Warning: Zero sample variances detected, have been offset away from zero

    cell.types <- colData(smallscRNAseq)$source_name_ch1
    knitr::kable(
      table(cell.types, yhat), caption = 'Cell types and `robustClusters` in the raw data.'
    )

Table 1: Cell types and `robustClusters` in the raw data
| -1 | 1 | 2 | 3
--- | --- | --- | --- | ---
2-cell blastomere | 0 | 3 | 0 | 0
4-cell blastomere | 1 | 3 | 0 | 0
8-cell blastomere | 6 | 0 | 4 | 0
8-cell embryo | 1 | 0 | 0 | 0
morula | 0 | 0 | 0 | 3
oocyte | 1 | 2 | 0 | 0
pronucleus | 1 | 2 | 0 | 0
zygote | 0 | 2 | 0 | 0

    knitr::kable(
      table(cell.types, yhat.sm), caption = 'Cell types and `robustClusters` in the smoothed data.'
    )

Table 1: Cell types and `robustClusters` in the smoothed data
| -1 | 1 | 2 | 3
--- | --- | --- | --- | ---
2-cell blastomere | 1 | 2 | 0 | 0
4-cell blastomere | 1 | 0 | 3 | 0
8-cell blastomere | 8 | 0 | 0 | 2
8-cell embryo | 1 | 0 | 0 | 0
morula | 0 | 0 | 0 | 3
oocyte | 0 | 3 | 0 | 0
pronucleus | 0 | 3 | 0 | 0
zygote | 0 | 2 | 0 | 0

A cluster assignment of `-1` indicates that the cell could not be placed in a robust cluster, and has consequently been omitted. We see that the clusters are completely uninformative in the raw data, while the smoothed data at least permitted the `robustClusters` procedure to identify a subset of the 8-cell blastomeres as a separate cluster.

# 4 Deciding for the best dimension reduction method for visualization and clustering

The `robustClusters()` function works by clustering samples in a lower dimension embedding using either PCA or t-SNE. Different single cell datasets might respond better to different dimensionality reduction techniques. In order to pick the right technique algorithmically, we compute the entropy in a 2D embedding. We obtained 2D embeddings from the 500 most variable genes using either PCA or t-SNE, binned them in a 20x20 grid, and computed the entropy. The entropy in the 2D embedding is a measure for the information captured by it. We pick the embedding with the highest information content. `pickDimReduction()` function implements this strategy and returns the best embedding according to this strategy.

Below, we pick the best embedding for our example dataset and plot scatter plots for different 2D embedding methods.

    plotPCA(smallscRNAseq, colour_by='source_name_ch1') + ggtitle("PCA plot")

    plotTSNE(smallscRNAseq, colour_by='source_name_ch1') + ggtitle("tSNE plot")

The `pickDimReduction` method picks the dimensionality reduction method which produces the highest entropy embedding:

    pickDimReduction(smallscRNAseq)

    ## [1] "tsne"

# 5 Frequently asked questions

### 5.0.1 How can I make smoothing faster ?

Make sure you compile R with openBLAS or variants that are faster.

### 5.0.2 What happens if all the genes are not in my network ?

The smoothing will only be done using the genes in the network then unsmoothed genes will be attached to the gene expression matrix.

    sessionInfo()

    ## R version 3.5.1 RC (2018-06-24 r74929)
    ## Platform: x86_64-w64-mingw32/x64 (64-bit)
    ## Running under: Windows Server 2012 R2 x64 (build 9600)
    ##
    ## Matrix products: default
    ##
    ## locale:
    ## [1] LC_COLLATE=C
    ## [2] LC_CTYPE=English_United States.1252
    ## [3] LC_MONETARY=English_United States.1252
    ## [4] LC_NUMERIC=C
    ## [5] LC_TIME=English_United States.1252
    ##
    ## attached base packages:
    ## [1] stats4    parallel  stats     graphics  grDevices utils     datasets
    ## [8] methods   base
    ##
    ## other attached packages:
    ##  [1] pheatmap_1.0.10             netSmooth_1.0.2
    ##  [3] clusterExperiment_2.0.2     scater_1.8.1
    ##  [5] SingleCellExperiment_1.2.0  SummarizedExperiment_1.10.1
    ##  [7] DelayedArray_0.6.2          BiocParallel_1.14.2
    ##  [9] matrixStats_0.54.0          GenomicRanges_1.32.6
    ## [11] GenomeInfoDb_1.16.0         IRanges_2.14.10
    ## [13] S4Vectors_0.18.3            ggplot2_3.0.0
    ## [15] Biobase_2.40.0              BiocGenerics_0.26.0
    ## [17] BiocStyle_2.8.2
    ##
    ## loaded via a namespace (and not attached):
    ##   [1] uuid_0.1-2               backports_1.1.2
    ##   [3] NMF_0.21.0               plyr_1.8.4
    ##   [5] lazyeval_0.2.1           shinydashboard_0.7.0
    ##   [7] splines_3.5.1            entropy_1.2.1
    ##   [9] rncl_0.8.2               gridBase_0.4-7
    ##  [11] digest_0.6.15            foreach_1.4.4
    ##  [13] htmltools_0.3.6          viridis_0.5.1
    ##  [15] magrittr_1.5             cluster_2.0.7-1
    ##  [17] doParallel_1.0.11        limma_3.36.2
    ##  [19] prettyunits_1.0.2        colorspace_1.3-2
    ##  [21] xfun_0.3                 dplyr_0.7.6
    ##  [23] crayon_1.3.4             RCurl_1.95-4.11
    ##  [25] tximport_1.8.0           bindr_0.1.1
    ##  [27] phylobase_0.8.4          iterators_1.0.10
    ##  [29] ape_5.1                  glue_1.3.0
    ##  [31] registry_0.5             gtable_0.2.0
    ##  [33] zlibbioc_1.26.0          XVector_0.20.0
    ##  [35] kernlab_0.9-26           Rhdf5lib_1.2.1
    ##  [37] prabclus_2.2-6           DEoptimR_1.0-8
    ##  [39] HDF5Array_1.8.1          abind_1.4-5
    ##  [41] scales_0.5.0             mvtnorm_1.0-8
    ##  [43] edgeR_3.22.3             rngtools_1.3.1
    ##  [45] bibtex_0.4.2             Rcpp_0.12.18
    ##  [47] viridisLite_0.3.0        xtable_1.8-2
    ##  [49] progress_1.2.0           mclust_5.4.1
    ##  [51] httr_1.3.1               RColorBrewer_1.1-2
    ##  [53] fpc_2.1-11.1             modeltools_0.2-22
    ##  [55] pkgconfig_2.0.1          XML_3.98-1.12
    ##  [57] flexmix_2.3-14           nnet_7.3-12
    ##  [59] locfit_1.5-9.1           labeling_0.3
    ##  [61] howmany_0.3-1            tidyselect_0.2.4
    ##  [63] rlang_0.2.1              reshape2_1.4.3
    ##  [65] later_0.7.3              munsell_0.5.0
    ##  [67] tools_3.5.1              ade4_1.7-11
    ##  [69] evaluate_0.11            stringr_1.3.1
    ##  [71] yaml_2.1.19              knitr_1.20
    ##  [73] robustbase_0.93-1.1      purrr_0.2.5
    ##  [75] dendextend_1.8.0         bindrcpp_0.2.2
    ##  [77] nlme_3.1-137             whisker_0.3-2
    ##  [79] mime_0.5                 xml2_1.2.0
    ##  [81] compiler_3.5.1           beeswarm_0.2.3
    ##  [83] tibble_1.4.2             RNeXML_2.1.1
    ##  [85] stringi_1.2.4            highr_0.7
    ##  [87] RSpectra_0.13-1          lattice_0.20-35
    ##  [89] trimcluster_0.1-2.1      Matrix_1.2-14
    ##  [91] pillar_1.3.0             cowplot_0.9.3
    ##  [93] data.table_1.11.4        bitops_1.0-6
    ##  [95] httpuv_1.4.5             R6_2.2.2
    ##  [97] bookdown_0.7             promises_1.0.1
    ##  [99] gridExtra_2.3            vipor_0.4.5
    ## [101] codetools_0.2-15         MASS_7.3-50
    ## [103] assertthat_0.2.0         rhdf5_2.24.0
    ## [105] MAST_1.6.1               pkgmaker_0.27
    ## [107] rprojroot_1.3-2          rjson_0.2.20
    ## [109] withr_2.1.2              GenomeInfoDbData_1.1.0
    ## [111] locfdr_1.1-8             diptest_0.75-7
    ## [113] hms_0.4.2                grid_3.5.1
    ## [115] tidyr_0.8.1              class_7.3-14
    ## [117] rmarkdown_1.10           DelayedMatrixStats_1.2.0
    ## [119] Rtsne_0.13               shiny_1.1.0
    ## [121] ggbeeswarm_0.6.0