# https://gist.github.com/jsonbecker/0cc702804512fdf29c7f9067adfc17d0#gistcomment-1935427
df <- data.frame(
type = c(rep('Elementary', 2), rep('Middle', 2), rep('High', 2)),
included = rep(c('included','excluded'), 3),
dollars = c(1000, 2500, 4000, 1000, 3000, 2800)
)
p <- df %>%
group_by(type) %>%
mutate(prop = dollars / sum(dollars)) %>%
ggplot(aes(type, prop, fill = included)) +
geom_col() +
geom_text(aes(label = scales::percent(prop)), position = position_stack(vjust = 0.5))
test_that("geom_col is supported", {
l <- expect_doppelganger_built(p, "col")
})
Generated by dwww version 1.15 on Fri Jun 21 22:21:29 CEST 2024.