@@ -1,6 +1,8 @@

 CHANGES in VERSION 1.2.4

-*  legend for continuous values can be set as continuous legends

+* legend for continuous values can be set as continuous legends

+* row title and column title as well as legend title support expression

+* add `heatmap_legend_title` in `Heatmap` and `ColorMapping`

 ==========================================

@@ -29,7 +29,8 @@ ColorMapping = setClass("ColorMapping",

 		type    = "character",  # continuous or discrete

 		name    = "character",  # used to map to the dataset and taken as the title of the legend

 		na_col  = "character",

-		color_bar = "character"

+		color_bar = "character",

+		legend_title = "ANY"

 	)

 )

@@ -47,6 +48,7 @@ ColorMapping = setClass("ColorMapping",

 # -enforce_breaks If it is set to `TRUE`, values of ``breaks`` will be the final break value in the legend.

 #            If it is ``FALSE``, proper breaks values will be automatically generated.

 # -na_col colors for ``NA`` values.

+# -legend_title title of the legend, by default it is the name of the legend

 # -color_bar if the color mapping is continuous, whether draw the legend discrete or continuous.

 #

 # == detail

@@ -61,7 +63,7 @@ ColorMapping = setClass("ColorMapping",

 #

 ColorMapping = function(name, colors = NULL, levels = NULL, 

 	col_fun = NULL, breaks = NULL, enforce_breaks = FALSE, na_col = "#FFFFFF",

-	color_bar = c("discrete", "continuous")) {

+	legend_title = name, color_bar = c("discrete", "continuous")) {

 	.Object = new("ColorMapping")

@@ -116,6 +118,7 @@ ColorMapping = function(name, colors = NULL, levels = NULL,

 	.Object@name = name

 	.Object@na_col = na_col

+	.Object@legend_title = legend_title

 	color_bar = match.arg(color_bar)[1]

 	if(.Object@type == "discrete" && color_bar == "continuous") {

 		stop("Continuous color bar can only be applied to continuous color mapping.")

@@ -245,7 +248,7 @@ setMethod(f = "color_mapping_legend",

 	color_bar = object@color_bar

 	# add title

-	legend_title_grob = textGrob(object@name, just = c("left", "top"), gp = legend_title_gp)

+	legend_title_grob = textGrob(object@legend_title, just = c("left", "top"), gp = legend_title_gp)

 	legend_title_height = grobHeight(legend_title_grob)

 	legend_title_width = grobWidth(legend_title_grob)

@@ -261,7 +264,7 @@ setMethod(f = "color_mapping_legend",

 	gf = frameGrob(layout = grid.layout(nr = 2, nc = 2, width = unit.c(legend_grid_width, grid_padding + legend_label_max_width),

 		                                                height = unit.c(legend_title_height, legend_padding + nlevel*(legend_grid_height))))

 	# legend title

-	gf = packGrob(gf, row = 1, col = 1:2, grob = textGrob(object@name, x = 0, y = 1, default.units = "npc", just = c("left", "top"), gp = legend_title_gp))

+	gf = packGrob(gf, row = 1, col = 1:2, grob = textGrob(object@legend_title, x = 0, y = 1, default.units = "npc", just = c("left", "top"), gp = legend_title_gp))

 	# legend grid

 	x = unit(rep(0, nlevel), "npc")

@@ -68,11 +68,11 @@ Heatmap = setClass("Heatmap",

         matrix_param = "list",

         matrix_color_mapping = "ANY",

-        row_title = "character",

+        row_title = "ANY",

         row_title_rot = "numeric",

         row_title_just = "numeric",

         row_title_param = "list",

-        column_title = "character",

+        column_title = "ANY",

         column_title_param = "list",

         column_title_rot = "numeric",

         column_title_just = "numeric",

@@ -178,6 +178,7 @@ Heatmap = setClass("Heatmap",

 # -width the width of the single heatmap, should be a fixed `grid::unit` object. It is used for the layout when the heatmap

 #        is appended to a list of heatmaps.

 # -show_heatmap_legend whether show heatmap legend?

+# -heatmap_legend_title title for the heatmap legend. By default it is the name of the heatmap

 # -heatmap_legend_color_bar if the matrix is continuous, whether should the legend as continuous color bar as well?

 #

 # == details

@@ -225,6 +226,7 @@ Heatmap = function(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

     km = 1, split = NULL, gap = unit(1, "mm"), 

     combined_name_fun = function(x) paste(x, collapse = "/"),

     width = NULL, show_heatmap_legend = TRUE,

+    heatmap_legend_title = name,

     heatmap_legend_color_bar = c("discrete", "continuous")) {

     .Object = new("Heatmap")

@@ -301,31 +303,33 @@ Heatmap = function(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

             col = default_col(matrix, main_matrix = TRUE)

         }

         if(is.function(col)) {

-            .Object@matrix_color_mapping = ColorMapping(col_fun = col, name = name, na_col = na_col, color_bar = heatmap_legend_color_bar)

+            .Object@matrix_color_mapping = ColorMapping(col_fun = col, name = name, legend_title = heatmap_legend_title, na_col = na_col, color_bar = heatmap_legend_color_bar)

         } else {

             if(is.null(names(col))) {

                 if(length(col) == length(unique(matrix))) {

                     names(col) = unique(matrix)

-                    .Object@matrix_color_mapping = ColorMapping(colors = col, name = name, na_col = na_col, color_bar = heatmap_legend_color_bar)

+                    .Object@matrix_color_mapping = ColorMapping(colors = col, name = name, legend_title = heatmap_legend_title, na_col = na_col, color_bar = heatmap_legend_color_bar)

                 } else if(is.numeric(matrix)) {

                     col = colorRamp2(seq(min(matrix, na.rm = TRUE), max(matrix, na.rm = TRUE), length = length(col)),

                                      col)

-                    .Object@matrix_color_mapping = ColorMapping(col_fun = col, name = name, na_col = na_col, color_bar = heatmap_legend_color_bar)

+                    .Object@matrix_color_mapping = ColorMapping(col_fun = col, name = name, legend_title = heatmap_legend_title, na_col = na_col, color_bar = heatmap_legend_color_bar)

                 } else {

                     stop("`col` should have names to map to values in `mat`.")

                 }

             } else {

-                .Object@matrix_color_mapping = ColorMapping(colors = col, name = name, na_col = na_col, color_bar = heatmap_legend_color_bar)

+                .Object@matrix_color_mapping = ColorMapping(colors = col, name = name, legend_title = heatmap_legend_title, na_col = na_col, color_bar = heatmap_legend_color_bar)

             }

         }

     }

     if(length(row_title) == 0) {

         row_title = character(0)

-    } else if(is.na(row_title)) {

-        row_title = character(0)

-    } else if(row_title == "") {

-        row_title = character(0)

+    } else if(!inherits(row_title, "expression")) {

+            if(is.na(row_title)) {

+            row_title = character(0)

+        } else if(row_title == "") {

+            row_title = character(0)

+        }

     }

     .Object@row_title = row_title

     .Object@row_title_rot = row_title_rot %% 360

@@ -336,10 +340,12 @@ Heatmap = function(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

     if(length(column_title) == 0) {

         column_title = character(0)

-    } else if(is.na(column_title)) {

-        column_title = character(0)

-    } else if(column_title == "") {

-        column_title = character(0)

+    } else if(!inherits(column_title, "expression")) {

+            if(is.na(column_title)) {

+            column_title = character(0)

+        } else if(column_title == "") {

+            column_title = character(0)

+        }

     }

     .Object@column_title = column_title

     .Object@column_title_rot = column_title_rot %% 360

@@ -54,9 +54,9 @@ HeatmapList = setClass("HeatmapList",

         ht_list = "list",

         ht_list_param = "list",

-        row_title = "character",

+        row_title = "ANY",

         row_title_param = "list",

-        column_title = "character",

+        column_title = "ANY",

         column_title_param = "list",

         annotation_legend_param = "list",

@@ -368,10 +368,12 @@ setMethod(f = "make_layout",

     column_title_side = match.arg(column_title_side)[1]

     if(length(column_title) == 0) {

         column_title = character(0)

-    } else if(is.na(column_title)) {

-        column_title = character(0)

-    } else if(column_title == "") {

-        column_title = character(0)

+    } else if(!inherits(column_title, "expression")) {

+        if(is.na(column_title)) {

+            column_title = character(0)

+        } else if(column_title == "") {

+            column_title = character(0)

+        }

     }

     object@column_title = column_title

     object@column_title_param$gp = check_gp(column_title_gp)

@@ -392,10 +394,12 @@ setMethod(f = "make_layout",

     row_title_side = match.arg(row_title_side)[1]

     if(length(row_title) == 0) {

         row_title = character(0)

-    } else if(is.na(row_title)) {

-        row_title = character(0)

-    } else if(row_title == "") {

-        row_title = character(0)

+    } else if(!inherits(row_title, "expression")) { 

+        if(is.na(row_title)) {

+            row_title = character(0)

+        } else if(row_title == "") {

+            row_title = character(0)

+        }

     }

     object@row_title = row_title

     object@row_title_param$gp = check_gp(row_title_gp)

@@ -15,7 +15,5 @@ It is only designed for \code{+} generic method so that above three classes can

 }

 \examples{

-

-

 # no example

 NULL}

@@ -27,7 +27,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example

 NULL}

@@ -30,7 +30,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # for examples, please go to `ColorMapping` method page

 NULL}

@@ -11,7 +11,7 @@ Constructor methods for ColorMapping class

 \usage{

 ColorMapping(name, colors = NULL, levels = NULL,

     col_fun = NULL, breaks = NULL, enforce_breaks = FALSE, na_col = "#FFFFFF",

-    color_bar = c("discrete", "continuous"))}

+    legend_title = name, color_bar = c("discrete", "continuous"))}

 \arguments{

   \item{name}{name for this color mapping. It is used for drawing the title of the legend.}

@@ -21,6 +21,7 @@ ColorMapping(name, colors = NULL, levels = NULL,

   \item{breaks}{breaks for the continuous color mapping. If \code{col_fun} isgenerated by \code{\link[circlize]{colorRamp2}}, \code{breaks} can be ignored.}

   \item{enforce_breaks}{If it is set to \code{\link{TRUE}}, values of \code{breaks} will be the final break value in the legend.If it is \code{FALSE}, proper breaks values will be automatically generated.}

   \item{na_col}{colors for \code{NA} values.}

+  \item{legend_title}{title of the legend, by default it is the name of the legend}

   \item{color_bar}{if the color mapping is continuous, whether draw the legend discrete or continuous.}

 }

 \details{

@@ -37,8 +38,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # discrete color mapping for characters

 cm = ColorMapping(name = "test",

     colors = c("blue", "white", "red"),

@@ -72,7 +72,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # for examples, please go to `Heatmap` method page

 NULL}

@@ -35,6 +35,7 @@ Heatmap(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

     km = 1, split = NULL, gap = unit(1, "mm"),

     combined_name_fun = function(x) paste(x, collapse = "/"),

     width = NULL, show_heatmap_legend = TRUE,

+    heatmap_legend_title = name,

     heatmap_legend_color_bar = c("discrete", "continuous"))}

 \arguments{

@@ -86,6 +87,7 @@ Heatmap(matrix, col, name, na_col = "grey", rect_gp = gpar(col = NA),

   \item{combined_name_fun}{if the heatmap is split by rows, how to make a combined row title for each slice?The input parameter for this function is a vector which contains level names under each column in \code{split}.}

   \item{width}{the width of the single heatmap, should be a fixed \code{\link[grid]{unit}} object. It is used for the layout when the heatmapis appended to a list of heatmaps.}

   \item{show_heatmap_legend}{whether show heatmap legend?}

+  \item{heatmap_legend_title}{title for the heatmap legend. By default it is the name of the heatmap}

   \item{heatmap_legend_color_bar}{if the matrix is continuous, whether should the legend as continuous color bar as well?}

 }

 \details{

@@ -113,8 +115,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -29,7 +29,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # for examples, please go to `HeatmapAnnotation` method page

 NULL}

@@ -48,8 +48,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 df = data.frame(type = c("a", "a", "a", "b", "b", "b"))

 ha = HeatmapAnnotation(df = df)

@@ -68,8 +68,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -27,11 +27,7 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \section{Detailes}{

-

-

 There is no public constructor method for the \code{\link{HeatmapList-class}}.}

 \examples{

-

-

 # no example

 NULL}

@@ -39,7 +39,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # for examples, please go to `SingleAnnotation` method page

 NULL}

@@ -49,8 +49,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # discrete character

 SingleAnnotation(name = "test", value = c("a", "a", "a", "b", "b", "b"))

 SingleAnnotation(name = "test", value = c("a", "a", "a", "b", "b", "b"), 

@@ -31,8 +31,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -28,8 +28,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -28,8 +28,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -28,8 +28,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -31,8 +31,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 f = anno_barplot(rnorm(10))

 grid.newpage(); f(1:10)

@@ -32,8 +32,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(32), nrow = 4)

 f = anno_boxplot(mat)

 grid.newpage(); f(1:8)

@@ -28,8 +28,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(32), nrow = 4)

 f = anno_density(mat)

 grid.newpage(); f(1:8)

@@ -26,8 +26,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(32), nrow = 4)

 f = anno_histogram(mat)

 grid.newpage(); f(1:8)

@@ -33,7 +33,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 f = anno_points(rnorm(10))

 grid.newpage(); f(1:10)}

@@ -29,8 +29,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(100), 10)

 colnames(mat) = letters[1:10]

 rownames(mat) = LETTERS[1:10]

@@ -33,7 +33,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -38,8 +38,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # discrete color mapping for characters

 cm = ColorMapping(name = "test",

     colors = c("blue", "white", "red"),

@@ -31,7 +31,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 df = data.frame(type = c("a", "a", "a", "b", "b", "b"))

 ha = rowAnnotation(df = df)}

@@ -28,6 +28,4 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method}

@@ -24,6 +24,4 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method}

@@ -20,8 +20,6 @@ This function is only for internal use.

 }

 \section{Detials}{

-

-

 This function is only for internal use.}

 \value{

 A \code{\link[grid]{unit}} object.

@@ -32,6 +30,4 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method}

@@ -28,6 +28,4 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method}

@@ -30,8 +30,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(40), nr = 4, ncol = 10)

 rownames(mat) = letters[1:4]

 colnames(mat) = letters[1:10]

