Single-cell analysis toolkit for expression in R
Revised: February 4, 2020
Package
scater 1.20.1
1 Introduction
scater provides tools for visualization of single-cell transcriptomic data.
It is based on the SingleCellExperiment class (from the SingleCellExperiment package),
and thus is interoperable with many other Bioconductor packages such as scran,
scuttle and iSEE.
To demonstrate the use of the various scater functions,
we will load in the classic Zeisel dataset:
library(scRNAseq)
example_sce <- ZeiselBrainData()
example_sce## class: SingleCellExperiment
## dim: 20006 3005
## metadata(0):
## assays(1): counts
## rownames(20006): Tspan12 Tshz1 ... mt-Rnr1 mt-Nd4l
## rowData names(1): featureType
## colnames(3005): 1772071015_C02 1772071017_G12 ... 1772066098_A12
## 1772058148_F03
## colData names(10): tissue group # ... level1class level2class
## reducedDimNames(0):
## mainExpName: endogenous
## altExpNames(2): ERCC repeatNote: A more comprehensive description of the use of scater (along with other packages) in a scRNA-seq analysis workflow is available at https://osca.bioconductor.org.
2 Diagnostic plots for quality control
Quality control to remove damaged cells and poorly sequenced libraries is a common step in single-cell analysis pipelines. We will use some utilities from the scuttle package (conveniently loaded for us when we load scater) to compute the usual quality control metrics for this dataset.
library(scater)
example_sce <- addPerCellQC(example_sce,
subsets=list(Mito=grep("mt-", rownames(example_sce))))Metadata variables can be plotted against each other using the plotColData() function, as shown below.
We expect to see an increasing number of detected genes with increasing total count.
Each point represents a cell that is coloured according to its tissue of origin.
plotColData(example_sce, x = "sum", y="detected", colour_by="tissue") 
Here, we have plotted the total count for each cell against the mitochondrial content. Well-behaved cells should have a large number of expressed features and and a low percentage of expression from feature controls. High percentage expression from feature controls and few expressed features are indicative of blank and failed cells. For some variety, we have faceted by the tissue of origin.
plotColData(example_sce, x = "sum", y="subsets_Mito_percent",
other_fields="tissue") + facet_wrap(~tissue)
On the gene level, we can look at a plot that shows the top 50 (by default) most-expressed features. Each row in the plot below corresponds to a gene; each bar corresponds to the expression of a gene in a single cell; and the circle indicates the median expression of each gene, with which genes are sorted. We expect to see the “usual suspects”, i.e., mitochondrial genes, actin, ribosomal protein, MALAT1. A few spike-in transcripts may also be present here, though if all of the spike-ins are in the top 50, it suggests that too much spike-in RNA was added. A large number of pseudo-genes or predicted genes may indicate problems with alignment.
plotHighestExprs(example_sce, exprs_values = "counts")
Variable-level metrics are computed by the getVarianceExplained() function (after normalization, see below).
This calculates the percentage of variance of each gene’s expression that is explained by each variable in the colData of the SingleCellExperiment object.
We can then use this to determine which experimental factors are contributing most to the variance in expression.
This is useful for diagnosing batch effects or to quickly verify that a treatment has an effect.
# Computing variance explained on the log-counts,
# so that the statistics reflect changes in relative expression.
example_sce <- logNormCounts(example_sce)
vars <- getVarianceExplained(example_sce,
variables=c("tissue", "total mRNA mol", "sex", "age"))
head(vars)## tissue total mRNA mol sex age
## Tspan12 0.02207262 0.074086504 0.146344996 0.09472155
## Tshz1 3.36083014 0.003846487 0.001079356 0.31262288
## Fnbp1l 0.43597185 0.421086301 0.003071630 0.64964174
## Adamts15 0.54233888 0.005348505 0.030821621 0.01393787
## Cldn12 0.03506751 0.309128294 0.008341408 0.02363737
## Rxfp1 0.18559637 0.016290703 0.055646799 0.02128006plotExplanatoryVariables(vars)
3 Visualizing expression values
The plotExpression() function makes it easy to plot expression values for a subset of genes or features.
This can be particularly useful for further examination of features identified from differential expression testing, pseudotime analysis or other analyses.
By default, it uses expression values in the "logcounts" assay, but this can be changed through the exprs_values argument.
plotExpression(example_sce, rownames(example_sce)[1:6], x = "level1class")
Setting x will determine the covariate to be shown on the x-axis.
This can be a field in the column metadata or the name of a feature (to obtain the expression profile across cells).
Categorical covariates will yield grouped violins as shown above, with one panel per feature.
By comparison, continuous covariates will generate a scatter plot in each panel, as shown below.
plotExpression(example_sce, rownames(example_sce)[1:6],
x = rownames(example_sce)[10])
The points can also be coloured, shaped or resized by the column metadata or expression values.
plotExpression(example_sce, rownames(example_sce)[1:6],
x = "level1class", colour_by="tissue")
Directly plotting the gene expression without any x or other visual parameters will generate a set of grouped violin plots, coloured in an aesthetically pleasing manner.
plotExpression(example_sce, rownames(example_sce)[1:6])
4 Dimensionality reduction
4.1 Principal components analysis
Principal components analysis (PCA) is often performed to denoise and compact the data prior to downstream analyses.
The runPCA() function provides a simple wrapper around the base machinery in BiocSingular for computing PCs from log-transformed expression values.
This stores the output in the reducedDims slot of the SingleCellExperiment, which can be easily retrieved (along with the percentage of variance explained by each PC) as shown below:
example_sce <- runPCA(example_sce)
str(reducedDim(example_sce, "PCA"))## num [1:3005, 1:50] -15.4 -15 -17.2 -16.9 -18.4 ...
## - attr(*, "dimnames")=List of 2
## ..$ : chr [1:3005] "1772071015_C02" "1772071017_G12" "1772071017_A05" "1772071014_B06" ...
## ..$ : chr [1:50] "PC1" "PC2" "PC3" "PC4" ...
## - attr(*, "varExplained")= num [1:50] 478 112.8 51.1 47 33.2 ...
## - attr(*, "percentVar")= num [1:50] 39.72 9.38 4.25 3.9 2.76 ...
## - attr(*, "rotation")= num [1:500, 1:50] 0.1471 0.1146 0.1084 0.0958 0.0953 ...
## ..- attr(*, "dimnames")=List of 2
## .. ..$ : chr [1:500] "Plp1" "Trf" "Mal" "Apod" ...
## .. ..$ : chr [1:50] "PC1" "PC2" "PC3" "PC4" ...By default, runPCA() uses the top 500 genes with the highest variances to compute the first PCs.
This can be tuned by specifying subset_row to pass in an explicit set of genes of interest,
and by using ncomponents to determine the number of components to compute.
The name argument can also be used to change the name of the result in the reducedDims slot.
example_sce <- runPCA(example_sce, name="PCA2",
subset_row=rownames(example_sce)[1:1000],
ncomponents=25)
str(reducedDim(example_sce, "PCA2"))## num [1:3005, 1:25] -20 -21 -23 -23.7 -21.5 ...
## - attr(*, "dimnames")=List of 2
## ..$ : chr [1:3005] "1772071015_C02" "1772071017_G12" "1772071017_A05" "1772071014_B06" ...
## ..$ : chr [1:25] "PC1" "PC2" "PC3" "PC4" ...
## - attr(*, "varExplained")= num [1:25] 153 35 23.5 11.6 10.8 ...
## - attr(*, "percentVar")= num [1:25] 22.3 5.11 3.42 1.69 1.58 ...
## - attr(*, "rotation")= num [1:1000, 1:25] -2.24e-04 -8.52e-05 -2.43e-02 -5.92e-04 -6.35e-03 ...
## ..- attr(*, "dimnames")=List of 2
## .. ..$ : chr [1:1000] "Tspan12" "Tshz1" "Fnbp1l" "Adamts15" ...
## .. ..$ : chr [1:25] "PC1" "PC2" "PC3" "PC4" ...4.2 Other dimensionality reduction methods
\(t\)-distributed stochastic neighbour embedding (\(t\)-SNE) is widely used for visualizing complex single-cell data sets.
The same procedure described for PCA plots can be applied to generate \(t\)-SNE plots using plotTSNE, with coordinates obtained using runTSNE via the Rtsne package.
We strongly recommend generating plots with different random seeds and perplexity values, to ensure that any conclusions are robus
t to different visualizations.
# Perplexity of 10 just chosen here arbitrarily.
set.seed(1000)
example_sce <- runTSNE(example_sce, perplexity=10)
head(reducedDim(example_sce, "TSNE"))## [,1] [,2]
## 1772071015_C02 -52.54388 -12.06231
## 1772071017_G12 -55.81415 -10.97197
## 1772071017_A05 -52.16897 -12.01452
## 1772071014_B06 -55.41195 -10.67912
## 1772067065_H06 -55.06048 -10.25051
## 1772071017_E02 -55.98196 -10.44414A more common pattern involves using the pre-existing PCA results as input into the \(t\)-SNE algorithm. This is useful as it improves speed by using a low-rank approximation of the expression matrix; and reduces random noise, by focusing on the major factors of variation. The code below uses the first 10 dimensions of the previously computed PCA result to perform the \(t\)-SNE.
set.seed(1000)
example_sce <- runTSNE(example_sce, perplexity=50,
dimred="PCA", n_dimred=10)
head(reducedDim(example_sce, "TSNE"))## [,1] [,2]
## 1772071015_C02 -36.99810 0.80623729
## 1772071017_G12 -34.88062 0.09162942
## 1772071017_A05 -37.41356 1.26107262
## 1772071014_B06 -37.43902 -0.36348474
## 1772067065_H06 -39.76326 -1.04437512
## 1772071017_E02 -37.67045 2.41426286The same can be done for uniform manifold with approximate projection (UMAP) via the runUMAP() function, itself based on the uwot package.
example_sce <- runUMAP(example_sce)
head(reducedDim(example_sce, "UMAP"))## [,1] [,2]
## 1772071015_C02 -12.04324 -2.072196
## 1772071017_G12 -12.11942 -2.135925
## 1772071017_A05 -11.93046 -2.005134
## 1772071014_B06 -12.08696 -2.123133
## 1772067065_H06 -12.11039 -2.148298
## 1772071017_E02 -12.10755 -2.1388694.3 Visualizing reduced dimensions
Any dimensionality reduction result can be plotted using the plotReducedDim function.
Here, each point represents a cell and is coloured according to its cell type label.
plotReducedDim(example_sce, dimred = "PCA", colour_by = "level1class")
Some result types have dedicated wrappers for convenience, e.g., plotTSNE() for \(t\)-SNE results:
plotTSNE(example_sce, colour_by = "Snap25")
The dedicated plotPCA() function also adds the percentage of variance explained to the axes:
plotPCA(example_sce, colour_by="Mog")
Multiple components can be plotted in a series of pairwise plots. When more than two components are plotted, the diagonal boxes in the scatter plot matrix show the density for each component.
example_sce <- runPCA(example_sce, ncomponents=20)
plotPCA(example_sce, ncomponents = 4, colour_by = "level1class")
We separate the execution of these functions from the plotting to enable the same coordinates to be re-used across multiple plots. This avoids repeatedly recomputing those coordinates just to change an aesthetic across plots.
5 Utilities for custom visualization
We provide some helper functions to easily convert from a SingleCellExperiment object to a data.frame for use in, say, ggplot2 functions.
This allows users to create highly customized plots that are not covered by the existing scater functions.
The ggcells() function will intelligently retrieve fields from the colData(), assays(), altExps() or reducedDims() to create a single data.frame for immediate use.
In the example below, we create boxplots of Snap25 expression stratified by cell type and tissue of origin:
ggcells(example_sce, mapping=aes(x=level1class, y=Snap25)) +
geom_boxplot() +
facet_wrap(~tissue)
Reduced dimension results are easily pulled in to create customized equivalents of the plotReducedDim() output.
In this example, we create a \(t\)-SNE plot faceted by tissue and coloured by Snap25 expression:
ggcells(example_sce, mapping=aes(x=TSNE.1, y=TSNE.2, colour=Snap25)) +
geom_point() +
stat_density_2d() +
facet_wrap(~tissue) +
scale_colour_distiller(direction=1)
It is also straightforward to examine the relationship between the size factors on the normalized gene expression:
ggcells(example_sce, mapping=aes(x=sizeFactor, y=Actb)) +
geom_point() +
geom_smooth()
Similar operations can be performed on the features using the ggfeatures() function,
which will retrieve values either from rowData or from the columns of the assays.
Here, we examine the relationship between the feature type and the expression within a given cell;
note the renaming of the otherwise syntactically invalid cell name.
colnames(example_sce) <- make.names(colnames(example_sce))
ggfeatures(example_sce, mapping=aes(x=featureType, y=X1772062111_E06)) +
geom_violin()
Session information
sessionInfo()## R version 4.1.0 (2021-05-18)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 20.04.2 LTS
##
## Matrix products: default
## BLAS: /home/biocbuild/bbs-3.13-bioc/R/lib/libRblas.so
## LAPACK: /home/biocbuild/bbs-3.13-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] parallel stats4 stats graphics grDevices utils datasets
## [8] methods base
##
## other attached packages:
## [1] scater_1.20.1 ggplot2_3.3.3
## [3] scuttle_1.2.0 scRNAseq_2.6.1
## [5] SingleCellExperiment_1.14.1 SummarizedExperiment_1.22.0
## [7] Biobase_2.52.0 GenomicRanges_1.44.0
## [9] GenomeInfoDb_1.28.0 IRanges_2.26.0
## [11] S4Vectors_0.30.0 BiocGenerics_0.38.0
## [13] MatrixGenerics_1.4.0 matrixStats_0.59.0
## [15] BiocStyle_2.20.1
##
## loaded via a namespace (and not attached):
## [1] AnnotationHub_3.0.0 BiocFileCache_2.0.0
## [3] lazyeval_0.2.2 splines_4.1.0
## [5] BiocParallel_1.26.0 digest_0.6.27
## [7] ensembldb_2.16.0 htmltools_0.5.1.1
## [9] viridis_0.6.1 magick_2.7.2
## [11] fansi_0.5.0 magrittr_2.0.1
## [13] memoise_2.0.0 ScaledMatrix_1.0.0
## [15] Biostrings_2.60.1 prettyunits_1.1.1
## [17] colorspace_2.0-1 blob_1.2.1
## [19] rappdirs_0.3.3 xfun_0.23
## [21] dplyr_1.0.6 crayon_1.4.1
## [23] RCurl_1.98-1.3 jsonlite_1.7.2
## [25] glue_1.4.2 gtable_0.3.0
## [27] zlibbioc_1.38.0 XVector_0.32.0
## [29] DelayedArray_0.18.0 BiocSingular_1.8.1
## [31] scales_1.1.1 DBI_1.1.1
## [33] Rcpp_1.0.6 isoband_0.2.4
## [35] viridisLite_0.4.0 xtable_1.8-4
## [37] progress_1.2.2 bit_4.0.4
## [39] rsvd_1.0.5 httr_1.4.2
## [41] RColorBrewer_1.1-2 FNN_1.1.3
## [43] ellipsis_0.3.2 pkgconfig_2.0.3
## [45] XML_3.99-0.6 farver_2.1.0
## [47] sass_0.4.0 uwot_0.1.10
## [49] dbplyr_2.1.1 utf8_1.2.1
## [51] tidyselect_1.1.1 labeling_0.4.2
## [53] rlang_0.4.11 later_1.2.0
## [55] AnnotationDbi_1.54.1 munsell_0.5.0
## [57] BiocVersion_3.13.1 tools_4.1.0
## [59] cachem_1.0.5 generics_0.1.0
## [61] RSQLite_2.2.7 ExperimentHub_2.0.0
## [63] evaluate_0.14 stringr_1.4.0
## [65] fastmap_1.1.0 yaml_2.2.1
## [67] knitr_1.33 bit64_4.0.5
## [69] purrr_0.3.4 KEGGREST_1.32.0
## [71] AnnotationFilter_1.16.0 nlme_3.1-152
## [73] sparseMatrixStats_1.4.0 mime_0.10
## [75] xml2_1.3.2 biomaRt_2.48.1
## [77] compiler_4.1.0 beeswarm_0.4.0
## [79] filelock_1.0.2 curl_4.3.1
## [81] png_0.1-7 interactiveDisplayBase_1.30.0
## [83] tibble_3.1.2 bslib_0.2.5.1
## [85] stringi_1.6.2 highr_0.9
## [87] GenomicFeatures_1.44.0 RSpectra_0.16-0
## [89] lattice_0.20-44 ProtGenerics_1.24.0
## [91] Matrix_1.3-4 vctrs_0.3.8
## [93] pillar_1.6.1 lifecycle_1.0.0
## [95] BiocManager_1.30.15 jquerylib_0.1.4
## [97] BiocNeighbors_1.10.0 cowplot_1.1.1
## [99] bitops_1.0-7 irlba_2.3.3
## [101] httpuv_1.6.1 rtracklayer_1.52.0
## [103] R6_2.5.0 BiocIO_1.2.0
## [105] bookdown_0.22 promises_1.2.0.1
## [107] gridExtra_2.3 vipor_0.4.5
## [109] MASS_7.3-54 assertthat_0.2.1
## [111] rjson_0.2.20 withr_2.4.2
## [113] GenomicAlignments_1.28.0 Rsamtools_2.8.0
## [115] GenomeInfoDbData_1.2.6 mgcv_1.8-36
## [117] hms_1.1.0 grid_4.1.0
## [119] beachmat_2.8.0 rmarkdown_2.8
## [121] DelayedMatrixStats_1.14.0 Rtsne_0.15
## [123] shiny_1.6.0 ggbeeswarm_0.6.0
## [125] restfulr_0.0.13