# #——回声= FALSE,消息= FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - (markdown.HTML图书馆(减价)选项。选择= c(选项(“markdown.HTML.options”) [[1]], toc) = FALSE) # #——消息,回声= FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -库(ComplexHeatmap) # # - - - - - eval = FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # default_axis_param(“列”)# default_axis_param(“行”)# # - - - - - eval = FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # pushViewport(视窗(布局= grid.layout (…))) # pushViewport(视窗(layout.pos。行=…,layout.pos。坳=…))#画(ht newpage = FALSE) #或绘制(ht_list newpage = FALSE) # popViewport () #……# # - - - - - eval = FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # ht_grob =网格。grabExpr(画(ht…)) # # pushViewport(视窗(布局= grid.layout (…))) # pushViewport(视窗(layout.pos。行=…,layout.pos。坳=…))# grid.draw (ht_grob) # popViewport () #……# # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - m =矩阵(rnorm (1000 * 10), nr = 1000) hc = hclust (dist (m))组= cutree (hc, k = 6)的热图(m, cluster_rows = cluster_within_group (t (m)、组),row_split = 6,边境= TRUE) #它还会更好如果设定row_split # # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - m =矩阵(rnorm (100), 10) ht =热图(m, name = " foo ", row_dend_width =单元(4厘米),column_dend_height =单元(4厘米))画(ht、填充=单位(c(15、2、2、2),“毫米”))decorate_column_dend (" foo ", {grid.yaxis ()}) decorate_row_dend (" foo ", {vp = current.viewport()美元xscale = vp xscale网格。xaxis (= xscale[2]——0:5,标签= 0:5)})# # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - hc = hclust (dist(矩阵(rnorm(100), 10)))的热图(矩阵(数控= 0,nr = 10), cluster_rows = hc, right_annotation = rowAnnotation (foo = anno_points(1:10),某事= 1:10,酒吧= anno_barplot (1:10)), row_split = 2)