I would like to pheatmap but I  have some problems on colors.

quantile(mat)
        0%        25%        50%        75%       100%
-2.9058611 -0.4772665 -0.1042894  0.3581126  6.3077411 
mypalette3<-colorRampPalette(c("red","blue"))(n=30)
col_breaks=c(seq(-1,0.09,length = 20),seq(2,10,length= 20))
pheatmap(mat,method="complete",main = "Differential genes padj < 0.1 ",color=mypalette3, show_rownames = F,annotation_legend = FALSE, legend=T, cluster_cols=TRUE,cexRow=0.55,cluster_rows = T,breaks = col_breaks)

Why red come also for positive numbers?

https://postimg.org/image/el1ed1esf/