Nothing
library(vdiffr)
test_that('params aes are not in legend', {
p <- ggplot(iris, aes(x = Sepal.Length, y = Petal.Width)) +
geom_point(color = "grey") +
geom_smooth(aes(color = Species), formula = y ~ x, method = "lm", se = FALSE)
p2 <- p + geom_xsidedensity(aes(x = Sepal.Length, y = after_stat(density)), color = "blue")
p3 <- p + geom_xsidedensity(aes(x = Sepal.Length, y = after_stat(density)), xcolor = "red")
expect_doppelganger("Base Plot", p)
expect_doppelganger("non-aes-color-blue", p2)
expect_doppelganger("non-aes-xcolor-red", p3)
})
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.