DoHeatmap 调整热图颜色

[参考链接] (https://github.com/satijalab/seurat/issues/1048)

library(Seurat)
library(ggplot2)
pbmc<-readRDS(pbmc3k.rds)
p<-DoHeatmap(pbmc)+scale_fill_gradientn(colors = c("blue", "white", "red"))