R中华夫图的一种新画风

R语言数据分析指南

发布于 2024-03-20 21:22:53

930

发布于 2024-03-20 21:22:53

文章被收录于专栏：R语言数据分析指南R语言数据分析指南

欢迎关注R语言数据分析指南

官方文档

❝https://github.com/doehm/ggbrick ❞

加载R包

library(tidyverse)
install.packages('devtools')
devtools::install_github('thomasp85/ggfx')
devtools::install_github("doehm/ggbrick")
library(ggfx)
library(ggbrick)

案例1

mpg |>
  count(class, drv) |>
  ggplot() +
  geom_waffle0(aes(class, n, fill = drv))+
  coord_waffle() +
  scale_fill_brewer(type = "qual")

案例2

mpg |>
  count(class, drv) |>
  ggplot() +
  geom_waffle(aes(class, n, fill = drv), gap = 0.02)+
  coord_waffle() +
  scale_fill_brewer(type = "qual")

案例3

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