Создание пропорциональных фигур для geom_text при использовании граненого geom_col и position="fill"

Question

Я пытаюсь использовать geom_text, чтобы пометить граненый график geom_col, где position="fill".

Это упрощенная версия данных, которые я использую:

group = c("Group1", "Group1", "Group1", "Group1", "Group1", "Group1","Group2", "Group2", "Group2", "Group2", "Group2", "Group2")

year = c("Year1", "Year2", "Year3", "Year1", "Year2", "Year3", "Year1", "Year2", "Year3", "Year1", "Year2", "Year3")

gender = c("Male", "Male", "Male", "Female", "Female", "Female", "Male", "Male", "Male", "Female", "Female", "Female")

count = c(15, 16, 20, 12, 13, 13, 21, 24, 25, 27, 23, 30)

data = as.data.frame(cbind(group, year, gender, as.integer(count)))

Теперь сделать это при использовании geom_line очень просто:

data %>%
  ggplot(aes(year, count, color=gender, group=gender))+
  geom_point(size=2.5)+
  geom_line(size=1.5)+
  facet_wrap(~group)+
  geom_label(label=count)

Однако, при использовании geom_col и position="fill", в результате чего создается пропорциональный график, это не работает, поскольку метки (как указано) являются значениями 'count'.

data %>%
  ggplot(aes(year, count, fill=gender))+
  geom_col(position="fill")+
  facet_wrap(~group)+
  geom_label(label=count)

Мой вопрос в том, что, поскольку ggplot имеет возможность генерировать пропорции для создания стиля в стиле geom_col-position="fill", есть ли способ для меня "получить доступ" к этим пропорциям и затем использовать их для обозначения моего графика?

Любая помощь будет принята с благодарностью.

Спасибо.

Answer 1

Вы можете выполнить всего лишь пару шагов предварительной обработки, чтобы рассчитать доли для каждой группы, а затем использовать это для позиционирования баров и создания меток.

Обратите внимание, что я использую только data.frame вместо as.data.frame(cbind()) хранить count как числовой, а не фактор.

Группируя по годам и группам, я могу рассчитать пропорции для каждого пола в комбинации этих групп.

library(tidyverse)

...

data <- data.frame(group, year, gender, count)

data_props <- data %>%
  group_by(year, group) %>%
  mutate(prop = round(count / sum(count), digits = 2)) 

data_props
#> # A tibble: 12 x 5
#> # Groups:   year, group [6]
#>    group  year  gender count  prop
#>    <fct>  <fct> <fct>  <dbl> <dbl>
#>  1 Group1 Year1 Male      15  0.56
#>  2 Group1 Year2 Male      16  0.55
#>  3 Group1 Year3 Male      20  0.61
#>  4 Group1 Year1 Female    12  0.44
#>  5 Group1 Year2 Female    13  0.45
#>  6 Group1 Year3 Female    13  0.39
#>  7 Group2 Year1 Male      21  0.44
#>  8 Group2 Year2 Male      24  0.51
#>  9 Group2 Year3 Male      25  0.45
#> 10 Group2 Year1 Female    27  0.56
#> 11 Group2 Year2 Female    23  0.49
#> 12 Group2 Year3 Female    30  0.55

ggplot(data_props, aes(x = year, y = prop, fill = gender)) +
  geom_col(position = "stack") +
  geom_label(aes(label = prop), position = position_stack(vjust = 0.5)) +
  facet_wrap(~ group)

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