From c6f42a56405abf1c3b393b2868a4f9fb2904fd22 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Fri, 27 Jun 2025 11:10:37 +0200
Subject: [PATCH] added title when grouping on tertiary variable

---
 R/plot_euler.R  | 2 +-
 R/plot_violin.R | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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")
 }