Nothing
library(vdiffr)
i2 <- within(iris, {Species2 <- rep(c("A","B"), 75)})
p <- ggplot(i2, aes(Sepal.Width, Sepal.Length, fill = Species)) +
geom_point(aes(color = Species))
test_that("sidedensities plot correctly", {
p1 <- p +
geom_xsidedensity(aes(y = after_stat(density)), alpha = .3) +
geom_ysidedensity(aes(x = after_stat(density)), alpha = .3)
expect_doppelganger("Basic Side Density", p1)
p2 <- p +
geom_xsidedensity(aes(y = after_stat(density)), position = "stack") +
geom_ysidedensity(aes(x = after_stat(density), yfill = Species2), position = "stack")
expect_doppelganger("Stacked Side Density", p2)
p3 <- p2 +
facet_grid(cols = vars(Species), rows = vars(Species2)) +
scale_yfill_manual(values = c("darkred","darkblue"))
expect_doppelganger("FacetGrid Side Density", p3)
p4 <- p3 + ggside(collapse = "all")
expect_doppelganger("FacetGrid Collapsed Density", p4)
})
test_that("sidehistograms plot correctly", {
p1 <- p +
geom_xsidehistogram(aes(y = after_stat(count)), bins = 30) +
geom_ysidehistogram(aes(x = after_stat(count)), bins = 30)
expect_doppelganger("Basic Side histo", p1)
p2 <- p +
geom_ysidehistogram(aes(x = after_stat(count), yfill = Species2), bins = 30)
expect_doppelganger("yside histo", p2)
p3 <- p2 +
geom_xsidehistogram(aes(xfill = Species, y = after_stat(count)), bins = 30) +
facet_grid(cols = vars(Species), rows = vars(Species2)) +
scale_yfill_manual(values = c("darkred","darkblue")) +
guides(fill = "none")
expect_doppelganger("FacetGrid histo", p3)
p4 <- p3 + ggside(collapse = "all") +
scale_xfill_manual(values = c("tan2","gold","grey"))
expect_doppelganger("Collapsed histo", p4)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.