Fixing misnamed panels for facet_wrap (#6082)

See #6082 PR suggested by @teunbrand
tidyverse · Oct 14, 2024 · 020432a · 020432a
1 parent ddd207e
commit 020432a
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/facet-.R b/R/facet-.R
@@ -237,10 +237,10 @@ Facet <- ggproto("Facet", NULL,
     # Set panel names
     table$layout$name <- paste(
       "panel",
-      rep(seq_len(dim[2]), dim[1]),
-      rep(seq_len(dim[1]), each = dim[2]),
+      rep(seq_len(dim[2]), each = dim[1]),
+      rep(seq_len(dim[1]), dim[2]),
       sep = "-"
-    )
+    )                        
 
     # Add spacing between panels
     spacing <- lapply(