Apr 22, 2024 · Apr 22, 2024 · Apr 22, 2024 · Apr 22, 2024 · Apr 22, 2024
diff --git a/tests/testthat/_snaps/geom-violin/basic.svg b/tests/testthat/_snaps/geom-violin/basic.svg
diff --git a/...at/_snaps/geom-violin/continuous-x-axis-many-groups-center-should-be-at-2-0.svg b/...at/_snaps/geom-violin/continuous-x-axis-many-groups-center-should-be-at-2-0.svg
diff --git a/...t/_snaps/geom-violin/continuous-x-axis-single-group-center-should-be-at-1-0.svg b/...t/_snaps/geom-violin/continuous-x-axis-single-group-center-should-be-at-1-0.svg
diff --git a/tests/testthat/_snaps/geom-violin/coord-flip.svg b/tests/testthat/_snaps/geom-violin/coord-flip.svg
diff --git a/tests/testthat/_snaps/geom-violin/coord-polar.svg b/tests/testthat/_snaps/geom-violin/coord-polar.svg
diff --git a/tests/testthat/_snaps/geom-violin/dodging-and-coord-flip.svg b/tests/testthat/_snaps/geom-violin/dodging-and-coord-flip.svg
diff --git a/tests/testthat/_snaps/geom-violin/dodging.svg b/tests/testthat/_snaps/geom-violin/dodging.svg
diff --git a/tests/testthat/_snaps/geom-violin/grouping-on-x-and-fill-dodge-width-0-5.svg b/tests/testthat/_snaps/geom-violin/grouping-on-x-and-fill-dodge-width-0-5.svg
diff --git a/tests/testthat/_snaps/geom-violin/grouping-on-x-and-fill.svg b/tests/testthat/_snaps/geom-violin/grouping-on-x-and-fill.svg
diff --git a/tests/testthat/_snaps/geom-violin/narrower-width-5.svg b/tests/testthat/_snaps/geom-violin/narrower-width-5.svg
diff --git a/tests/testthat/_snaps/geom-violin/quantiles.svg b/tests/testthat/_snaps/geom-violin/quantiles.svg
diff --git a/tests/testthat/_snaps/geom-violin/scale-area-to-sample-size-c-is-smaller.svg b/tests/testthat/_snaps/geom-violin/scale-area-to-sample-size-c-is-smaller.svg
diff --git a/tests/testthat/_snaps/geom-violin/with-smaller-bandwidth-and-points.svg b/tests/testthat/_snaps/geom-violin/with-smaller-bandwidth-and-points.svg
diff --git a/tests/testthat/_snaps/geom-violin/with-tails-and-points.svg b/tests/testthat/_snaps/geom-violin/with-tails-and-points.svg
diff --git a/tests/testthat/_snaps/stat-ydensity.md b/tests/testthat/_snaps/stat-ydensity.md

 ---

    `test` is not a valid bandwidth rule.
    `bw` must be one of "nrd0", "nrd", "ucv", "bcv", "sj", "sj-ste", or "sj-dpi", not "test".

diff --git a/tests/testthat/test-geom-violin.R b/tests/testthat/test-geom-violin.R
    geom_violin(trim = FALSE) +
    facet_grid(x ~ ., scales = "free") +
    coord_cartesian(expand = FALSE)
  expand_a <- stats::bw.nrd0(df$y[df$x == "a"]) * 3
  expand_b <- stats::bw.nrd0(df$y[df$x == "b"]) * 3
  expand_a <- stats::bw.SJ(df$y[df$x == "a"]) * 3
  expand_b <- stats::bw.SJ(df$y[df$x == "b"]) * 3
  expect_equal(layer_scales(p, 1)$y$dimension(), c(0 - expand_a, 1 + expand_a))
  expect_equal(layer_scales(p, 2)$y$dimension(), c(0 - expand_b, 2 + expand_b))
 })
