plotly
diff --git a/‎NEWS.md
Copy file name to clipboardExpand all lines: NEWS.md
+4Lines changed: 4 additions & 0 deletions b/‎NEWS.md
Copy file name to clipboardExpand all lines: NEWS.md
+4Lines changed: 4 additions & 0 deletions
diff --git a/‎R/layers2traces.R
Copy file name to clipboardExpand all lines: R/layers2traces.R
+1Lines changed: 1 addition & 0 deletions b/‎R/layers2traces.R
Copy file name to clipboardExpand all lines: R/layers2traces.R
+1Lines changed: 1 addition & 0 deletions
diff --git a/‎tests/testthat/test-ggplot-step.R
Copy file name to clipboardExpand all lines: tests/testthat/test-ggplot-step.R
+14Lines changed: 14 additions & 0 deletions b/‎tests/testthat/test-ggplot-step.R
Copy file name to clipboardExpand all lines: tests/testthat/test-ggplot-step.R
+14Lines changed: 14 additions & 0 deletions
@@ -5,6 +5,10 @@
 * `ggplotly()` now supports the `{ggalluvial}` package. (#2061, @moutikabdessabour)
 * `ggplotly()` does not issue warnings with `options(warnPartialMatchArgs = TRUE)` any longer. (#2046, @bersbersbers)
 
+## Bug fixes
+
+* `ggplotly()` now converts `stat_ecdf()` properly. (#2065)
+
 # 4.10.0
 
 ## Breaking changes in JavaScript API
 
@@ -252,6 +252,7 @@ to_basic.GeomLine <- function(data, prestats_data, layout, params, p, ...) {
 
 #' @export
 to_basic.GeomStep <- function(data, prestats_data, layout, params, p, ...) {
+  data <- data[order(data[["x"]]), ]
   prefix_class(data, "GeomPath")
 }
 
 
@@ -34,3 +34,17 @@ test_that("direction vhv is translated to shape=vhv", {
   expect_equivalent(length(L$data), 2)
   expect_identical(L$data[[1]]$line$shape, "vhv")
 })
+
+
+test_that("`stat_ecdf` renders correctly", {
+  df <- data.frame(
+    x = c(rnorm(100, 0, 3), rnorm(100, 0, 10)),
+    g = gl(2, 100)
+  )
+  
+  p <- ggplot(df, aes(x)) + stat_ecdf(geom = "step")
+  expect_doppelganger(ggplotly(p), "step-ecdf")
+  
+  p <- ggplot(df, aes(x, colour = g)) + stat_ecdf()
+  expect_doppelganger(ggplotly(p), "step-ecdf-multiple")
+})
Original file line number	Diff line number	Diff line change
`@@ -252,6 +252,7 @@ to_basic.GeomLine <- function(data, prestats_data, layout, params, p, ...) {`
`252`	`252`
`253`	`253`	`#' @export`
`254`	`254`	`to_basic.GeomStep <- function(data, prestats_data, layout, params, p, ...) {`
	`255`	`+ data <- data[order(data[["x"]]), ]`
`255`	`256`	`prefix_class(data, "GeomPath")`
`256`	`257`	`}`
`257`	`258`