library(pacman)
p_load(Seurat, RColorBrewer, tidydr, ggplot2)
celltype <- c("Naive CD4 T", "CD14+ Mono", "Memory CD4 T", "B", "CD8 T", "FCGR3A+ Mono", "NK", "DC", "Platelet")
obj$celltype <- factor(obj$seurat_clusters, levels(obj$seurat_clusters), labels=celltype)
DimPlot(obj, reduction='umap', group.by='celltype', cols=brewer.pal(9,'Paired')) + theme_dr() + theme(panel.grid=element_blank())
