单细胞改变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)