pheatmap自定义颜色

bks <- seq(0,1, by = 0.01)
color.use <- rev(RColorBrewer::brewer.pal(n=10, name='Spectral'))
hmcols <- colorRampPalette(color.use)(length(bks) - 1)

pheatmap(xxx, breaks=bks, color=hmcols)