tests/testthat/test-geom-polygon.R

In TomeTiger/ggplot2: Create Elegant Data Visualisations Using the Grammar of Graphics

context("geom-polygon")


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

test_that("geom_polygon draws correctly", {
  expect_doppelganger("stat_density2d with paths",
    ggplot(faithful, aes(x = eruptions, y = waiting)) +
      stat_density_2d(aes(colour = stat(level)), geom = "path") +
      xlim(0.5, 6) + ylim(40, 110)
  )
  expect_doppelganger("stat_density2d with filled polygons",
    ggplot(faithful, aes(x = eruptions, y = waiting)) +
      stat_density2d(aes(fill = stat(level)), geom = "polygon", colour = "white") +
      xlim(0.5, 6) + ylim(40, 110)
  )
})