Allow to add global aes when plotting visualisation_recipe() (#383)

* Allow to add global aes when plotting `visualosation_recipe()`

* version

Author: strengejacke

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: see
 Title: Model Visualisation Toolbox for 'easystats' and 'ggplot2'
-Version: 0.10.0
+Version: 0.10.0.2
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",

R/plot.visualisation_recipe.R

@@ -7,8 +7,16 @@ plot.see_visualisation_recipe <- function(x, ...) {
     }
     suppressWarnings(ggraph::ggraph(attributes(x)$data, layout = attributes(x)$layout) + geoms_from_list(x))
   } else {
-    suppressWarnings(ggplot2::ggplot(data = attributes(x)$data) +
-      geoms_from_list(x, ...))
+    global_aes <- attributes(x)$global_aes
+    if (!is.null(global_aes) && length(global_aes)) {
+      global_aes <- do.call(ggplot2::aes, args = lapply(global_aes, .str_to_sym))
+    }
+    suppressWarnings(
+      do.call(
+        ggplot2::ggplot,
+        insight::compact_list(list(data = attributes(x)$data, mapping = global_aes))
+      ) + geoms_from_list(x, ...)
+    )
   }
 }