diff --git a/R/anno-.R b/R/anno-.R index 88999194..406ae83a 100644 --- a/R/anno-.R +++ b/R/anno-.R @@ -137,3 +137,7 @@ methods::setValidity("anno", function(object) { } TRUE }) + +anno_default_theme <- function() { + ggplot2::theme(strip.text = ggplot2::element_blank()) +} diff --git a/R/gganno-.R b/R/gganno-.R index 0d7834d1..40618348 100644 --- a/R/gganno-.R +++ b/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 diff --git a/R/htanno-dendrogram.R b/R/htanno-dendrogram.R index 87c0c4f8..7dbe8c94 100644 --- a/R/htanno-dendrogram.R +++ b/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