To install the package, start R and enter:
if(!requireNamespace("BiocManager", quietly = TRUE))
install.packages("BiocManager")
BiocManager::install("MerfishData")
After the installation, we proceed by loading the package and additional packages used in the vignette.
library(MerfishData)
library(ExperimentHub)
#> Warning: replacing previous import 'utils::findMatches' by
#> 'S4Vectors::findMatches' when loading 'AnnotationDbi'
library(ggpubr)
Moffitt et al., 2018 developed an imaging-based cell type identification and mapping method and combined it with single-cell RNA-sequencing to create a molecularly annotated and spatially resolved cell atlas of the mouse hypothalamic preoptic region.
Def. hypothalamic preoptic region: is a part of the anterior hypothalamus that controls essential social behaviors and homeostatic functions.
Cell segmentation was carried out based on total polyadenylated mRNA and DAPI nuclei costains. Combinatorial smFISH imaging was used for the identification and spatial expression profiling of 161 genes in 1,027,848 cells from 36 mice (16 female, 20 male).
The data was obtained from the datadryad data publication.
This vignette demonstrates how to obtain the MERFISH mouse hypothalamic preoptic region dataset from Moffitt et al., 2018 from Bioconductor’s ExperimentHub.
eh <- ExperimentHub()
query(eh, c("MerfishData", "hypothalamus"))
#> ExperimentHub with 2 records
#> # snapshotDate(): 2023-04-24
#> # $dataprovider: Howard Hughes Medical Institute
#> # $species: Mus musculus
#> # $rdataclass: data.frame
#> # additional mcols(): taxonomyid, genome, description,
#> # coordinate_1_based, maintainer, rdatadateadded, preparerclass, tags,
#> # rdatapath, sourceurl, sourcetype
#> # retrieve records with, e.g., 'object[["EH7546"]]'
#>
#> title
#> EH7546 | Mofitt2018_hypothalamus_segmentation
#> EH7553 | Mofitt2018_hypothalamus_molecules
Note: complementary scRNA-seq of ~31,000 cells dissociated and captured from the preoptic region of the hypothalamus from multiple male and female mice is available on GEO (GSE113576).
It is also possible to obtain the data in a SpatialExperiment, which integrates experimental data and cell metadata, and provides designated accessors for the spatial coordinates.
spe <- MouseHypothalamusMoffitt2018()
spe
#> class: SpatialExperiment
#> dim: 135 73642
#> metadata(0):
#> assays(2): exprs molecules
#> rownames(135): Ace2 Adora2a ... Ttn Ttyh2
#> rowData names(0):
#> colnames: NULL
#> colData names(6): cell_id sample_id ... cell_class neuron_cluster_id
#> reducedDimNames(0):
#> mainExpName: smFISH
#> altExpNames(2): Blank seqFISH
#> spatialCoords names(3) : x y z
#> imgData names(0):
Inspect the data components:
assay(spe)[1:5,1:5]
#> [,1] [,2] [,3] [,4] [,5]
#> Ace2 0.000000 0.0000000 0.000000 0.0000000 0.000000
#> Adora2a 1.638275 0.0000000 0.000000 0.0000000 0.000000
#> Aldh1l1 21.299750 1.5788733 2.701349 1.8451161 6.352415
#> Amigo2 0.000000 0.0000000 5.402654 0.9225604 0.000000
#> Ano3 1.638275 0.7894518 0.000000 0.0000000 0.000000
assay(spe, "molecules")["Aldh1l1",1]
#> SplitDataFrameList of length 1
#> $Aldh1l1
#> DataFrame with 13 rows and 3 columns
#> x y z
#> <numeric> <numeric> <numeric>
#> 1 -3213.17 2608.99 1.5
#> 2 -3211.52 2609.89 1.5
#> 3 -3208.59 2607.12 1.5
#> 4 -3216.04 2611.64 3.0
#> 5 -3208.68 2606.96 3.0
#> ... ... ... ...
#> 9 -3215.51 2611.82 6.0
#> 10 -3213.33 2606.30 6.0
#> 11 -3211.82 2606.43 6.0
#> 12 -3215.51 2611.82 7.5
#> 13 -3209.87 2607.32 9.0
colData(spe)
#> DataFrame with 73642 rows and 6 columns
#> cell_id sample_id sex behavior cell_class
#> <character> <character> <character> <character> <character>
#> 1 6749ccb4-2ed1-4029-9.. 1 Female Naive Astrocyte
#> 2 6cac74bd-4ea7-4701-8.. 1 Female Naive Inhibitory
#> 3 9f29bd57-16a5-4b26-b.. 1 Female Naive Inhibitory
#> 4 d7eb4e0b-276e-47e3-a.. 1 Female Naive Inhibitory
#> 5 54434f3a-eba9-4aec-a.. 1 Female Naive Inhibitory
#> ... ... ... ... ... ...
#> 73638 7d6f8abd-4529-44a9-b.. 1 Female Naive OD Mature 2
#> 73639 21d04afa-0699-4c35-8.. 1 Female Naive Ambiguous
#> 73640 9e7e7c84-7dcc-4eef-a.. 1 Female Naive OD Immature 1
#> 73641 6b666f81-7b73-4100-9.. 1 Female Naive OD Mature 2
#> 73642 fdcddd97-7701-462a-b.. 1 Female Naive OD Mature 2
#> neuron_cluster_id
#> <character>
#> 1 NA
#> 2 I-5
#> 3 I-6
#> 4 I-5
#> 5 I-9
#> ... ...
#> 73638 NA
#> 73639 NA
#> 73640 NA
#> 73641 NA
#> 73642 NA
head(spatialCoords(spe))
#> x y z
#> [1,] -893.6953 -906.7108 0.26
#> [2,] -890.0563 -893.4568 0.26
#> [3,] -891.7111 -882.0988 0.26
#> [4,] -885.9867 -759.2063 0.26
#> [5,] -884.8158 -906.4486 0.26
#> [6,] -885.5992 -772.0895 0.26
Def. Bregma: The bregma is the anatomical point on the skull at which the coronal suture is intersected perpendicularly by the sagittal suture. Used here as a reference point for the twelve 1.8- by 1.8-mm imaged slices along the z-axis.
The anterior position of the preoptic region is at Bregma +0.26.
table(spatialCoords(spe)[,"z"])
#>
#> -0.29 -0.24 -0.19 -0.14 -0.09 -0.04 0.01 0.06 0.11 0.16 0.21 0.26
#> 6508 6412 6507 6605 6184 6152 6110 6144 5796 6064 5576 5584
Cell type assignment:
table(spe$cell_class)
#>
#> Ambiguous Astrocyte Endothelial 1 Endothelial 2 Endothelial 3
#> 9269 8393 3799 581 1369
#> Ependymal Excitatory Inhibitory Microglia OD Immature 1
#> 1961 11757 24761 1472 2457
#> OD Immature 2 OD Mature 1 OD Mature 2 OD Mature 3 OD Mature 4
#> 91 952 5736 39 367
#> Pericytes
#> 638
Visualize cell centroids and annotated cell type labels as in Figure 3E of the paper for six different anterior-posterior positions from a single female mouse.
relz <- c(0.26, 0.16, 0.06, -0.04, -0.14, -0.24)
cdat <- data.frame(colData(spe), spatialCoords(spe))
cdat <- subset(cdat, cell_class != "Ambiguous")
cdat$cell_class <- sub(" [1-4]$", "", cdat$cell_class)
cdat <- subset(cdat, z %in% relz)
cdat$z <- as.character(cdat$z)
zum <- paste(0:5 * 100, "um")
names(zum) <- as.character(relz)
cdat$z <- unname(zum[cdat$z])
pal <- get_palette("simpsons", 9)
names(pal) <- c("Endothelial", "Excitatory", "OD Immature", "Astrocyte", "Mural",
"Microglia", "Ependymal", "Inhibitory", "OD Mature")
ggscatter(cdat, x = "x", y = "y", color = "cell_class", facet.by = "z",
shape = 20, size = 1, palette = pal) +
guides(color = guide_legend(override.aes = list(size = 3)))