Fix #924

davidhodge931 · Jul 1, 2024 · 1d6d354 · 1d6d354
1 parent b20bcf6
commit 1d6d354
Show file tree

Hide file tree

Showing 4 changed files with 853 additions and 852 deletions.
diff --git a/R/flex_mode.R b/R/flex_mode.R
@@ -115,14 +115,14 @@ flex_mode_base <- function(
 
     legend.margin = ggplot2::margin(t = 0, r = base_size * -1, b = base_size * 0.75, l = base_size * 0.75),
     legend.spacing = grid::unit(base_size * 1, "pt"),
+    legend.spacing.y = grid::unit(base_size * 1.5, "pt"),
     legend.spacing.x = NULL,
-    legend.spacing.y = NULL,
     legend.key = ggplot2::element_rect(colour = legend_key_fill, fill = legend_key_fill),
     legend.key.size = grid::unit(base_size * 1.75, "pt"),
     legend.key.height = NULL,
     legend.key.width = NULL,
     legend.key.spacing = NULL,
-    legend.key.spacing.x = grid::unit(11, "pt"),
+    legend.key.spacing.x = grid::unit(base_size, "pt"),
     legend.key.spacing.y = grid::unit(base_size * 0.33, "pt"),
     legend.byrow = FALSE,
     legend.frame = NULL,
@@ -131,9 +131,10 @@ flex_mode_base <- function(
     legend.ticks = ggplot2::element_line(colour = legend_ticks_colour, linewidth = legend_ticks_linewidth),
     legend.ticks.length = legend_ticks_length,
     legend.title.position = "top",
-    legend.box = NULL,
+    legend.box = "vertical",
     legend.box.background = NULL,
     legend.box.spacing = NULL,
+    legend.box.just = "left",
     legend.background = ggplot2::element_rect(colour = legend_background_fill, fill = legend_background_fill),
     panel.background = ggplot2::element_rect(colour = panel_background_fill, fill = panel_background_fill),
     panel.border = ggplot2::element_blank(),