Добавляя счетчики к ggmosaic, это можно сделать проще? - PullRequest
Новая
       38

Добавляя счетчики к ggmosaic, это можно сделать проще?

0 голосов
/ 08 мая 2018

Я хотел бы создать мозаичный график с использованием пакета 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))

Создано в 2018-05-08 пакетом Представление (v0.2.0).

1 Ответ

0 голосов
/ 08 мая 2018

Я ранее делал аналогичные диаграммы в чистом 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"))

plot

...