plotly · moutikabdessabour · Oct 22, 2021 · Oct 22, 2021 · Oct 22, 2021 · Nov 2, 2021
diff --git a/NEWS.md b/NEWS.md
@@ -4,6 +4,11 @@
 
 * `ggplotly()` does not issue warnings with `options(warnPartialMatchArgs = TRUE)` any longer. (#2046, @bersbersbers)
 
+## BUG fixes
+
+* `stat_ecdf()` now gives the correct output. (#2052)
+
+
 # 4.10.0
 
 ## Breaking changes in JavaScript API

diff --git a/R/layers2traces.R b/R/layers2traces.R
@@ -252,7 +252,7 @@ to_basic.GeomLine <- function(data, prestats_data, layout, params, p, ...) {
 
 #' @export
 to_basic.GeomStep <- function(data, prestats_data, layout, params, p, ...) {
-  prefix_class(data, "GeomPath")
+  prefix_class(if((params$direction %||% "vh")  %in% c("vh", "hv", "mid")) ggfun("stairstep")(data, direction = params$direction) else data, c("GeomPath", "GeomStep"))
 }
 
 #' @export

diff --git a/tests/testthat/_snaps/ggplot-ecdf/step-ecdf.svg b/tests/testthat/_snaps/ggplot-ecdf/step-ecdf.svg