How can I have different geom_text() labels in a faceted, stacked bar graph in R with ggplot?

Question

I am trying to use facet_wrap with stacked bar graphs, and I'd like to have labels on the bars showing the value of each part of the bar.

Using the diamonds dataset as an example:

My geom_text code works fine when there is only one graph, albeit cramped for the shorter bars:

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)

Labeled bar plot without faceting

However, when I add the faceting, all the labels display in all the individual facets:

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)

Faceted bar plot with replicated labeling

How can I make it so that the labels only show up on the relevant bars?

Thanks!

score 3 · Accepted Answer · answered Apr 11 '20 at 21:45

3

I think you need to include color in the group_by + tally so that it can be assigned to the correct facet:

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)

answered Apr 11 '20 at 21:45

StupidWolf

45,075
17
40
72

Including color in the group_by + tally worked perfectly, thank you! – Giselle Sleapy Apr 11 '20 at 21:55

score 3 · Answer 2 · answered Apr 11 '20 at 22:04

Personally, I find the ..count.. special variable to be easier to work with.

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)

How can I have different geom_text() labels in a faceted, stacked bar graph in R with ggplot?

2 Answers2