限定顏范圍
ys <- c(seq(-2,-0.01,by=0.01),seq(0,2,by=0.01)) # 限定顏范圍
col_set <- c(colorRampPalette(colors = viridis::viridis(6)[1:3])(length(ys)/2),colorRampPalette(colors = viridis::viridis(6)[4:6])(length(ys)/2))
pheatmap::pheatmap(avg_df_list[["Nor.Lsec"]],
color = col_set, #colorRampPalette(c('blue','white','red'))(100),
border_color = 'white',
cluster_cols = F,
cluster_rows = F,
clustering_method = clustering_method,
cutree_rows = length(colnames(avg_df_list[["Nor.Lsec"]])),
legend = F, show_rownames = F,
scale = 'row', filename = "Nor.Lsec_heatmap.pdf", width = 1.8, height = 5, cellwidth = 18,
legend_breaks=seq(-2,2,1), main = "Nor.Lsec",
breaks=ys,
fontsize = 14)
原文參考：http://www.reibang.com/p/95847b8cb454
