有什么简单的方法可以结合ggplot2中的构面来创建华夫饼图,或者与华夫饼包结合使用?

例如,将下面的每一个条形替换为100个正方形代表1%。

ggplot(mtcars, aes(x = factor(vs), y = hp, fill = as.factor(carb))) +
  geom_bar(stat = 'identity', position = 'fill') +
  facet_wrap('gear')

最佳答案

我不确定我是否会遍历stat_waffle()/geom_waffle(),但您可以长期使用软件包中的逻辑来做同样的事情:

library(hrbrthemes)
library(tidyverse)

我们需要弄清楚百分比,然后使每个组的总数达到100,所以我们需要一个在SO上使用了一段时间的辅助函数:
smart_round <- function(x, digits = 0) { # somewhere on SO
  up <- 10 ^ digits
  x <- x * up
  y <- floor(x)
  indices <- tail(order(x-y), round(sum(x)) - sum(y))
  y[indices] <- y[indices] + 1
  y / up
}
waffle包中有2位“魔术”。该算法的一部分只对因子分量进行正确次数的复制。我们将逐行将以下函数应用于要创建的数据框:
waffleize <- function(xdf) {
  data_frame(
    gear_vs = rep(xdf$gear_vs, xdf$pct),
    carb = rep(xdf$carb, xdf$pct)
  )
}

现在我们需要:
  • 对您的示例
  • 做与ggplot2相同的数学运算
  • 计算组
  • 的百分比
  • 将%变成100的一部分,并使每个组的总数等于100
  • ,因为我们不能在一个面板中使用两个不同的geom_tile(),所以我们需要破解一个可以执行相同操作的构面名称
  • 小组说,黑客
  • 复制每行pct
  • 确保事物正确排序
  • 加入一个10x10的x/y网格,以获得尽可能多的构面(本例中为6);这是华夫 cookies 包装的“魔力”
  • 的另一部分
  • 绘制瓷砖

  • ^^转换为👇(此管道链对于我的舒适水平来说有点长,但“有效”):
    count(mtcars, gear, vs, carb, wt=hp) %>%
      group_by(gear, vs) %>%
      mutate(pct = n/sum(n)) %>%
      mutate(pct = (smart_round(pct, 1) * 100L) %>%  as.integer()) %>%
      select(-n) %>%
      ungroup() %>%
      mutate(carb = as.character(carb))  %>%
      mutate(gear_vs = sprintf("%s-%s", gear, vs)) %>%
      select(gear_vs, carb, pct, -gear, -vs) %>%
      rowwise() %>%
      do(waffleize(.)) %>%
      ungroup() %>%
      arrange(gear_vs, carb) %>%
      bind_cols(
        map_df(seq_len(length(unique(.$gear_vs))), ~expand.grid(y = 1:10, x = 1:10))
      ) %>%
      ggplot(aes(x, y)) +
      geom_tile(aes(fill=carb), color="white", size=0.5) +
      ggthemes::scale_fill_tableau() +
      facet_wrap(~gear_vs) +
      coord_equal() +
      labs(x=NULL, y = NULL) +
      hrbrthemes::theme_ipsum_rc(grid="") +
      theme(axis.text=element_blank())
    

    r - 在ggplot2中创建华夫饼图和构面-LMLPHP

    关于r - 在ggplot2中创建华夫饼图和构面,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/52741666/

    10-12 17:34