如何使用 ggplot 在 R 的多面堆疊條形圖中使用不同的 geom_text() 標簽？

Question

我正在嘗試將 facet_wrap 與堆疊條形圖一起使用，並且我希望條形圖上的標簽顯示條形圖每個部分的值。

以 diamonds 數據集為例：

當只有一個圖形時，我的 geom_text 代碼可以正常工作，盡管對於較短的條形來說很擁擠：

diamonds %>%
ggplot(aes(x = cut, fill = clarity)) +
geom_bar() +
geom_text(data = . %>% 
          group_by(cut, clarity) %>%
          tally() %>%
          ungroup() %>% 
          group_by(cut) %>%
          ungroup(),
        aes(y = n, label = n),
        position = position_stack(0.5),
        show.legend = FALSE) 

標記條 plot 不帶刻面

但是，當我添加分面時，所有標簽都會顯示在所有單獨的分面中：

diamonds %>%
  ggplot(aes(x = cut, fill = clarity)) +
  geom_bar() +
  facet_wrap(~ color) +
  geom_text(data = . %>% 
              group_by(cut, clarity) %>%
              tally() %>%
              ungroup() %>% 
              group_by(cut) %>%
              ungroup(),
            aes(y = n, label = n),
            position = position_stack(0.5),
            show.legend = FALSE)

帶復制標簽的刻面條 plot

我怎樣才能使標簽只顯示在相關欄上？

謝謝！

Answer 1

我認為您需要在 group_by + tally 中包含顏色，以便可以將其分配給正確的方面：

diamonds %>%
ggplot(aes(x = cut, fill = clarity)) +
geom_bar() +
facet_wrap(~ color,scale="free_y") +
geom_text(data = . %>% 
          count(cut, clarity,color),
            aes(y = n, label = n),size=1,
            position = position_stack(0.5),
            show.legend = FALSE)

Answer 2

就個人而言，我發現..count..特殊變量更易於使用。

diamonds %>%
ggplot(aes(x = cut, fill = clarity)) +
  geom_bar() +
  facet_wrap(~ color,scale="free_y") +
  stat_count(geom = "text", 
             aes(y =..count.., label = ..count..),
             position=position_stack(0.5), size = 2)