如何在Complexheatmap包中实现分色

Question

我正在尝试创建一个使用复合热图包的热图。除了我在整个情节中只能看到黑色外，一切都很正常。我认为适当的分色应该能起作用，但我不知道如何解决这个问题。

#load required libraries
 library(extrafont)
 #font_import() # only one time required when first time use the      library       extrafont
 #y
 fonts() 
 loadfonts()
 library(ComplexHeatmap)
 library(circlize)

  #upload expression data
  #heatdata<- read.table("probe.expression",header=TRUE,row.names=1)
  dim(heatdata)
  head(heatdata)

#scale row
rm <- rowMeans(heatdata)
sx <- apply(heatdata, 1, sd)
zz <- sweep(heatdata,1,rm)
zz <- sweep(zz, 1, sx, "/")
zzz <- t(scale(t(heatdata)))


Heatmap(zzz, 
name = "Color key", # legend title
rect_gp = gpar(col = "black"), # cell border
column_title = "Tissue",
column_title_side = "top",
row_title = "Genes",
row_title_side = "left",
clustering_distance_rows = "pearson", #"euclidean", "maximum", "man-
                                  #hattan", "canberra", "binary", "minkowski", #"pearson",                             #"spearman", "kendall"                                 
row_dend_side = "left",  #should the row cluster be put on the left or right of the heatmap?
 #row_name_side = "right",  #should the row cluster be put on the left or right of the heatmap?
show_row_names = FALSE,
column_dend_height = unit(3,"cm"),
show_column_dend = FALSE,
show_column_names= FALSE,
#bottom_annotation = ha,
#bottom_annotation_height = unit(1, "cm"),
col = colorRamp2(c(-2, 0,10),c("green","black", "red"))

)

和

min(zzz)

给-1.96339

max(zzz)

给9.238137。我的最后一个情节如下

​

​

测试数据可以找到这里

Answer 1

我认为您应该删除"rect_gp =gpar( cell =“black”)，因为我猜在矩阵中有许多行，如果设置边框颜色，颜色将主要由单元格边框覆盖。