Merge pull request #4991 from zeehio/perf-draw-panel

Performance: Avoid split.data.frame if there's only one panel
tidyverse · Jan 5, 2023 · 853266c · 853266c
2 parents d85eb62 + 7c6d056
commit 853266c
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 (nlevels(as.factor(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]]]