From ef507051aa53779c8752484c30575af2b5bc6903 Mon Sep 17 00:00:00 2001
From: Teun van den Brand <tahvdbrand@gmail.com>
Date: Fri, 5 Jan 2024 23:36:35 +0100
Subject: [PATCH] drop empty panels from bar width calculation

---
 R/geom-bar.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/geom-bar.R b/R/geom-bar.R
index a1007a3678..7a3618d50b 100644
--- a/R/geom-bar.R
+++ b/R/geom-bar.R
@@ -145,7 +145,7 @@ GeomBar <- ggproto("GeomBar", GeomRect,
     data <- flip_data(data, params$flipped_aes)
     data$width <- data$width %||%
       params$width %||% (min(vapply(
-        split(data$x, data$PANEL),
+        split(data$x, data$PANEL, drop = TRUE),
         resolution, numeric(1), zero = FALSE
       )) * 0.9)
     data$just <- params$just %||% 0.5