Add test

Author: teunbrand

tests/testthat/test-stat-ecdf.R

@@ -15,3 +15,15 @@ test_that("stat_ecdf works in both directions", {
   expect_snapshot_error(ggplot_build(p))
 })
 
+# See #5113 and #5112
+test_that("stat_ecdf responds to axis transformations", {
+  n <- 4
+  answer <- c(seq(0, 1, length.out = n + 1), 1)
+  p <- ggplot(data_frame0(x = seq_len(n)), aes(x)) + stat_ecdf()
+
+  ld <- layer_data(p)
+  expect_equal(ld$y, answer)
+
+  ld <- layer_data(p + scale_y_sqrt())
+  expect_equal(ld$y, sqrt(answer))
+})