R ComplexHeatMap从grid.text重新定位和调整图例大小

R ComplexHeatMap从grid.text重新定位和调整图例大小,r,R,我有一个生成这个图像的代码,如何更改grid.text,使范围图例显示在底部,并且可以更改它们所在位置的大小和位置,例如一个在另一个下面 ht1code与绘图不太匹配,绘图是4个热图,但帖子不允许我发布这么多代码,所以提供了部分参考,希望我的尝试有意义?欢迎来到Stackoverflow。之所以如此阻止你发表你的问题,是因为你在这里解释得不多。请编辑您的问题以澄清您的问题描述。添加一些上下文。描述您的代码等。请查看页面和页面。问题询问一切-我有生成此图像的代码,如何更改grid.text以使范

我有一个生成这个图像的代码,如何更改grid.text,使范围图例显示在底部,并且可以更改它们所在位置的大小和位置,例如一个在另一个下面


ht1code与绘图不太匹配,绘图是4个热图,但帖子不允许我发布这么多代码,所以提供了部分参考,希望我的尝试有意义?欢迎来到Stackoverflow。之所以如此阻止你发表你的问题,是因为你在这里解释得不多。请编辑您的问题以澄清您的问题描述。添加一些上下文。描述您的代码等。请查看页面和页面。问题询问一切-我有生成此图像的代码,如何更改grid.text以使范围图例显示在底部,并且我可以更改其大小和位置,例如一个在另一个下面?我只是想就如何移动和调整热图右侧的图例的大小提供建议。这是4个热图连接在一起,这段代码创建了它们-name=“#Var2”,cell_-fun=function(j,i,x,y,width,height,fill){grid.text(sprintf(%.0f),mergedvc2[i,j]),x,y,gpar=gpar(fontsize=8))}请阅读我链接的资源并相应地编辑问题!否则可能没有答案,你的问题还不错。问题是没有人能够重现您的问题,因为您没有添加数据。这很好。如果数据太多,则不应添加数据。通常,您会生成数据并尝试复制您的问题。关于你如何改变你的帖子,这里很好地解释了这一点:
ht1<-Heatmap(merged2, 
        show_row_dend = FALSE,
        show_column_dend = FALSE,
        show_row_names = FALSE,
                 row_names_gp = gpar(fontsize = 8),
         column_names_gp = gpar(fontsize = 8),

            name = "# Var4 long name,# Var5 long name,# Var6 long name,# Var7 long name", cell_fun = function(j, i, x, y, width, height, fill) 
        {
          grid.text(sprintf("%.0f", merged2[i, j]), x, y, gp = gpar(fontsize = 8))
        }
        ,
        col = colorRamp2(c(-max_merged, 0, max_merged), c(rgb(200/255, 202/255, 201/255), rgb(240/255, 240/255, 240/255), rgb(116/255, 122/255, 119/255))))

ht2<-Heatmap(mergedvc2, 
        show_row_dend = FALSE,
        show_column_dend = FALSE,
        #show_row_names = FALSE,
         # list(axis.text.x = element_text(size = 10,face = "bold")),
        row_names_side = "left",
         row_names_gp = gpar(fontsize = 8),
         column_names_gp = gpar(fontsize = 8),


        #heatmap_legend_side = "bottom",

            name = "# Var2", cell_fun = function(j, i, x, y, width, height, fill) 
        {
          grid.text(sprintf("%.0f", mergedvc2[i, j]), x, y, gp = gpar(fontsize = 8))
        },
        col = colorRamp2(c(0, max_mergedvc), c(rgb(72/255, 130/255, 58/255),rgb(203/255, 229/255, 197/255)))
        )


ht_list<-ht2+ht4

draw(ht_list, gap = unit(0, "cm"))