Nothing
library(vdiffr)
base_plot <- ggplot(
data.frame(x = 1:3, y = 1:3),
aes(x = x, y = y)
) + geom_point() + ggside()
test_that("plot abline", {
abline <- base_plot + geom_xsideabline(slope = 1/3) +
geom_ysideabline(slope = 3)
expect_doppelganger("abline", abline)
})
test_that("plot bar", {
bar <- base_plot + geom_xsidebar() + geom_ysidebar()
expect_doppelganger("bar", bar)
})
test_that("plot boxplot", {
boxplot1 <- base_plot +
geom_xsideboxplot(aes(group = 1L), orientation = "y") +
geom_ysideboxplot(aes(group = 1L), orientation = "x")
expect_doppelganger("boxplot1", boxplot1)
boxplot2 <- base_plot +
geom_xsideboxplot(aes(group = 1L), orientation = "x") +
geom_ysideboxplot(aes(group = 1L), orientation = "y")
expect_doppelganger("boxplot2", boxplot2)
})
test_that("plot col", {
col <- base_plot +
geom_xsidecol() + geom_ysidecol()
expect_doppelganger("col", col)
})
test_that("plot density", {
density <- base_plot +
geom_xsidedensity() +
geom_ysidedensity()
expect_doppelganger("density", density)
})
test_that("plot freqpoly", {
freqpoly <- base_plot +
geom_ysidefreqpoly(bins = 6) +
geom_xsidefreqpoly(bins = 6)
expect_doppelganger("freqpoly", freqpoly)
})
test_that("plot Function", {
Function <- base_plot +
geom_xsidefunction(fun = dnorm, args = list(mean = 2, sd = .5)) +
geom_ysidefunction(fun = dnorm, args = list(mean = 2, sd = .5))
expect_doppelganger("Function", Function)
})
test_that("plot histogram", {
histogram <- base_plot +
geom_xsidehistogram(bins = 6) +
geom_ysidehistogram(bins = 6)
expect_doppelganger("histogram", histogram)
})
test_that("plot hline", {
hline <- base_plot +
geom_xsidehline(yintercept = 2) +
geom_ysidehline(yintercept = 2)
expect_doppelganger("hline", hline)
})
test_that("plot label", {
label <- base_plot +
geom_xsidelabel(aes(y = 2, label=letters[1:3])) +
geom_ysidelabel(aes(x = 2, label=letters[1:3]))
expect_doppelganger("label", label)
})
test_that("plot line", {
line <- base_plot +
geom_xsideline() +
geom_ysideline()
expect_doppelganger("line", line)
})
test_that("plot path", {
path <- base_plot +
geom_xsidepath() +
geom_ysidepath()
expect_doppelganger("path", path)
})
test_that("plot point", {
point <- base_plot +
geom_xsidepoint() +
geom_ysidepoint()
expect_doppelganger("point", point)
})
test_that("plot segment", {
segment <- base_plot +
geom_xsidesegment(aes(xend = x, yend = y + 1)) +
geom_ysidesegment(aes(xend = x, yend = y + 1))
expect_doppelganger("segment", segment)
})
test_that("plot text", {
text <- base_plot +
geom_xsidetext(aes(y = 2, label=letters[1:3])) +
geom_ysidetext(aes(x = 2, label=letters[1:3]))
expect_doppelganger("text", text)
})
test_that("plot tile", {
tile <- base_plot +
geom_xsidetile(aes(y = 2, fill = 1:3)) +
geom_ysidetile(aes(x = 2, fill = 1:3))
expect_doppelganger("tile", tile)
})
test_that("plot violin", {
violin <- base_plot +
geom_xsideviolin() +
geom_ysideviolin()
expect_doppelganger("violin", violin)
})
test_that("plot vline", {
vline <- base_plot +
geom_xsidevline(xintercept = 2) +
geom_ysidevline(xintercept = 2)
expect_doppelganger("vline", vline)
})
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.