Nothing
test_that("example", {
data(tips)
vdiffr::expect_doppelganger(
"point",
ggplot(tips) +
aes(x = day, y = total_bill) +
geom_point()
)
vdiffr::expect_doppelganger(
"geom-default",
ggplot(tips) +
aes(x = day, y = total_bill) +
stat_weighted_mean()
)
vdiffr::expect_doppelganger(
"geom-line",
ggplot(tips) +
aes(x = day, y = total_bill, group = 1) +
stat_weighted_mean(geom = "line")
)
vdiffr::expect_doppelganger(
"geom-line-grouped",
ggplot(tips) +
aes(x = day, y = total_bill, colour = sex, group = sex) +
stat_weighted_mean(geom = "line")
)
vdiffr::expect_doppelganger(
"geom-bar-dodge",
ggplot(tips) +
aes(x = day, y = total_bill, fill = sex) +
stat_weighted_mean(geom = "bar", position = "dodge")
)
# computing a proportion on the fly
vdiffr::expect_doppelganger(
"geom-bar-dodge-percent",
ggplot(tips) +
aes(x = day, y = as.integer(smoker == "Yes"), fill = sex) +
stat_weighted_mean(geom = "bar", position = "dodge") +
scale_y_continuous(labels = scales::percent)
)
# taking into account some weights
d <- as.data.frame(Titanic)
vdiffr::expect_doppelganger(
"titanic",
ggplot(d) +
aes(x = Class, y = as.integer(Survived == "Yes"), weight = Freq, fill = Sex) +
geom_bar(stat = "weighted_mean", position = "dodge") +
scale_y_continuous(labels = scales::percent) +
labs(y = "Survived")
)
tips_f <- tips
tips_f$day <- factor(tips$day, c("Thur", "Fri", "Sat", "Sun"))
# Numeric variable
vdiffr::expect_doppelganger(
"trends",
ggally_trends(tips_f, mapping = aes(x = day, y = total_bill))
)
vdiffr::expect_doppelganger(
"trends-color",
ggally_trends(tips_f, mapping = aes(x = day, y = total_bill, colour = time))
)
# Binary variable
vdiffr::expect_doppelganger(
"trends-binary",
ggally_trends(tips_f, mapping = aes(x = day, y = smoker))
)
vdiffr::expect_doppelganger(
"trends-binary-color",
ggally_trends(tips_f, mapping = aes(x = day, y = smoker, colour = sex))
)
# Discrete variable with 3 or more categories
vdiffr::expect_doppelganger(
"trends-many",
ggally_trends(tips_f, mapping = aes(x = smoker, y = day))
)
vdiffr::expect_doppelganger(
"trends-many-color",
ggally_trends(tips_f, mapping = aes(x = smoker, y = day, color = sex))
)
# Include zero on Y axis
vdiffr::expect_doppelganger(
"trends-incl-zero-false",
ggally_trends(tips_f, mapping = aes(x = day, y = total_bill), include_zero = TRUE)
)
vdiffr::expect_doppelganger(
"trends-incl-zero-true",
ggally_trends(tips_f, mapping = aes(x = day, y = smoker), include_zero = TRUE)
)
# Change line size
vdiffr::expect_doppelganger(
"trends-size-3",
ggally_trends(tips_f, mapping = aes(x = day, y = smoker, colour = sex), linewidth = 3)
)
# Define weights with the appropriate aesthetic
d <- as.data.frame(Titanic)
vdiffr::expect_doppelganger(
"trends-titanic",
ggally_trends(
d,
mapping = aes(x = Class, y = Survived, weight = Freq, color = Sex),
include_zero = 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.