❝https://github.com/doehm/ggbrick ❞
library(tidyverse)
install.packages('devtools')
devtools::install_github('thomasp85/ggfx')
devtools::install_github("doehm/ggbrick")
library(ggfx)
library(ggbrick)
mpg |>
count(class, drv) |>
ggplot() +
geom_waffle0(aes(class, n, fill = drv))+
coord_waffle() +
scale_fill_brewer(type = "qual")
mpg |>
count(class, drv) |>
ggplot() +
geom_waffle(aes(class, n, fill = drv), gap = 0.02)+
coord_waffle() +
scale_fill_brewer(type = "qual")
mpg |>
count(class, drv) |>
ggplot() +
geom_waffle0(aes(class, n, fill = drv)) +
scale_fill_brewer(type = "qual") +
coord_flip() +
theme(aspect.ratio = 2)
mpg %>% count(class,drv) %>%
ggplot()+
with_shadow(
geom_waffle0(aes(class,n,fill=drv),gap=0.016),x_offset=4,
y_offset=4)+
scale_fill_brewer(type="qual")+
coord_waffle()+
theme_test()