ggplot2 put labels on a stacked bar chart

Question

I want to label the output of my function call (which is the sum of length per month) on top of each bar.

I have tried to store the desired numbers in a vector and use this as a label but this did not work.

Here is my example code

library(ggplot2)

month<-c(1,3,2,4,3,10,12,4,9,5,6,6,7,9,9,8,10,9,11,12,9)
length<-c(2,3.5,4,10,14,16,20,34,10.5,2,10.4,3.4,4,5,6,12,5,34,5.6,56.5,22)
year<-c(2019,2018,2018,2017,2018,2016,2016,2017,2018,2019,2016,2017,2017,2018,2019,2016,2017,2018,2019,2016,2019)

df<-data.frame(month,length,year)


ggplot(df) +
  geom_bar(aes(month, length, fill = as.factor(year)), 
           position = "stack", stat = "summary", fun.y = "sum")+
  scale_x_continuous(breaks = seq(1,12,by = 1))

Is there any way to use the output of fun.y = "sum" directly as the geom_text() label?

I haven't figured out how to use ggplot2-derived summary stats for stacked text so far, but you might follow [this GitHub issue](https://github.com/tidyverse/ggplot2/issues/2709) to see if things will change. — aosmith, Jun 27 '19 at 15:33
Possible duplicate of [Showing data values on stacked bar chart in ggplot2](https://stackoverflow.com/questions/6644997/showing-data-values-on-stacked-bar-chart-in-ggplot2) — Mikko Marttila, Jun 28 '19 at 09:45

score 4 · Answer 1 · answered Jun 28 '19 at 07:33

As per the docs:

... If you want the heights of the bars to represent values in the data, use geom_col() instead. ...

So your results can be reproduced with much cleaner code (I also took the liberty to convert the apparent factors).

library(tidyverse)

month <- c(1,3,2,4,3,10,12,4,9,5,6,6,7,9,9,8,10,9,11,12,9)
length <- c(2,3.5,4,10,14,16,20,34,10.5,2,10.4,3.4,4,5,6,12,5,34,5.6,56.5,22)
year <- c(2019,2018,2018,2017,2018,2016,2016,2017,2018,2019,2016,2017,2017,2018,2019,2016,2017,2018,2019,2016,2019)

data.frame(month,length,year) %>% 
  mutate(
    month = as.factor(month),
    year = as.factor(year)) ->
  df

df %>% 
  ggplot() +
  geom_col(aes(month, length, fill = year))

Using the stat = is always a pain in ggplot, so it's easier to pre-compute the stats using the awesome dplyr verbs.

df %>% 
  group_by(month) %>% 
  mutate(monthly = sum(length)) %>% 
  ggplot() +
  geom_col(aes(month, length, fill = year)) +
  geom_text(aes(month, monthly, label = monthly),
            vjust = -1) +
  ylim(0, 90)

The quirk of this approach is that it prints some of the labels multiple times on top of each other. You can create a separate dataset to get rid of this.

df %>% 
  ggplot() +
  geom_col(aes(month, length, fill = year)) +
  geom_text(aes(month, monthly, label = monthly),
            vjust = -1,
            data = . %>% group_by(month) %>% summarise(monthly = sum(length))) +
  ylim(0, 90)

I used . in place of the data frame reference, so you need to replace only one instance of df if you want to use different dataset.

eastclintw00d · Accepted Answer · 2019-07-13T18:52:51.287

I don't know the answer to your question if the summary result can be used directly for geom_text. But I propose another solution to your problem:

library(ggplot2)
library(dplyr)

month<-c(1,3,2,4,3,10,12,4,9,5,6,6,7,9,9,8,10,9,11,12,9)
length<-c(2,3.5,4,10,14,16,20,34,10.5,2,10.4,3.4,4,5,6,12,5,34,5.6,56.5,22)
year<-c(2019,2018,2018,2017,2018,2016,2016,2017,2018,2019,2016,2017,2017,2018,2019,2016,2017,2018,2019,2016,2019)

df<-data.frame(
  year = as.factor(year),
  month = as.factor(month),
  length
)

df %>% 
  group_by(year, month) %>% 
  summarise(length = sum(length)) %>% 
  arrange(month, desc(year)) %>%
  plyr::ddply("month", transform, label_pos = cumsum(length) - .5 * length) %>% ## calculate label offset
  ggplot(aes(month, length)) +
  geom_bar(aes(fill = year), position = "stack", stat = "identity") +
  geom_text(aes(label = length, y = label_pos))

If you want percentages summing up to 100% per month you can use the scales package

df %>% 
  group_by(year, month) %>% 
  summarise(length = sum(length)) %>% 
  group_by(month) %>% 
  mutate(perc = scales::percent(round(length / sum(length), 3))) %>% 
  arrange(month, desc(year)) %>%
  plyr::ddply("month", transform, label_pos = cumsum(length) - .5 * length) %>% ## calculate label offset
  ggplot(aes(month, length)) +
  geom_bar(aes(fill = year), position = "stack", stat = "identity") +
  geom_text(aes(label = perc, y = label_pos))

Thanks again for your help. Is there also a way to transform these vlaues into percentages adding up to 100% per month? — Lutz, Jul 12 '19 at 14:33
I added an example to display percentages using the `scales` package. — eastclintw00d, Jul 13 '19 at 18:53

ggplot2 put labels on a stacked bar chart

2 Answers2