Shared titles and axes in wrap_plots()

Author: svraka

R/wrap_plots.R

@@ -46,7 +46,8 @@
 #'
 wrap_plots <- function(..., ncol = NULL, nrow = NULL, byrow = NULL,
                        widths = NULL, heights = NULL, guides = NULL,
-                       tag_level = NULL, design = NULL) {
+                       tag_level = NULL, design = NULL, axes = NULL,
+                       axis_titles = axes) {
   if (is_valid_plot(..1)) {
     plots <- list(...)
   } else if (is.list(..1)) {
@@ -68,7 +69,8 @@ wrap_plots <- function(..., ncol = NULL, nrow = NULL, byrow = NULL,
   }
   Reduce(`+`, plots, init = plot_filler()) + plot_layout(
     ncol = ncol, nrow = nrow, byrow = byrow, widths = widths, heights = heights,
-    guides = guides, tag_level = tag_level, design = design
+    guides = guides, tag_level = tag_level, design = design, axes = axes,
+    axis_titles = axis_titles
   )
 }