Reduced dimension plotting is one
of the essential tools for the analysis of single cell data. However, as
the number of cells/nuclei in these plots increases, the usefulness of
these plots decreases. Many cells are plotted on top of each other
obscuring information, even when taking advantage of transparency
settings. This package provides binning strategies of cells/nuclei into
hexagon cells. Plotting summarized information of all cells/nuclei in
their respective hexagon cells presents information without
obstructions. The package seemlessly works with the two most common
object classes for the storage of single cell data;
SingleCellExperiment
from the SingleCellExperiment
package and Seurat
from the Seurat package. In this
vignette I will be presenting the use of schex
for
SingleCellExperiment
objects that are converted from
Seurat
objects.
In order to demonstrate the capabilities of the schex package, I will use the a subsetted dataset of Peripheral Blood Mononuclear Cells (PBMC) freely available from 10x Genomics. There are 80 single cells with 230 features in this dataset.
pbmc_small
#> An object of class Seurat
#> 230 features across 80 samples within 1 assay
#> Active assay: RNA (230 features, 20 variable features)
#> 3 layers present: counts, data, scale.data
#> 2 dimensional reductions calculated: pca, tsne
The dataset already contains two dimension reductions (PCA and TSNE). We will now add UMAP. Since there is a random component in the UMAP, we will set a seed. You can also add dimension reductions after conversion using package that include functionalities for SingleCellExperiment objects.
At this stage in the workflow we usually would like to plot aspects of our data in one of the reduced dimension representations. Instead of plotting this in an ordinary fashion, I will demonstrate how schex can provide a better way of plotting this.
First, I will calculate the hexagon cell representation for each cell
for a specified dimension reduction representation. I decide to use
nbins=40
which specifies that I divide my x range into 10
bins. Note that this might be a parameter that you want to play around
with depending on the number of cells/ nuclei in your dataset.
Generally, for more cells/nuclei, nbins
should be
increased.
First I plot how many cells are in each hexagon cell. This should be
relatively even, otherwise change the nbins
parameter in
the previous calculation.
Next I colour the hexagon cells by some meta information, such as the median total count in each hexagon cell.
Finally, I will visualize the gene expression of the CD1C gene in the hexagon cell representation.
gene_id <- "CD1C"
schex::plot_hexbin_feature(pbmc.sce,
type = "counts", feature = gene_id,
action = "mean", xlab = "UMAP1", ylab = "UMAP2",
title = paste0("Mean of ", gene_id)
)
schex
output as ggplot
objectsThe schex
packages renders ordinary ggplot
objects and thus these can be treated and manipulated using the ggplot
grammar.
For example the non-data components of the plots can be changed using
the function theme
.
gene_id <- "CD1C"
gg <- schex::plot_hexbin_feature(pbmc.sce,
type = "counts", feature = gene_id,
action = "mean", xlab = "UMAP1", ylab = "UMAP2",
title = paste0("Mean of ", gene_id)
)
gg + theme_void()
The fact that schex
renders ggplot
objects
can also be used to save these plots. Simply use ggsave
in
order to save any created plot.
To find the details of the session for reproducibility, use this:
sessionInfo()
#> R version 4.4.1 (2024-06-14)
#> Platform: x86_64-pc-linux-gnu
#> Running under: Ubuntu 24.04 LTS
#>
#> Matrix products: default
#> BLAS: /usr/lib/x86_64-linux-gnu/openblas-pthread/libblas.so.3
#> LAPACK: /usr/lib/x86_64-linux-gnu/openblas-pthread/libopenblasp-r0.3.26.so; LAPACK version 3.12.0
#>
#> 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
#>
#> time zone: Etc/UTC
#> tzcode source: system (glibc)
#>
#> attached base packages:
#> [1] stats4 stats graphics grDevices utils datasets methods
#> [8] base
#>
#> other attached packages:
#> [1] Seurat_5.1.0 SeuratObject_5.0.2
#> [3] sp_2.1-4 dplyr_1.1.4
#> [5] schex_1.19.0 SingleCellExperiment_1.27.2
#> [7] SummarizedExperiment_1.35.1 Biobase_2.65.0
#> [9] GenomicRanges_1.57.1 GenomeInfoDb_1.41.1
#> [11] IRanges_2.39.2 S4Vectors_0.43.2
#> [13] BiocGenerics_0.51.0 MatrixGenerics_1.17.0
#> [15] matrixStats_1.3.0 ggplot2_3.5.1
#> [17] rmarkdown_2.28
#>
#> loaded via a namespace (and not attached):
#> [1] RColorBrewer_1.1-3 sys_3.4.2 jsonlite_1.8.8
#> [4] magrittr_2.0.3 spatstat.utils_3.1-0 farver_2.1.2
#> [7] zlibbioc_1.51.1 vctrs_0.6.5 ROCR_1.0-11
#> [10] spatstat.explore_3.3-2 htmltools_0.5.8.1 S4Arrays_1.5.7
#> [13] SparseArray_1.5.31 sass_0.4.9 sctransform_0.4.1
#> [16] parallelly_1.38.0 KernSmooth_2.23-24 bslib_0.8.0
#> [19] htmlwidgets_1.6.4 ica_1.0-3 plyr_1.8.9
#> [22] plotly_4.10.4 zoo_1.8-12 cachem_1.1.0
#> [25] buildtools_1.0.0 igraph_2.0.3 mime_0.12
#> [28] lifecycle_1.0.4 pkgconfig_2.0.3 Matrix_1.7-0
#> [31] R6_2.5.1 fastmap_1.2.0 GenomeInfoDbData_1.2.12
#> [34] fitdistrplus_1.2-1 future_1.34.0 shiny_1.9.1
#> [37] digest_0.6.37 colorspace_2.1-1 patchwork_1.2.0
#> [40] tensor_1.5 RSpectra_0.16-2 irlba_2.3.5.1
#> [43] labeling_0.4.3 progressr_0.14.0 spatstat.sparse_3.1-0
#> [46] fansi_1.0.6 httr_1.4.7 polyclip_1.10-7
#> [49] abind_1.4-5 compiler_4.4.1 withr_3.0.1
#> [52] fastDummies_1.7.4 highr_0.11 hexbin_1.28.3
#> [55] ggforce_0.4.2 MASS_7.3-61 concaveman_1.1.0
#> [58] DelayedArray_0.31.11 tools_4.4.1 lmtest_0.9-40
#> [61] httpuv_1.6.15 future.apply_1.11.2 goftest_1.2-3
#> [64] glue_1.7.0 nlme_3.1-166 promises_1.3.0
#> [67] grid_4.4.1 Rtsne_0.17 cluster_2.1.6
#> [70] reshape2_1.4.4 generics_0.1.3 spatstat.data_3.1-2
#> [73] gtable_0.3.5 tidyr_1.3.1 data.table_1.15.4
#> [76] utf8_1.2.4 XVector_0.45.0 spatstat.geom_3.3-2
#> [79] RcppAnnoy_0.0.22 stringr_1.5.1 ggrepel_0.9.5
#> [82] RANN_2.6.1 pillar_1.9.0 spam_2.10-0
#> [85] RcppHNSW_0.6.0 later_1.3.2 splines_4.4.1
#> [88] tweenr_2.0.3 lattice_0.22-6 deldir_2.0-4
#> [91] survival_3.7-0 tidyselect_1.2.1 maketools_1.3.0
#> [94] miniUI_0.1.1.1 pbapply_1.7-2 knitr_1.48
#> [97] gridExtra_2.3 scattermore_1.2 xfun_0.47
#> [100] stringi_1.8.4 UCSC.utils_1.1.0 lazyeval_0.2.2
#> [103] yaml_2.3.10 evaluate_0.24.0 codetools_0.2-20
#> [106] entropy_1.3.1 tibble_3.2.1 cli_3.6.3
#> [109] uwot_0.2.2 xtable_1.8-4 reticulate_1.38.0
#> [112] munsell_0.5.1 jquerylib_0.1.4 Rcpp_1.0.13
#> [115] spatstat.random_3.3-1 globals_0.16.3 png_0.1-8
#> [118] spatstat.univar_3.0-0 parallel_4.4.1 dotCall64_1.1-1
#> [121] listenv_0.9.1 viridisLite_0.4.2 scales_1.3.0
#> [124] ggridges_0.5.6 leiden_0.4.3.1 purrr_1.0.2
#> [127] crayon_1.5.3 rlang_1.1.4 cowplot_1.1.3