Nothing
test_that("example", {
# ggally_cross
data(tips)
# Custom fill
vdiffr::expect_doppelganger("tips-fill-red", ggally_cross(tips, mapping = aes(x = smoker, y = sex), fill = "red"))
# Custom shape
vdiffr::expect_doppelganger("tips-shape", ggally_cross(tips, mapping = aes(x = smoker, y = sex), shape = 21))
# Fill squares according to standardized residuals
d <- as.data.frame(Titanic)
vdiffr::expect_doppelganger(
"titanic-fill-steps2",
ggally_cross(
d,
mapping = aes(x = Class, y = Survived, weight = Freq, fill = after_stat(std.resid))
) +
scale_fill_steps2(breaks = c(-3, -2, 2, 3), show.limits = TRUE)
)
# Add labels
vdiffr::expect_doppelganger(
"tips-label",
ggally_cross(
tips,
mapping = aes(
x = smoker, y = sex, colour = smoker,
label = scales::percent(after_stat(prop))
)
)
)
# Customize labels' appearance and same size for all squares
vdiffr::expect_doppelganger(
"tips-label-custom",
ggally_cross(
tips,
mapping = aes(
x = smoker, y = sex,
size = NULL, # do not map size to a variable
label = scales::percent(after_stat(prop))
),
size = 40, # fix value for points size
fill = "darkblue",
geom_text_args = list(colour = "white", fontface = "bold", size = 6)
)
)
vdiffr::expect_doppelganger("tips-sex", ggally_cross(tips, mapping = aes(x = smoker, y = sex)))
vdiffr::expect_doppelganger("tips-time", ggally_cross(tips, mapping = aes(x = day, y = time)))
vdiffr::expect_doppelganger("tips-time-color", ggally_table(tips, mapping = aes(x = smoker, y = sex, colour = smoker)))
# colour is kept only if equal to x or y
vdiffr::expect_doppelganger("tips-color-equal", ggally_table(tips, mapping = aes(x = smoker, y = sex, colour = day)))
# diagonal version
vdiffr::expect_doppelganger("tips-diagonal", ggally_tableDiag(tips, mapping = aes(x = smoker)))
# custom label size and color
vdiffr::expect_doppelganger("tips-red-size16", ggally_table(tips, mapping = aes(x = smoker, y = sex), size = 16, color = "red"))
# display column proportions
vdiffr::expect_doppelganger("table-label", ggally_table(
tips,
mapping = aes(x = day, y = sex, label = scales::percent(after_stat(col.prop)))
))
# draw table cells
vdiffr::expect_doppelganger("table-color-fill", ggally_table(
tips,
mapping = aes(x = smoker, y = sex),
geom_tile_args = list(colour = "black", fill = "white")
))
# Use standardized residuals to fill table cells
vdiffr::expect_doppelganger("table-fill-steps2", ggally_table(
as.data.frame(Titanic),
mapping = aes(
x = Class, y = Survived, weight = Freq,
fill = after_stat(std.resid),
label = scales::percent(after_stat(col.prop), accuracy = .1)
),
geom_tile_args = list(colour = "black")
) +
scale_fill_steps2(breaks = c(-3, -2, 2, 3), show.limits = TRUE))
})
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.