ComplexHeatmap，无法创建水平图例答案

【问题标题】：ComplexHeatmap, cannot create horizontal legendComplexHeatmap，无法创建水平图例
【发布时间】：2019-03-18 13:55:37
【问题描述】：

您好，我正在使用 ComplexHeatmap 包并遵循他们的小插图，但由于某种原因，我似乎无法强制图例变为水平。所以例如这里是一个例子，

set.seed(123)
library(ComplexHeatmap)
mat = matrix(rnorm(80, 2), 8, 10)
mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))
rownames(mat) = paste0("R", 1:12)
colnames(mat) = paste0("C", 1:10)

ha_column = HeatmapAnnotation(df = data.frame(type1 = c(rep("a", 5), rep("b", 5))),
                              col = list(type1 = c("a" =  "red", "b" = "blue")), 
                              annotation_legend_param = list(type1 = list( 
                                            title_gp = gpar(fontsize = 16), 
                                            legend_direction = "horizontal", labels_gp = gpar(fontsize = 8)))
                              )



ht1 = Heatmap(mat, name = "ht1", column_title = "Heatmap 1", top_annotation = ha_column)
draw(ht1, heatmap_legend_side = "right")

所以尽管添加了legend_direction = "horizontal"，我仍然在这里不断收到这个，

【问题讨论】：

标签： r complexheatmap

【解决方案1】：

如果您需要在热图底部水平绘制热图图例，您可以使用此解决方案：

ht1 = Heatmap(mat, name = "ht1", column_title = "Heatmap 1", top_annotation = ha_column, 
              heatmap_legend_param = list(
                                      legend_direction = "horizontal", 
                                      legend_width = unit(5, "cm")
                                     )
              )
draw(ht1, heatmap_legend_side = "bottom")

否则，如果您需要在热图顶部水平绘制（离散）注释图例，您可以在annotation_legend_param 中使用nrow=1：

ha_column = HeatmapAnnotation(df = data.frame(type1 = c(rep("a", 5), rep("b", 5))),
                              col = list(type1 = c("a" =  "red", "b" = "blue")), 
                              annotation_legend_param = list(
                                            type1 = list( 
                                              title_gp = gpar(fontsize = 16), 
                                              labels_gp = gpar(fontsize = 8), 
                                              nrow=1)))


ht1 = Heatmap(mat, name = "ht1", column_title = "Heatmap 1", top_annotation = ha_column)
draw(ht1, annotation_legend_side = "top")

【讨论】：