Using ggplot2 stat_summary with geom col to create distinct sum bar

Question

I am trying to make a barplot with a summary bar Total showing the sum of two groups: Pulses, Total and Soybeans.

I know it is possible to achieve it by pre-processing the data to get the sum as a summary by group, I am looking for a stat_summary solution. I am not very familiar with stat_summary(), any advice is welcome as I might have overlooked something...

Reprex:

Data:

df <- structure(list(Year = c(2015L, 2016L, 2017L, 2015L, 2016L, 2017L
), Item = c("Soybeans", "Soybeans", "Soybeans", "Pulses, Total", 
"Pulses, Total", "Pulses, Total"), Value = c(884688L, 829166L, 
960640L, 2219455L, 2354696L, 2683772L)), row.names = c(NA, -6L
), class = "data.frame")

What I've tried so far:

library(ggplot2)

ggplot(data = df, aes(x = Year, y = Value)) +
  stat_summary(
    fun = sum,
    geom = "col",
    position = position_dodge(width = 0.95),
    aes(fill = "Total")
  ) +
  geom_col(
    position = position_dodge(width = 0.95),
    aes(fill = Item)
  )

As you can see, the Total bar does not appear as a 3rd distinct bar. Is it possible to achieve this while keeping the two others and without pre-processing the data?

Expected output:

library(dplyr)
df %>% 
  group_by(Year) %>% 
  summarise(Value = sum(Value), Item = "Total") %>% 
  bind_rows(., df) %>% 
  ggplot(data = ., aes(x = Year, y = Value, fill = Item)) +
  geom_col(position = "dodge")

Note: geom_col doesn't give you totals of Soybeans / Pulses, Total because you have multiple obs of each group per Year. — Martin C. Arnold
– Martin C. Arnold, Commented Aug 4, 2021 at 11:34
Hm, I pretty sure that there is a solution, but it will be be much more complicated as your own tidyverse approach. — Roman
– Roman, Commented Aug 4, 2021 at 12:24
@MartinC.Arnold thanks for your comment, it was not intented, I think the dataset is right now (I forgot a filter when I made it from the true data...). — Paul
– Paul, Commented Aug 4, 2021 at 12:45

StupidWolf · Accepted Answer · 2021-08-05 07:08:36Z

4

You need to use position_nudge(x = ..) on the total column, and set the barwidth accordingly, for example:

library(ggplot2)

barwidth = 0.3
n = length(unique(df$Item))

ggplot(data = df, aes(x = Year, y = Value)) +
  stat_summary(
    fun = sum,
    geom = "col",
    position = position_nudge(x = -1.5*barwidth),
    aes(fill = "Total"),
    width = barwidth
  ) +
  geom_col(
    position = position_dodge(),
    aes(fill = Item),
    width= barwidth * n
  )

answered Aug 5, 2021 at 7:08

StupidWolf

47.1k17 gold badges50 silver badges81 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Using ggplot2 stat_summary with geom col to create distinct sum bar

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related