@@ -142,6 +142,7 @@ subset_vector = function(x, i) x[i]

 anno_simple = function(x, col, na_col = "grey", 

 	which = c("column", "row"), border = FALSE, gp = gpar(col = NA),

 	pch = NULL, pt_size = unit(1, "snpc")*0.8, pt_gp = gpar(), 

+	anno_simple_size = ht_opt$anno_simple_size,

 	width = NULL, height = NULL) {

 	if(is.null(.ENV$current_annotation_which)) {

@@ -159,7 +160,7 @@ anno_simple = function(x, col, na_col = "grey",

 	input_is_matrix = is.matrix(x)

 	anno_size = anno_width_and_height(which, width, height, 

-		ht_opt$anno_simple_size*ifelse(input_is_matrix, ncol(x), 1))

+		anno_simple_size*ifelse(input_is_matrix, ncol(x), 1))

 	if(missing(col)) {

 		col = default_col(x)

@@ -297,6 +297,7 @@ HeatmapAnnotation = function(...,

 			arg_list$legend_param = annotation_legend_param[[i_simple + 1]]

 			arg_list$value = anno_value_list[[ag]]

 			arg_list$na_col = na_col

+			arg_list$anno_simple_size = anno_simple_size

 			if(missing(col)) {

 				anno_list[[ag]] = do.call(SingleAnnotation, arg_list)

 		    } else {

@@ -1108,7 +1109,6 @@ setMethod(f = "resize",

 	}

 	# from here `annotation_size_adjusted` contains absolute units if it is called.

-

 	gap = convertUnitFun(gap, "mm", valueOnly = TRUE)

 	if(is_size_set) {

@@ -1144,7 +1144,6 @@ setMethod(f = "resize",

 			} else {

 				anno_simple_size = convertUnitFun(anno_simple_size, "mm", valueOnly = TRUE)

 			}

-

 			if(size_adjusted <= sum(gap)) {

 				stop(paste0(size_name, " you set is smaller than sum of gaps."))

 			}

@@ -151,6 +151,7 @@ SingleAnnotation = function(name, value, col, fun,

 	name_offset = unit(1, "mm"),

 	name_side = ifelse(which == "column", "right", "bottom"),

     name_rot = ifelse(which == "column", 0, 90),

+    anno_simple_size = ht_opt$anno_simple_size,

     width = NULL, height = NULL) {

     .ENV$current_annotation_which = NULL

@@ -457,7 +458,7 @@ SingleAnnotation = function(name, value, col, fun,

         value = value

         if(verbose) qqcat("@{name}: generate AnnotationFunction for simple annotation values by anno_simple()\n")

-        .Object@fun = anno_simple(value, col = color_mapping, which = which, na_col = na_col, gp = gp, border = border)

+        .Object@fun = anno_simple(value, col = color_mapping, which = which, na_col = na_col, gp = gp, border = border, anno_simple_size = anno_simple_size)

         if(missing(width)) {

             .Object@width = .Object@fun@width

         } else {