Nothing
test_that("coord_trans_flip() works", {
gg <- ggplot(mtcars, aes(disp, wt)) +
geom_point() +
coord_trans_flip(x = "log10", y = "log10",
xlim = c(50, 500), ylim = c(1, 6), expand = FALSE)
expect_true(is.ggplot(gg))
params <- ggplot_build(gg)$layout$panel_params[[1]]
expect_equal(params$x.range, log10(c(1, 6)))
expect_equal(params$y.range, log10(c(50, 500)))
expect_doppelganger_deeptime("coord_trans_flip()", gg)
gg <- ggplot(mtcars, aes(disp, wt)) +
geom_point() +
coord_trans_flip(x = "sqrt", y = "pseudo_log",
xlim = c(50, 500), ylim = c(1, 6), expand = FALSE)
expect_true(is.ggplot(gg))
params <- ggplot_build(gg)$layout$panel_params[[1]]
expect_equal(params$x.range, scales::pseudo_log_trans()$transform(c(1, 6)))
expect_equal(params$y.range, sqrt(c(50, 500)))
expect_doppelganger_deeptime("coord_trans_flip() with different transforms",
gg)
})
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.