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)
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)
本文标题:pheatmap自定义颜色
本文链接:https://www.haomeiwen.com/subject/xpmbwdtx.html
网友评论