From 020432a565f0236152cef2007ef6b27de6d0b13e Mon Sep 17 00:00:00 2001 From: nicholasdavies Date: Tue, 15 Oct 2024 00:39:11 +0100 Subject: [PATCH 1/2] Fixing misnamed panels for facet_wrap (#6082) See https://github.com/tidyverse/ggplot2/issues/6082 PR suggested by @teunbrand --- R/facet-.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/facet-.R b/R/facet-.R index 8faafc1428..dde17fb340 100644 --- 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( From f2d825ebf8efd329340dd30cb57ae99de1279b53 Mon Sep 17 00:00:00 2001 From: nicholasdavies Date: Tue, 15 Oct 2024 00:42:14 +0100 Subject: [PATCH 2/2] Extra spaces crept in, removed --- R/facet-.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/facet-.R b/R/facet-.R index dde17fb340..def19f221a 100644 --- a/R/facet-.R +++ b/R/facet-.R @@ -240,7 +240,7 @@ Facet <- ggproto("Facet", NULL, rep(seq_len(dim[2]), each = dim[1]), rep(seq_len(dim[1]), dim[2]), sep = "-" - ) + ) # Add spacing between panels spacing <- lapply(