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.
23 lines
505 B
23 lines
505 B
library(ggplot2)
|
|
library(ggchicklet)
|
|
|
|
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))
|
|
)
|
|
|
|
|