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
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)))
|
|
|
|
|
|
})
|
|
|