# #——回声= FALSE,消息= FALSE ------------------------------------------- (markdown.HTML库(减价)选项。选择= c(选项(“markdown.HTML.options”)[[1]],“toc ")) ## ---- 消息= FALSE,回声= FALSE ------------------------------------------- 库(ComplexHeatmap ) ## ---- eval = FALSE ------------------------------------------------------------ # default_axis_param(“列”)# default_axis_param(“行 ") ## ---- eval = FALSE ------------------------------------------------------------ # = grid.layout pushViewport(视窗(布局 (...))) # pushViewport(视窗(layout.pos。Row =…， layout.pos.col =…))#绘制(ht, newpage = FALSE) #或绘制(ht_list, newpage = FALSE) # popViewport() #…# # - eval = FALSE ------------------------------------------------------------ # ht_grob =网格。grabExpr(draw(ht，…))# # pushViewport(viewport(layout = grid.layout(…)))# pushViewport(viewport(layout.pos.…)Row =…, layout.pos.col = ...)) # 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"cm")) draw(ht, padding = unit(c(15,2,2,2)， "mm")) 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)