R：如何制作仅在一侧分级的热图色标？

Question

我正在使用r中的pheatmap生成一个热图。我正在绘制基于倍数变化的上调或下调签名的错误发现率校正的p值。我希望将色阶从-0.1分级为0。然后将颜色切换为0，然后再次从0分级为0.1。如何使色阶仅在一侧分级？

data=read.csv("metabolism_heatmap.csv")
rownames(data)=data$Gene
data$Category=as.character(data$Category)
data=data[order(data$Category),]
#rows 1-29 = one category
#cols 11-12 = signed FDR-value for 2 groups of samples
colors2<- colorRampPalette(c("white", "blue", "red", "white"))(n = 100)
pheatmap(data[1:29,c(11,12)], 
     color= colors2,
     cluster_rows = FALSE,
     breaks = seq(-0.1,0.1,length.out = 101))

这是情节。我想摆脱紫色，并在零处设置清晰的边界。 Heatmap