有没有什么简单的方法可以结合ggplot2中的facets或结合waffle包来创建waffle图?
例如,将下面的每个条形替换为 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)
)
}
现在我们需要:
geom_tile()
在一个面板中,我们需要修改一个可以做同样事情的方面名称 pct
次x
/y
我们将拥有尽可能多的方面的网格(在本例中为 6);这是华夫饼包装的另一个“魔法”^^ 翻译为 👇(这个管道链对于我的舒适度来说有点长,但“它有效”):
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 中与刻面一起创建华夫饼图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/52741666/