一 载入R包 数据
1.1 载入ComplexHeatmap包,数据
为更贴近生信使用场景,直接使用内置的基因表达数据
library(ComplexHeatmap)
expr = readRDS(paste0...= gpar(
col = rainbow(3)[i]
),
just = "left")
})
}
需要注意的是 这里需要对应好,各位有更好的方法希望不吝告知...index <- which(rownames(mat) %in% genelist)
#得到对应的文本标签;
labs <- rownames(mat)[index]
3)使用labels_gp调整字体大小...heatmap4 <- Heatmap(
mat, name = "expression"
)
heatmap
4.2.1 在总图中提取出来目标基因的热图,颜色与大图一致
提取目的基因所在的位置进行绘制...heatmaph4[c(1,5,6,8,9,80,144,74),]
这种方式是在总的热图中直接提取目的基因的部分,热图的颜色与总的热图一致。