added title when grouping on tertiary variable

This commit is contained in:
Andreas Gammelgaard Damsbo 2025-06-27 11:10:37 +02:00
parent 3fff0cc4f6
commit c6f42a5640
No known key found for this signature in database
2 changed files with 2 additions and 2 deletions

View file

@ -92,7 +92,7 @@ plot_euler <- function(data, pri, sec, ter = NULL, seed = 2103) {
}) })
# names(out) # 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") # patchwork::wrap_plots(out, guides = "collect")
} }

View file

@ -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") # patchwork::wrap_plots(out,guides = "collect")
} }