Avoid split data frame if there's only one panel

tidyverse · Nov 6, 2022 · 6e4077e · 6e4077e
1 parent 63125db
commit 6e4077e
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/geom-.r b/R/geom-.r
@@ -78,7 +78,12 @@ Geom <- ggproto("Geom",
     # Trim off extra parameters
     params <- params[intersect(names(params), self$parameters())]
 
-    lapply(split(data, data$PANEL), function(data) {
+    if (length(levels(data$PANEL)) > 1L) {
+      data_panels <- split(data, data$PANEL)
+    } else {
+      data_panels <- list(data)
+    }
+    lapply(data_panels, function(data) {
       if (empty(data)) return(zeroGrob())
 
       panel_params <- layout$panel_params[[data$PANEL[1]]]