单细胞改变seurat cluster 的颜色
my_seurat <- subset(initial_object, idents = 1:16)
levels(Idents(my_seurat))
my_cols <- c('3'='#F68282','15'='#31C53F','5'='#1FA195','1'='#B95FBB','13'='#D4D915',
'14'='#28CECA','9'='#ff9a36','8'='#2FF18B','11'='#aeadb3','6'='#faf4cf',
'2'='#CCB1F1','12'='#25aff5','7'='#A4DFF2','4'='#4B4BF7','16'='#AC8F14',
'10'='#E6C122')
my_cols2 <- my_cols[order(as.integer(names(my_cols)))]
scales::show_col(my_cols2)
DimPlot(my_seurat,
cols = my_cols2, label=TRUE , repel=TRUE)
DoHeatmap(my_seurat,
features = c("gene1", "gene2"),
group.colors = my_cols2)
