From 88af2c15bb5ebbcab6349de9bdb371c9936a94e1 Mon Sep 17 00:00:00 2001
From: Mikko Marttila <13412395+mikmart@users.noreply.github.com>
Date: Fri, 4 Oct 2024 14:59:25 +0100
Subject: [PATCH] Restore rather than recalculate scales

---
 R/facet-wrap.R | 12 ++----------
 1 file changed, 2 insertions(+), 10 deletions(-)

diff --git a/R/facet-wrap.R b/R/facet-wrap.R
index 4650d12dd8..114b3332d9 100644
--- a/R/facet-wrap.R
+++ b/R/facet-wrap.R
@@ -447,16 +447,8 @@ FacetWrap <- ggproto("FacetWrap", Facet,
 
   draw_panels = function(self, panels, layout, x_scales, y_scales, ranges, coord, data, theme, params) {
     if (inherits(coord, "CoordFlip")) {
-      if (params$free$x) {
-        layout$SCALE_X <- seq_len(nrow(layout))
-      } else {
-        layout$SCALE_X <- 1L
-      }
-      if (params$free$y) {
-        layout$SCALE_Y <- seq_len(nrow(layout))
-      } else {
-        layout$SCALE_Y <- 1L
-      }
+      # Switch the scales back
+      layout[c("SCALE_X", "SCALE_Y")] <- layout[c("SCALE_Y", "SCALE_X")]
     }
 
     panel_order <- order(layout$ROW, layout$COL)