@@ -31,8 +31,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -30,8 +30,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 df = data.frame(type = c("a", "a", "a", "b", "b", "b"))

 ha = HeatmapAnnotation(df = df)

 grid.newpage(); draw(ha, 1:6)

@@ -33,8 +33,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -31,8 +31,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 anno = SingleAnnotation(name = "test", value = c("a", "a", "a", "b", "b", "b"))

 grid.newpage(); draw(anno, 1:5)

 grid.newpage(); draw(anno, c(1, 4, 3, 5, 2))

@@ -34,7 +34,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -32,7 +32,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -35,7 +35,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -42,7 +42,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -36,7 +36,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -32,7 +32,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -30,7 +30,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -33,7 +33,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -31,7 +31,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -30,7 +30,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -34,8 +34,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 hc = hclust(dist(USArrests[1:5, ]))

 dend = as.dendrogram(hc)

@@ -30,7 +30,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -30,7 +30,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -33,7 +33,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -59,7 +59,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -32,7 +32,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -29,8 +29,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # discrete color mapping for characters

 cm = ColorMapping(name = "test",

     colors = c("blue", "white", "red"),

@@ -25,7 +25,5 @@ This function returns no value.

 }

 \examples{

-

-

 # no example 

 NULL}

@@ -46,8 +46,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 df = data.frame(matrix(rnorm(40), nrow = 10, dimnames = list(letters[1:10], letters[1:4])),

                 large = runif(10)*100,

                 t1 = sample(letters[1:3], 10, replace = TRUE),

@@ -37,7 +37,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -25,7 +25,5 @@ This function returns no value.

 }

 \examples{

-

-

 # no example 

 NULL}

