向ggmosaic添加计数，这可以更简单吗？

Posted 2023-02-14

【中文标题】向ggmosaic添加计数，这可以更简单吗？

【英文标题】：Adding counts to ggmosaic, can this be done simpler?

【发布时间】：2018-10-18 01:39:39

【问题描述】：

我想使用 ggmosaic 包制作马赛克图并添加计数，如下例所示。

这个例子很有效，但我发现代码的结构很丑。 您对我如何改进代码以使其更具可重用性有什么建议吗？

与通常使用 ggplot2 可以实现的相比，将绘图的早期版本存储在临时变量中的需求似乎是错误的。

library(tidyverse)
library(ggmosaic)
#> Indlæser krævet pakke: productplots
#> 
#> Vedhæfter pakke: 'ggmosaic'
#> De følgende objekter er maskerede fra 'package:productplots':
#> 
#>     ddecker, hspine, mosaic, prodcalc, spine, vspine

data <- tribble(~a, ~b, 
                1, 1, 
                1, 1, 
                1, 1, 
                1, 2, 
                2, 1,
                2, 2, 
                3, 2)

p <- ggplot(data) + 
  geom_mosaic(aes(x=product(b, a), fill=as.factor(b)))

p + 
  geom_label(data = ggplot_build(p)$data %>% as.data.frame() %>% filter(.wt > 0), 
             aes(x = (xmin + xmax)/2, 
                 y = (ymin + ymax)/2, 
                 label = .wt))

由reprex package (v0.2.0) 于 2018 年 5 月 8 日创建。

【参考方案1】：

我 previously 在纯 ggplot2 中制作了类似的图表，但没有使用 ggmosaic 包。不过，我不知道这是否足以满足您的用例：

# data manipulation
data %>%
  group_by(a, b) %>%
  summarise(n = n()) %>%
  mutate(x.width = sum(n)) %>%

  # simulate mosaic plot
  ggplot(aes(x = factor(a), y = n)) +
  geom_col(aes(width = x.width, fill = factor(b)),
           colour = "white", size = 1, position = position_fill(reverse = TRUE)) +
  geom_label(aes(label = n),
             position = position_fill(vjust = 0.5)) +
  facet_grid(~ a, space = "free", scales = "free", switch = "x") +

  # cosmetic tweaks
  scale_x_discrete(name = "a") +
  scale_y_continuous(labels = scales::percent) +
  theme(axis.text.x = element_blank(),
        axis.ticks.x = element_blank(),
        axis.title.y = element_blank(),
        strip.background = element_blank(),
        panel.spacing = unit(0, "pt"))

【参考方案2】：

这是一种使用提供的代码执行此操作的方法，但无需保存临时绘图。它利用 ggplot 的 last_plot 来访问绘图对象直到最近的“+”，并且使用 layer_data 而不是 ggplot_build 更简单地访问数据。

library(tidyverse)
library(ggmosaic)
data <- tribble(~a, ~b, 
                1, 1, 
                1, 1, 
                1, 1, 
                1, 2, 
                2, 1,
                2, 2, 
                3, 2)

data <- data %>%
  mutate(across(c(a, b), as.factor))

ggplot(data) + 
  geom_mosaic(aes(x=product(b, a), fill=b)) +
  geom_label(data = layer_data(last_plot(), 1) %>% filter(.wt > 0),
             aes(x = (xmin + xmax) / 2,
                 y = (ymin + ymax) / 2,
                 label = .wt))

^{由reprex package (v0.3.0) 于 2020-07-05 创建}

这仍然是一个 hack，但它可以让您免去分配临时情节的痛苦。