diff --git a/tests/testthat/test-stat-density.R b/tests/testthat/test-stat-density.R
 test_that("stat_density actually computes density", {
  # Compare functon approximations because outputs from `ggplot()` and
  # `density()` give grids spanning different ranges
  dens <- stats::density(mtcars$mpg)
  dens <- stats::density(mtcars$mpg, bw = "sj")
  expected_density_fun <- stats::approxfun(data.frame(x = dens$x, y = dens$y))

  plot <- ggplot(mtcars, aes(mpg)) + stat_density()
  df <- mtcars
  df$weight <- mtcars$cyl / sum(mtcars$cyl)

  dens <- stats::density(df$mpg, weights = df$weight, bw = bw.nrd0(df$mpg))
  dens <- stats::density(df$mpg, weights = df$weight, bw = bw.SJ(df$mpg))
  expected_density_fun <- stats::approxfun(data.frame(x = dens$x, y = dens$y))

  plot <- ggplot(df, aes(mpg, weight = weight)) + stat_density()
  mpg_max <- max(mtcars$mpg)

  expect_bounds <- function(bounds) {
    dens <- stats::density(mtcars$mpg)
    dens <- stats::density(mtcars$mpg, bw = "sj")
    orig_density <- stats::approxfun(
      data.frame(x = dens$x, y = dens$y),
      yleft = 0,
Original file line number	Diff line number	Diff line change
Expand Up		@@ -4,5 +4,5 @@

		---

		`test` is not a valid bandwidth rule.
		`bw` must be one of "nrd0", "nrd", "ucv", "bcv", "sj", "sj-ste", or "sj-dpi", not "test".
Original file line number	Diff line number	Diff line change
Expand Up		@@ -8,8 +8,8 @@ test_that("range is expanded", {
		geom_violin(trim = FALSE) +
		facet_grid(x ~ ., scales = "free") +
		coord_cartesian(expand = FALSE)
		expand_a <- stats::bw.nrd0(df$y[df$x == "a"]) * 3
		expand_b <- stats::bw.nrd0(df$y[df$x == "b"]) * 3
		expand_a <- stats::bw.SJ(df$y[df$x == "a"]) * 3
		expand_b <- stats::bw.SJ(df$y[df$x == "b"]) * 3
		expect_equal(layer_scales(p, 1)$y$dimension(), c(0 - expand_a, 1 + expand_a))
		expect_equal(layer_scales(p, 2)$y$dimension(), c(0 - expand_b, 2 + expand_b))
		})
Expand Down
Original file line number	Diff line number	Diff line change
		@@ -1,7 +1,7 @@
		test_that("stat_density actually computes density", {
		# Compare functon approximations because outputs from `ggplot()` and
		# `density()` give grids spanning different ranges
		dens <- stats::density(mtcars$mpg)
		dens <- stats::density(mtcars$mpg, bw = "sj")
		expected_density_fun <- stats::approxfun(data.frame(x = dens$x, y = dens$y))

		plot <- ggplot(mtcars, aes(mpg)) + stat_density()
Expand All		@@ -19,7 +19,7 @@ test_that("stat_density can make weighted density estimation", {
		df <- mtcars
		df$weight <- mtcars$cyl / sum(mtcars$cyl)

		dens <- stats::density(df$mpg, weights = df$weight, bw = bw.nrd0(df$mpg))
		dens <- stats::density(df$mpg, weights = df$weight, bw = bw.SJ(df$mpg))
		expected_density_fun <- stats::approxfun(data.frame(x = dens$x, y = dens$y))

		plot <- ggplot(df, aes(mpg, weight = weight)) + stat_density()
Expand All		@@ -38,7 +38,7 @@ test_that("stat_density uses `bounds`", {
		mpg_max <- max(mtcars$mpg)

		expect_bounds <- function(bounds) {
		dens <- stats::density(mtcars$mpg)
		dens <- stats::density(mtcars$mpg, bw = "sj")
		orig_density <- stats::approxfun(
		data.frame(x = dens$x, y = dens$y),
		yleft = 0,
Expand Down