ggplot重新畫seurat對象的聚類圖

library(tidyverse)
library(ggplot2)
library(RColorBrewer)

umap_tx =seurat.integrated@[email protected] %>% 
as.data.frame() %>% cbind(tx = [email protected]$celltype)

ggplot(umap_tx, aes(x=UMAP_1, y=UMAP_2, color=tx)) + geom_point(size=1,alpha = 0.3)+scale_color_manual(values=colorRampPalette(brewer.pal("Set1",n=9))(17))

參考：https://stackoverflow.com/questions/59101791/seurat-dimplot-highlight-specific-groups-of-cells-in-different-colours