diff --git a/R/plot_euler.R b/R/plot_euler.R index 10156b7..fc84049 100644 --- a/R/plot_euler.R +++ b/R/plot_euler.R @@ -92,7 +92,7 @@ plot_euler <- function(data, pri, sec, ter = NULL, seed = 2103) { }) # names(out) - wrap_plot_list(out) + wrap_plot_list(out,title=glue::glue("Grouped by {get_label(data,ter)}")) # patchwork::wrap_plots(out, guides = "collect") } diff --git a/R/plot_violin.R b/R/plot_violin.R index e6c5434..02fbcf1 100644 --- a/R/plot_violin.R +++ b/R/plot_violin.R @@ -24,6 +24,6 @@ plot_violin <- function(data, pri, sec, ter = NULL) { ) }) - wrap_plot_list(out) + wrap_plot_list(out,title=glue::glue("Grouped by {get_label(data,ter)}")) # patchwork::wrap_plots(out,guides = "collect") }