Nothing
library(vdiffr)
df <- data.frame(x = 1:10, y = 21:30,
a = rep(c("g1","g2"), 5),
b = rep(c("t1","t2"), each = 5))
p <- ggplot(df, aes(x, y)) +
geom_point()
px <- p + geom_xsidecol()
py <- p + geom_ysidecol()
pxy <- px + geom_ysidecol()
test_that("ggside.panel.scale facetNULL",{
expect_doppelganger("xside ggside.panel.scale.x .5", px + theme(ggside.panel.scale.x = .5))
expect_doppelganger("xside ggside.panel.scale.y .5", px + theme(ggside.panel.scale.y = .5))
expect_doppelganger("xside ggside.panel.scale .5", px + theme(ggside.panel.scale = .5))
expect_doppelganger("yside ggside.panel.scale.x .5", py + theme(ggside.panel.scale.x = .5))
expect_doppelganger("yside ggside.panel.scale.y .5", py + theme(ggside.panel.scale.y = .5))
expect_doppelganger("yside ggside.panel.scale .5", py + theme(ggside.panel.scale = .5))
expect_doppelganger("xyside ggside.panel.scale.x .5", pxy + theme(ggside.panel.scale.x = .5))
expect_doppelganger("xyside ggside.panel.scale.y .5", pxy + theme(ggside.panel.scale.y = .5))
expect_doppelganger("xyside ggside.panel.scale .5", pxy + theme(ggside.panel.scale = .5))
})
test_that("ggside.panel.spacing facetNULL",{
expect_doppelganger("xside ggside.panel.spacing.x 10pt", px + theme(ggside.panel.spacing.x = unit(10, "pt")))
expect_doppelganger("xside ggside.panel.spacing.y 10pt", px + theme(ggside.panel.spacing.y = unit(10, "pt")))
expect_doppelganger("xside ggside.panel.spacing 10pt", px + theme(ggside.panel.spacing = unit(10, "pt")))
expect_doppelganger("yside ggside.panel.spacing.x 10pt", py + theme(ggside.panel.spacing.x = unit(10, "pt")))
expect_doppelganger("yside ggside.panel.spacing.y 10pt", py + theme(ggside.panel.spacing.y = unit(10, "pt")))
expect_doppelganger("yside ggside.panel.spacing 10pt", py + theme(ggside.panel.spacing = unit(10, "pt")))
expect_doppelganger("xyside ggside.panel.spacing.x 10pt", pxy + theme(ggside.panel.spacing.x = unit(10, "pt")))
expect_doppelganger("xyside ggside.panel.spacing.y 10pt", pxy + theme(ggside.panel.spacing.y = unit(10, "pt")))
expect_doppelganger("xyside ggside.panel.spacing 10pt", pxy + theme(ggside.panel.spacing = unit(10, "pt")))
})
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.