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