account for flipped aesthetics

tidyverse · Feb 22, 2024 · b8a5249 · b8a5249
1 parent cb95499
commit b8a5249
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/R/geom-smooth.R b/R/geom-smooth.R
@@ -124,7 +124,12 @@ GeomSmooth <- ggproto("GeomSmooth", Geom,
  setup_params = function(data, params) {
  params$flipped_aes <- has_flipped_aes(data, params, range_is_orthogonal = TRUE, ambiguous = TRUE)
  params$se <- params$se %||%
- all(c("ymin", "ymax") %in% names(data))
+ if (params$flipped_aes) {
+ all(c("xmin", "xmax") %in% names(data))
+ } else {
+ all(c("ymin", "ymax") %in% names(data))
+ }
+
  params
  },