如何在软件包ComplexHeatmap中为anno_text（）添加注释标题/标签？

Question

我想对使用ComplexHeatmap R软件包生成的热图上的行注释使用清晰的标题。

如果在生成行批注时使用anno_simple（）函数，则会显示标签，但是当我使用anno_text（）生成时，则不会。另外，对于长度超过1个字符的文本，我无法使用anno_simple（）。

以下代码演示了我的问题：

library(ComplexHeatmap)

set.seed(1)

mat <- rbind(
             matrix(rnorm(18, mean = 30,   sd = 10), nr = 3),
             matrix(rnorm(18, mean = 0,   sd = 10), nr = 3)
             )

row_ha <- rowAnnotation(
                        simple_annotation = anno_simple(rep(NA, 6), pch =  c(rep(19, 3), rep(1, 3))),
                        text_annotation = anno_text(c(rep("   high", 3), rep("   low", 3)))
                        )

Heatmap(mat, right_annotation = row_ha, show_heatmap_legend = F)

它产生以下热图：

相反，我想得到这个：

以便标签“ text_annotation”在注释的列下方显示，就像对“ simple_annotation”一样。

感谢您的任何帮助！