R语言绘制多种颜色的热图heatmap1

library(ComplexHeatmap)
library(circlize)
set.seed(123)
mat<-matrix(rnorm(100),10)
rownames(mat)<-paste0("R",1:10)
colnames(mat)<-paste0("C",1:10)
column_ha<-HeatmapAnnotation(fool=runif(10),bar=anno_barplot(runif(10)))
row_ha<-rowAnnotation(foo2=runif(10),bar2=anno_barplot(runif(10)))
col_fun<-colorRamp2(c(-2,0,2),c("#FF00FF","#228B22","#B22222"))
Heatmap(mat,
        name="mat",
        column_title="pre-defined distance method(1-person)",
        column_title_side="bottom",
        column_title_gp=gpar(fontsize=10,fontface="bold"),
        col=col_fun,
        clustering_distance_rows="pearson",
        cluster_rows=TRUE,
        show_column_dend=FALSE,
        row_km=2,
        column_km=3,
        width=unit(6,"cm"),
        height=unit(6,"cm"),
        top_annotation=column_ha,
        right_annotation=row_ha)

col_fun<-colorRamp2(c(-2,0,2),c("#00FFFF","#7FFFD4","#000000"))

col_fun<-colorRamp2(c(-2,0,2),c("#A52A2A","#8A2BE2","#0000FF"))

col_fun<-colorRamp2(c(-2,0,2),c("#DEB887","#5F9EA0","#7FFF00"))

col_fun<-colorRamp2(c(-2,0,2),c("#D2691E","#6495ED","#FFF8DC"))

col_fun<-colorRamp2(c(-2,0,2),c("#DC143C","#00FFFF","#00008B"))

col_fun<-colorRamp2(c(-2,0,2),c("#008B8B","#B8860B","#A9A9A9"))

col_fun<-colorRamp2(c(-2,0,2),c("#006400","#BDB76B","#8B008B"))

col_fun<-colorRamp2(c(-2,0,2),c("#556B2F","#FF8C00","#9932CC"))

col_fun<-colorRamp2(c(-2,0,2),c("#8B0000","#E9967A","#8FBC8F"))

col_fun<-colorRamp2(c(-2,0,2),c("#483D8B","#2F4F4F","#00CED1"))

col_fun<-colorRamp2(c(-2,0,2),c("#9400D3","#FF1493","#00BFFF"))