seqFISH Mouse Visual Cortex
30 October, 2021
1 Installation
if (!requireNamespace("BiocManager", quietly = TRUE))
install.packages("BiocManager")
BiocManager::install("SingleCellMultiModal")1.1 Load packages
library(MultiAssayExperiment)
library(SpatialExperiment)
library(SingleCellMultiModal)2 seq-FISH dataset
The dataset consists of two data types, seq-FISH data was provided by Zhu et al. (2018), while scRNA-seq data was provided by Tasic et al. (2016).
Data have been retrievedas part of the Hackathon in the Mathematical Frameworks for Integrative Analysis of Emerging Biological DataTypes workshop.
2.1 Downloading datasets
The user can see the available dataset by using the default options
seqFISH(
DataType="mouse_visual_cortex", modes="*", dry.run=TRUE, version="2.0.0"
)## snapshotDate(): 2021-10-18## ah_id mode file_size rdataclass rdatadateadded
## 1 EH3785 scRNA_Counts 0.2 Mb matrix 2020-09-14
## 2 EH3786 scRNA_Labels 0 Mb data.frame 2020-09-14
## 3 EH3787 seqFISH_Coordinates 0 Mb data.frame 2020-09-14
## 4 EH3788 seqFISH_Counts 0.2 Mb matrix 2020-09-14
## 5 EH3789 seqFISH_Labels 0 Mb data.frame 2020-09-14
## rdatadateremoved
## 1 <NA>
## 2 <NA>
## 3 <NA>
## 4 <NA>
## 5 <NA>Or simply by running:
seqfish <- seqFISH(
DataType="mouse_visual_cortex", modes="*", dry.run=FALSE, version="2.0.0"
)## snapshotDate(): 2021-10-18## Working on: scRNA_Counts## Working on: scRNA_Labels## Working on: seqFISH_Coordinates## Working on: seqFISH_Counts## Working on: seqFISH_Labels## see ?SingleCellMultiModal and browseVignettes('SingleCellMultiModal') for documentation## loading from cache## see ?SingleCellMultiModal and browseVignettes('SingleCellMultiModal') for documentation## loading from cache## see ?SingleCellMultiModal and browseVignettes('SingleCellMultiModal') for documentation## loading from cache## see ?SingleCellMultiModal and browseVignettes('SingleCellMultiModal') for documentation## loading from cache## see ?SingleCellMultiModal and browseVignettes('SingleCellMultiModal') for documentation## loading from cache## Warning: 'ExperimentList' contains 'data.frame' or 'DataFrame',
## potential for errors with mixed data types
## Warning: 'ExperimentList' contains 'data.frame' or 'DataFrame',
## potential for errors with mixed data types
## Warning: 'ExperimentList' contains 'data.frame' or 'DataFrame',
## potential for errors with mixed data typesseqfish## A MultiAssayExperiment object of 2 listed
## experiments with user-defined names and respective classes.
## Containing an ExperimentList class object of length 2:
## [1] seqFISH: SpatialExperiment with 113 rows and 1597 columns
## [2] scRNAseq: SingleCellExperiment with 113 rows and 1722 columns
## Functionality:
## experiments() - obtain the ExperimentList instance
## colData() - the primary/phenotype DataFrame
## sampleMap() - the sample coordination DataFrame
## `$`, `[`, `[[` - extract colData columns, subset, or experiment
## *Format() - convert into a long or wide DataFrame
## assays() - convert ExperimentList to a SimpleList of matrices
## exportClass() - save data to flat filesExtract the list of experiments without the associated colData.
experiments(seqfish)## ExperimentList class object of length 2:
## [1] seqFISH: SpatialExperiment with 113 rows and 1597 columns
## [2] scRNAseq: SingleCellExperiment with 113 rows and 1722 columns2.2 Exploring the data structure
Check row annotations for all experiments:
rownames(seqfish)## CharacterList of length 2
## [["seqFISH"]] abca15 abca9 acta2 adcy4 aldh3b2 ... wrn zfp182 zfp715 zfp90
## [["scRNAseq"]] abca15 abca9 acta2 adcy4 aldh3b2 ... wrn zfp182 zfp715 zfp90Take a peek at the sampleMap (graph representation of assays, cells, and
barcodes):
sampleMap(seqfish)## DataFrame with 3319 rows and 3 columns
## assay primary colname
## <factor> <character> <character>
## 1 seqFISH V2 V2
## 2 seqFISH V3 V3
## 3 seqFISH V4 V4
## 4 seqFISH V5 V5
## 5 seqFISH V6 V6
## ... ... ... ...
## 3315 scRNAseq V1719 V1719
## 3316 scRNAseq V1720 V1720
## 3317 scRNAseq V1721 V1721
## 3318 scRNAseq V1722 V1722
## 3319 scRNAseq V1723 V17232.3 Visualize matching cell identifiers across assays
upsetSamples(seqfish)
This shows that about 1597 cells match across both modalities / assays.
2.4 scRNA-seq data
The scRNA-seq data are accessible with $scRNAseq, which returns a
SingleCellExperiment class object, with all its associated methods.
seqfish[["scRNAseq"]]## class: SingleCellExperiment
## dim: 113 1722
## metadata(0):
## assays(1): counts
## rownames(113): abca15 abca9 ... zfp715 zfp90
## rowData names(0):
## colnames(1722): V2 V3 ... V1722 V1723
## colData names(3): broad_type sample_name dissection
## reducedDimNames(0):
## mainExpName: NULL
## altExpNames(0):Otherwhise the assay function can be used to access the scRNAseq assay
stored in the seqfish MultiAssayExperiment object.
head(assay(seqfish, "scRNAseq"))[,1:4]## V2 V3 V4 V5
## abca15 11 42 17 42
## abca9 22 46 22 46
## acta2 15 47 15 42
## adcy4 12 45 12 45
## aldh3b2 27 49 27 49
## amigo2 23 43 101 432.5 seq-FISH data
The seq-FISH data are accessible with $seqFISH, which returns a
SpatialExperiment class object.
seqfish[["seqFISH"]]## class: SpatialExperiment
## dim: 113 1597
## metadata(0):
## assays(1): counts
## rownames(113): abca15 abca9 ... zfp715 zfp90
## rowData names(1): X
## colnames(1597): V2 V3 ... V1597 V1598
## colData names(7): Cell_ID cluster ... Prob sample_id
## reducedDimNames(0):
## mainExpName: NULL
## altExpNames(0):
## spatialData names(2) : Cell_ID Irrelevant
## spatialCoords names(2) : x y
## imgData names(0):Otherwhise the assay function can be used to access the seqFISH assay
stored in the seqfish MultiAssayExperiment object.
head(assay(seqfish, "seqFISH"))[,1:4]## V2 V3 V4 V5
## abca15 68 49 50 39
## abca9 41 42 38 36
## acta2 25 23 16 21
## adcy4 39 54 37 18
## aldh3b2 101 47 41 52
## amigo2 93 64 93 93Spatial data can be retrieved with spatialData function on the
SpatialExperiment object.
(sd <- spatialData(seqfish[["seqFISH"]]))## DataFrame with 1597 rows and 2 columns
## Cell_ID Irrelevant
## <integer> <integer>
## 1 1 100
## 2 2 100
## 3 3 100
## 4 4 100
## 5 5 100
## ... ... ...
## 1593 1593 100
## 1594 1594 100
## 1595 1595 100
## 1596 1596 100
## 1597 1597 100Spatial coordinates within the spatial data can be retrieved in matrix form
with spatialCoords function on the SpatialExperiment object.
head(sc <- spatialCoords(seqfish[["seqFISH"]]))## x y
## [1,] 265.76 -231.14
## [2,] 290.48 -261.52
## [3,] 257.12 -133.35
## [4,] 753.46 -261.14
## [5,] 700.01 -169.05
## [6,] 415.63 -252.45Direct access to the colnames of the spacial coordinates with
spatialCoordsNames function.
spatialCoordsNames(seqfish[["seqFISH"]])## [1] "x" "y"2.6 Other data version
The provided seqFISH dataset comes out in two different versions:
- 1.0.0 - provides the same seqFISH data as shown in the rest of this vignette, but it returns the full normalized scRNA-seq data matrix (with labels), as released from the original authors on the GEO database.
- 2.0.0 - provides the same seqFISH data as shown in the rest of this vignette, but it returns a processed subset of the original scRNA-seq data, providing only the same genes present in the seqFISH data matrix.
2.6.1 Data version 1.0.0
The full scRNA-seq data matrix is 24057 rows x 1809 columns.
To access the v1.0.0 simply run
seqFISH(
DataType="mouse_visual_cortex", modes="*", dry.run=FALSE, version="1.0.0"
)## snapshotDate(): 2021-10-18## Working on: scRNA_Full_Counts## Working on: scRNA_Full_Labels## Working on: seqFISH_Coordinates## Working on: seqFISH_Counts## Working on: seqFISH_Labels## see ?SingleCellMultiModal and browseVignettes('SingleCellMultiModal') for documentation## loading from cache## see ?SingleCellMultiModal and browseVignettes('SingleCellMultiModal') for documentation## loading from cache## see ?SingleCellMultiModal and browseVignettes('SingleCellMultiModal') for documentation## loading from cache## see ?SingleCellMultiModal and browseVignettes('SingleCellMultiModal') for documentation## loading from cache## see ?SingleCellMultiModal and browseVignettes('SingleCellMultiModal') for documentation## loading from cache## Warning: 'ExperimentList' contains 'data.frame' or 'DataFrame',
## potential for errors with mixed data types
## Warning: 'ExperimentList' contains 'data.frame' or 'DataFrame',
## potential for errors with mixed data types
## Warning: 'ExperimentList' contains 'data.frame' or 'DataFrame',
## potential for errors with mixed data types## A MultiAssayExperiment object of 2 listed
## experiments with user-defined names and respective classes.
## Containing an ExperimentList class object of length 2:
## [1] seqFISH: SpatialExperiment with 113 rows and 1597 columns
## [2] scRNAseq: SingleCellExperiment with 24057 rows and 1809 columns
## Functionality:
## experiments() - obtain the ExperimentList instance
## colData() - the primary/phenotype DataFrame
## sampleMap() - the sample coordination DataFrame
## `$`, `[`, `[[` - extract colData columns, subset, or experiment
## *Format() - convert into a long or wide DataFrame
## assays() - convert ExperimentList to a SimpleList of matrices
## exportClass() - save data to flat files3 Session Info
sessionInfo()## R version 4.1.1 (2021-08-10)
## Platform: x86_64-pc-linux-gnu (64-bit)
## Running under: Ubuntu 20.04.3 LTS
##
## Matrix products: default
## BLAS: /home/biocbuild/bbs-3.14-bioc/R/lib/libRblas.so
## LAPACK: /home/biocbuild/bbs-3.14-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] SpatialExperiment_1.4.0 scater_1.22.0
## [3] ggplot2_3.3.5 scran_1.22.0
## [5] scuttle_1.4.0 SingleCellExperiment_1.16.0
## [7] rhdf5_2.38.0 RaggedExperiment_1.18.0
## [9] SingleCellMultiModal_1.6.0 MultiAssayExperiment_1.20.0
## [11] SummarizedExperiment_1.24.0 Biobase_2.54.0
## [13] GenomicRanges_1.46.0 GenomeInfoDb_1.30.0
## [15] IRanges_2.28.0 S4Vectors_0.32.0
## [17] BiocGenerics_0.40.0 MatrixGenerics_1.6.0
## [19] matrixStats_0.61.0 BiocStyle_2.22.0
##
## loaded via a namespace (and not attached):
## [1] AnnotationHub_3.2.0 BiocFileCache_2.2.0
## [3] plyr_1.8.6 igraph_1.2.7
## [5] BiocParallel_1.28.0 digest_0.6.28
## [7] htmltools_0.5.2 viridis_0.6.2
## [9] magick_2.7.3 fansi_0.5.0
## [11] magrittr_2.0.1 memoise_2.0.0
## [13] ScaledMatrix_1.2.0 cluster_2.1.2
## [15] limma_3.50.0 Biostrings_2.62.0
## [17] R.utils_2.11.0 colorspace_2.0-2
## [19] blob_1.2.2 rappdirs_0.3.3
## [21] ggrepel_0.9.1 xfun_0.27
## [23] dplyr_1.0.7 crayon_1.4.1
## [25] RCurl_1.98-1.5 jsonlite_1.7.2
## [27] glue_1.4.2 gtable_0.3.0
## [29] zlibbioc_1.40.0 XVector_0.34.0
## [31] UpSetR_1.4.0 DelayedArray_0.20.0
## [33] BiocSingular_1.10.0 DropletUtils_1.14.0
## [35] Rhdf5lib_1.16.0 HDF5Array_1.22.0
## [37] scales_1.1.1 DBI_1.1.1
## [39] edgeR_3.36.0 Rcpp_1.0.7
## [41] viridisLite_0.4.0 xtable_1.8-4
## [43] dqrng_0.3.0 bit_4.0.4
## [45] rsvd_1.0.5 metapod_1.2.0
## [47] httr_1.4.2 ellipsis_0.3.2
## [49] farver_2.1.0 pkgconfig_2.0.3
## [51] R.methodsS3_1.8.1 uwot_0.1.10
## [53] sass_0.4.0 dbplyr_2.1.1
## [55] locfit_1.5-9.4 utf8_1.2.2
## [57] tidyselect_1.1.1 labeling_0.4.2
## [59] rlang_0.4.12 later_1.3.0
## [61] AnnotationDbi_1.56.1 munsell_0.5.0
## [63] BiocVersion_3.14.0 tools_4.1.1
## [65] cachem_1.0.6 generics_0.1.1
## [67] RSQLite_2.2.8 ExperimentHub_2.2.0
## [69] evaluate_0.14 stringr_1.4.0
## [71] fastmap_1.1.0 yaml_2.2.1
## [73] knitr_1.36 bit64_4.0.5
## [75] purrr_0.3.4 KEGGREST_1.34.0
## [77] sparseMatrixStats_1.6.0 mime_0.12
## [79] formatR_1.11 R.oo_1.24.0
## [81] compiler_4.1.1 beeswarm_0.4.0
## [83] filelock_1.0.2 curl_4.3.2
## [85] png_0.1-7 interactiveDisplayBase_1.32.0
## [87] tibble_3.1.5 statmod_1.4.36
## [89] bslib_0.3.1 stringi_1.7.5
## [91] highr_0.9 RSpectra_0.16-0
## [93] lattice_0.20-45 bluster_1.4.0
## [95] Matrix_1.3-4 vctrs_0.3.8
## [97] pillar_1.6.4 lifecycle_1.0.1
## [99] rhdf5filters_1.6.0 BiocManager_1.30.16
## [101] jquerylib_0.1.4 RcppAnnoy_0.0.19
## [103] BiocNeighbors_1.12.0 cowplot_1.1.1
## [105] bitops_1.0-7 irlba_2.3.3
## [107] httpuv_1.6.3 R6_2.5.1
## [109] bookdown_0.24 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.20 withr_2.4.2
## [117] GenomeInfoDbData_1.2.7 parallel_4.1.1
## [119] grid_4.1.1 beachmat_2.10.0
## [121] rmarkdown_2.11 DelayedMatrixStats_1.16.0
## [123] shiny_1.7.1 ggbeeswarm_0.6.0Tasic, Bosiljka, Vilas Menon, Thuc Nghi Nguyen, Tae Kyung Kim, Tim Jarsky, Zizhen Yao, Boaz Levi, et al. 2016. “Adult Mouse Cortical Cell Taxonomy Revealed by Single Cell Transcriptomics.” Nature Neuroscience 19 (2): 335.
Zhu, Qian, Sheel Shah, Ruben Dries, Long Cai, and Guo-Cheng Yuan. 2018. “Identification of Spatially Associated Subpopulations by Combining scRNAseq and Sequential Fluorescence in Situ Hybridization Data.” Nature Biotechnology 36 (12): 1183.