remove annotation strip text by default

R/anno-.R

@@ -137,3 +137,7 @@ methods::setValidity("anno", function(object) {
     }
     TRUE
 })
+
+anno_default_theme <- function() {
+    ggplot2::theme(strip.text = ggplot2::element_blank())
+}

R/gganno-.R

@@ -18,7 +18,8 @@ gganno <- function(mapping = aes(), data = NULL,
         data = data,
         order = order,
         size = size,
-        plot = ggplot2::ggplot(mapping = mapping),
+        plot = ggplot2::ggplot(mapping = mapping) +
+            anno_default_theme(),
         name = name, position = position, set_context = set_context,
         labels = labels, labels_nudge = labels_nudge,
         call = call

R/htanno-dendrogram.R

@@ -22,7 +22,8 @@ htanno_dendro <- function(mapping = aes(), ...,
         params = list(
             distance = distance, method = method, use_missing = use_missing,
             k = k, h = h, plot_cut_height = plot_cut_height,
-            plot = ggplot2::ggplot(mapping = mapping),
+            plot = ggplot2::ggplot(mapping = mapping) +
+                anno_default_theme(),
             segment_params = rlang::list2(...),
             center = center, type = type, root = root,
             # initialize height value