tissue_maps | R Documentation |
Mappings from cell-type names to anatomy ontology terms in the HumanCellLandscape and DescartesHuman scRNA-seq datasets.
data("tissue_maps")
data.table
## Download standardised Seurat objects from CellXGene.
obj_list <- list()
obj_list[["DescartesHuman"]] <- readRDS("~/Downloads/db4d63ab-0ca3-4fa5-b0cf-34955227912d.rds")
obj_list[["HumanCellLandscape"]] <- readRDS("~/Downloads/1b7484e3-83a0-47fe-847e-54d811a2adae.rds")
cols <- c("tissue_ontology_term_id",
"tissue",
# "tissue_original",
"cell_type_ontology_term_id",
"cell_type")
tissue_maps <- lapply(obj_list, function(obj){
select_cols <- cols[cols
d <- data.table::as.data.table(obj@meta.data[,select_cols])
d[,cl_count:=.N, by=c("cell_type_ontology_term_id","cell_type")]
unique(d)
}) |> data.table::rbindlist(idcol = "ctd", fill=TRUE)
data.table::setnames(tissue_maps,
c("tissue_ontology_term_id","tissue",
"cell_type_ontology_term_id","cell_type"),
c("uberon_id","uberon_name",
"cl_id","cl_name"))
usethis::use_data(tissue_maps, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.