heatmap_cor

### heatmap
library(pheatmap)
data<-read.csv(file="Cor.csv",row.names = 1)
head(data)

##       E2F1  E2F2  E2F3    E2F4    E2F5   E2F6   E2F7  E2F8
## E2F1 1.000 0.773 0.275  0.2950  0.2950 0.2320 0.5240 0.613
## E2F2 0.773 1.000 0.458  0.2630  0.3340 0.2440 0.5810 0.700
## E2F3 0.275 0.458 1.000  0.1740  0.3720 0.2290 0.4150 0.447
## E2F4 0.295 0.263 0.174  1.0000 -0.0171 0.0269 0.0211 0.126
## E2F5 0.295 0.334 0.372 -0.0171  1.0000 0.3050 0.2890 0.375
## E2F6 0.232 0.244 0.229  0.0269  0.3050 1.0000 0.2710 0.278

## breaks 设置
bk <- c(seq(-1,-0.1,by=0.01),seq(0,1,by=0.01))

## plot
pheatmap(data,
         cluster_rows=FALSE,
         cluster_cols=FALSE,
         breaks = bk,
         display_numbers = TRUE,#显示数值
         ## set color follow the break
         color = c(colorRampPalette(colors = c("navy","white"))(length(bk)/2),colorRampPalette(colors = c("white","firebrick3"))(length(bk)/2)))