examples facet_wrap

examples/facet_wrap.R

@@ -0,0 +1,55 @@
+library(apexcharter)
+
+# Scatter ----
+
+data("mpg", package = "ggplot2")
+
+# Create facets
+apex(mpg, aes(displ, cty), type = "scatter") %>% 
+  ax_facet_wrap(vars(drv))
+
+# Change number of columns
+apex(mpg, aes(displ, cty), type = "scatter") %>% 
+  ax_facet_wrap(vars(drv), ncol = 1)
+
+# labels
+apex(mpg, aes(displ, cty), type = "scatter") %>% 
+  ax_facet_wrap(
+    vars(drv), ncol = 2,
+    labeller = function(x) {
+      switch(
+        x,
+        "f" = "front-wheel drive", 
+        "r" = "rear wheel drive",
+        "4" = "4wd"
+      )
+    }
+  )
+
+
+# Multiple variables
+
+apex(mpg, aes(displ, cty), type = "scatter") %>% 
+  ax_facet_wrap(vars(year, drv))
+
+apex(mpg, aes(displ, cty), type = "scatter") %>% 
+  ax_facet_wrap(
+    vars(year, drv),
+    labeller = function(x) {
+      paste(x, collapse = " / ")
+    }
+  )
+
+
+
+# Lines ----
+
+data("unhcr_ts")
+
+unhcr_ts %>% 
+  subset(population_type == "Refugees (incl. refugee-like situations)") %>% 
+  apex(aes(as.Date(paste0(year, "-01-01")), n), type = "line") %>% 
+  ax_facet_wrap(vars(continent_origin))
+
+
+