使用stat_count時將百分比標簽添加到ggplot

Question

由於某些原因，我似乎無法使用stat_count向ggplot添加正確的比例標簽。 下面的代碼返回的標簽顯示所有類別的100％，即使我使用..prop.. 我應該使用其他東西代替stat_count嗎？

library(tidyverse)
diamonds %>% 
  ggplot(aes(color, fill=cut)) +
  geom_bar(position = 'fill') +
  stat_count(aes(label= scales::percent(..prop..)), 
             geom = 'text', position = position_fill(vjust = 0.5))

我知道這也可以通過在將數據饋送到ggplot之前計算百分比來ggplot （如下所示），但是我有很多代碼正在使用geom_bar ，如果要這樣做，則需要更改所有代碼。

diamonds %>% 
  count(color, cut) %>% 
  group_by(color) %>% 
  mutate(pct=n/sum(n)) %>% 
  ggplot(aes(color, pct, fill=cut)) +
  geom_col(position = 'fill') +
  geom_text(aes(label=scales::percent(pct)), position = position_fill(vjust=0.5))

Answer 1

如果您不想更改geom_bar部分，可以在geom_label()進行計算：

diamonds %>% 
  ggplot(aes(color, fill=cut)) +
  geom_bar(position = 'fill') +
  geom_text(data = . %>% 
              group_by(color, cut) %>%
              tally() %>%
              mutate(p = n / sum(n)) %>%
              ungroup(),
            aes(y = p, label = scales::percent(p)),
            position = position_stack(vjust = 0.5),
            show.legend = FALSE)