added more horizontal spacing between legend items

openjusticeok · Dec 4, 2024 · 7f3431f · 7f3431f
1 parent 1cc3b13
commit 7f3431f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/R/theme_ojo.R b/R/theme_ojo.R
@@ -107,6 +107,7 @@ theme_ojo_base <- function(base_size = 16,
     legend.key.size = ggplot2::unit(10L, "pt"),
     legend.key.height = NULL,
     legend.key.width = NULL,
+    legend.key.spacing.x = ggplot2::unit(12L, "pt"),
 
     legend.text = ggplot2::element_text(size = base_size * 9.5 / 8.5,
                                         vjust = 0.5),

diff --git a/R/theme_okpi.R b/R/theme_okpi.R
@@ -35,6 +35,7 @@ theme_okpi_base <- function(base_size = 16,
     plot.background = ggplot2::element_blank(),
     legend.background = ggplot2::element_rect(fill = "transparent", colour = NA),
     legend.key = ggplot2::element_rect(fill = "transparent", colour = NA),
+    legend.key.spacing.x = ggplot2::unit(12L, "pt"),
     legend.position = "top",
     panel.border = ggplot2::element_blank(),
     panel.grid.major.x = ggplot2::element_blank(),