ggplot waterfall chart

waterfall.R

require(tidyverse)

tibble(
  label = c("alt", "bridge1", "bridge2", "bridge3", "bridge4"),
  value = c(10, 5, -2, 3, 7)
) %>% 
  mutate(
    end = cumsum(value),
    start = dplyr::lag(end, default = 0),
    col = c("neg", "pos", "total")[c(3, (value[-1]>0)+1)],
    id = seq(1, n())
  ) %>% 
  bind_rows(summarise(., label = "neu", start = 0, end = last(end), id = n()+1L, col = "total")) %>% 
  ggplot(aes(label, fill = col)) + 
  geom_rect(aes(x = label, xmin = id -0.45, xmax = id + 0.45, ymin = end, ymax =start)) + xlab("")

This results in:

Thank you for this. Very elegant and simple.