account for flipped aesthetics

Author: teunbrand

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
   },