tests/testthat/test_geom_density_ridges.R

In wilkelab/ggridges: Ridgeline Plots in 'ggplot2'

context("geom_density_ridges")



# Visual tests ------------------------------------------------------------

test_that("geom_density_ridges draws correctly", {
  p <- ggplot(iris, aes(x = Sepal.Length, y = Species)) + geom_density_ridges()
  expect_doppelganger("geom_density_ridges basic", p)

  p <- ggplot(iris, aes(x = Sepal.Length, y = Species)) + geom_density_ridges(rel_min_height = 0.005)
  expect_doppelganger("geom_density_ridges no trailing lines", p)

  p <- ggplot(iris, aes(x = Sepal.Length, y = Species)) + geom_density_ridges(scale = 3)
  expect_doppelganger("geom_density_ridges scale=3", p)

  p <- ggplot(iris, aes(x = Sepal.Length, y = Species)) + geom_density_ridges2()
  expect_doppelganger("geom_density_ridges2 solid polygons", p)
})