Nothing
context("visual tests of plots")
test_that("plots look the way they should", {
expect_doppelganger("Basic treemap", {
ggplot2::ggplot(G20, ggplot2::aes(area = gdp_mil_usd, fill = hdi, label = country)) +
geom_treemap() +
geom_treemap_text()
})
expect_doppelganger("Fixed layout", {
ggplot2::ggplot(G20, ggplot2::aes(area = gdp_mil_usd, fill = hdi, label = country)) +
geom_treemap(layout = "fixed") +
geom_treemap_text(layout = "fixed")
})
expect_doppelganger("scol layout", {
ggplot2::ggplot(G20, ggplot2::aes(area = gdp_mil_usd, fill = hdi, label = country)) +
geom_treemap(layout = "scol") +
geom_treemap_text(layout = "scol")
})
expect_doppelganger("srow layout", {
ggplot2::ggplot(G20, ggplot2::aes(area = gdp_mil_usd, fill = hdi, label = country)) +
geom_treemap(layout = "srow") +
geom_treemap_text(layout = "srow")
})
expect_doppelganger("squarified layout starting from top right", {
ggplot2::ggplot(G20, ggplot2::aes(area = gdp_mil_usd, fill = hdi, label = country)) +
geom_treemap(layout = "squarified", start = "topright") +
geom_treemap_text(layout = "squarified", start = "topright")
})
expect_doppelganger("srow layout starting from bottom right with subgroups", {
ggplot2::ggplot(G20, ggplot2::aes(
area = gdp_mil_usd,
fill = hdi,
label = country,
subgroup = region
)) +
geom_treemap(layout = "srow", start = "bottomright") +
geom_treemap_text(layout = "srow", start = "bottomright") +
geom_treemap_subgroup_text(layout = "srow", start = "bottomright") +
geom_treemap_subgroup_border(layout = "srow", start = "bottomright")
})
expect_doppelganger("correct colours for subgroup text", {
ggplot2::ggplot(G20, ggplot2::aes(
area = gdp_mil_usd,
fill = hdi,
subgroup = hemisphere,
subgroup2 = region,
subgroup3 = country
)) +
geom_treemap() +
geom_treemap_subgroup3_text(ggplot2::aes(colour = region))
})
expect_doppelganger("correct colours for subgroup text, differently", {
ggplot2::ggplot(G20, ggplot2::aes(
area = gdp_mil_usd,
fill = hdi,
subgroup = hemisphere,
subgroup2 = region,
subgroup3 = country
)) +
geom_treemap() +
geom_treemap_subgroup3_text(ggplot2::aes(colour = econ_classification))
})
expect_doppelganger("understands variants of 'centre'", {
ggplot2::ggplot(G20, ggplot2::aes(
area = gdp_mil_usd,
fill = hdi,
label = country,
subgroup = region
)) +
geom_treemap(layout = "srow", start = "bottomright") +
geom_treemap_text(layout = "srow", start = "bottomright", place = "center") +
geom_treemap_subgroup_text(layout = "srow", start = "bottomright", place = "middle") +
geom_treemap_subgroup_border(layout = "srow", start = "bottomright")
})
expect_doppelganger("understands variants of 'centre' with subgroups", {
ggplot2::ggplot(G20, ggplot2::aes(area = 1, label = country, subgroup = hemisphere,
subgroup2 = region, subgroup3 = econ_classification)) +
geom_treemap() +
geom_treemap_subgroup3_border(colour = "blue", size = 1) +
geom_treemap_subgroup2_border(colour = "white", size = 3) +
geom_treemap_subgroup_border(colour = "red", size = 5) +
geom_treemap_subgroup_text(place = "middle", colour = "red", alpha = 0.5, grow = T) +
geom_treemap_subgroup2_text(colour = "white", alpha = 0.5, fontface = "italic") +
geom_treemap_subgroup3_text(place = "top", colour = "blue", alpha = 0.5) +
geom_treemap_text(colour = "white", place = "middle", reflow = T)
})
expect_doppelganger("colour is drawn correctly in legend", {
ggplot2::ggplot(G20, ggplot2::aes(area = gdp_mil_usd, fill = region,
color = econ_classification,
linetype = econ_classification)) +
geom_treemap() +
ggplot2::scale_color_manual(values = c("red", "black")) +
ggplot2::scale_linetype_manual(values = c(1,3)) +
ggplot2::guides(color = ggplot2::guide_legend(override.aes =
list(color = c("red", "black"))))
})
})
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.