Figure S5

# Overarching Seurat object.
path.to.sample <- "path_to_snRNAseq_sample"
sample <- readRDS(path.to.sample)


# Figure S5A
p1 <- SCpubr::do_DotPlot(sample,
                         features = "TM4SF1", 
                         font.size = 16,
                         group.by = "Final_Annotation",
                         zscore.data = TRUE)