celltype_maps | R Documentation |
Mappings from cell-type names to cell-type ontology terms in the HumanCellLandscape and DescartesHuman scRNA-seq datasets.
data("celltype_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("Main_cluster_name",
"author_cell_type",
"cell_type_ontology_term_id",
"cell_type")
celltype_maps <- lapply(obj_list, function(obj){
select_cols <- cols[cols
meta <- unique(data.table::as.data.table(obj@meta.data[,select_cols]))
data.table::setnames(meta, 1, "author_celltype")
meta[,author_celltype:=EWCE::fix_celltype_names(author_celltype, make_unique = FALSE)]
unique(meta)
}) |> data.table::rbindlist(idcol = "ctd")
#### Ensure one entry per cell type
celltype_maps <- celltype_maps[,.SD[1],by=c("ctd","author_celltype")]
## Rename cols to make more concise and conform to hpo_id/hpo_name format
data.table::setnames(celltype_maps,
c("cell_type_ontology_term_id","cell_type"),
c("cl_id","cl_name"))
celltype_maps <- fix_cl_ids(celltype_maps)
usethis::use_data(celltype_maps, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.