Create Chicklet (Rounded Segmented Column) Charts https://cinc.rud.is/web/packages/ggchicklet/
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

25 lines
602 B

library(ggplot2)
context("chicklet geoms are created properly")
test_that("chicklet geoms are created properly", {
data("debates2019")
spkr_ordr <- aggregate(elapsed ~ speaker, data = debates2019, sum)
spkr_ordr <- spkr_ordr[order(spkr_ordr[["elapsed"]]),]
debates2019$speaker <- factor(debates2019$speaker, spkr_ordr$speaker)
ggplot(debates2019) +
geom_chicklet(aes(speaker, elapsed, group = timestamp, fill = topic)) -> gg
print(gg)
ggplot_build(gg) -> gb
ggplot_gtable(gb) -> gt
expect_true(all(c("GeomChicklet", "GeomRrect") %in% class(gb$plot$layers[[1]]$geom)))
})