fix: fix order and layout of strips when grouping (#108, by @altairwei)

jolars · Mar 27, 2024 · 9b94486 · 9b94486
1 parent ca80e11
commit 9b94486
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/plot.euler.R b/R/plot.euler.R
@@ -546,7 +546,7 @@ plot.euler <- function(x,
                      name = "strip.top.vp",
                      layout = grid::grid.layout(nrow = 1, ncol = layout[2]))
 
-    lvls <- levels(strips$groups[[1]])
+    lvls <- levels(strips$groups[[ names(layout)[[2]] ]])
     n_lvls <- length(lvls)
     step <- 1/n_lvls
 
@@ -567,7 +567,7 @@ plot.euler <- function(x,
                      name = "strip.left.vp",
                      layout = grid::grid.layout(nrow = layout[1], ncol = 1))
 
-    lvls <- levels(strips$groups[[2]])
+    lvls <- rev(levels(strips$groups[[ names(layout)[[1]] ]]))
     n_lvls <- length(lvls)
     step <- 1/n_lvls