@@ -31,7 +31,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 df = data.frame(type = c("a", "a", "a", "b", "b", "b"))

 ha = columnAnnotation(df = df)}

@@ -30,7 +30,5 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 # no example for this internal method

 NULL}

@@ -28,8 +28,6 @@ Zuguang Gu <z.gu@dkfz.de>

 }

 \examples{

-

-

 mat = matrix(rnorm(80, 2), 8, 10)

 mat = rbind(mat, matrix(rnorm(40, -2), 4, 10))

 rownames(mat) = letters[1:12]

@@ -24,6 +24,4 @@ This function returns no value.

 }

 \author{

-

-

 Zuguang Gu <z.gu@dkfz.de>}

@@ -690,7 +690,7 @@ draw(ht1 + ht2)

 ```

 **ComplexHeatmap** only generates legends for heatmaps and simple annotations. Self-defined legends

-can be passed by 1heatmap_legend_list` and `annotation_legend_list` as a list of `grob` objects.

+can be passed by `heatmap_legend_list` and `annotation_legend_list` as a list of `grob` objects.

 ```{r self_defined_annotation_legend, fig.width = 10}

 ha = HeatmapAnnotation(points = anno_points(rnorm(10)))

@@ -699,6 +699,13 @@ lgd = legendGrob(c("dots"), pch = 16)

 draw(ht1 + ht2, annotation_legend_list = list(lgd))

 ```

+Finally, you can change legend title for heatmap legend by specifying `heatmap_legend_title` in `Heatmap()`:

+

+```{r}

+ht1 = Heatmap(mat, name = "ht1", column_title = "Heatmap 1", heatmap_legend_title = expression(alpha))

+ht2 = Heatmap(mat, name = "ht2", column_title = "Heatmap 2", heatmap_legend_title = "HHHHH")

+draw(ht1 + ht2)

+```

 ### Gaps between heatmaps