waterfall-chart

waterfall-chart.R

library(tidyverse)

data_waterfall_raw <- read_csv("waterfall.csv")

data_waterfall_clean <- data_waterfall_raw %>%
  mutate(order = row_number()) %>%
  mutate(event = str_wrap(event, 12)) %>%
  mutate(event = fct_reorder(event, order)) %>%
  mutate(
    end = cumsum(change),
    start = lag(end, default = 0),
  )

data_waterfall_clean <- data_waterfall_clean %>%
  mutate(fill_type = case_when(
    event == "Last year's\ncash" ~ "grey70",
    event == "End Cash" ~ "grey30",
    change <= 0 ~ "darkred",
    change >= 0 ~ "darkolivegreen3"
  ))


data_waterfall_clean %>%
  ggplot() +
  geom_hline(yintercept = 0) +
  geom_rect(aes(ymin = start,
                ymax = end,
                xmin = order - 0.45,
                xmax = order + 0.45,
                x = event,
                fill = fill_type
  )) +
  scale_fill_identity(name = "") +
  labs(x = "") +
  theme(legend.position = "top")

waterfall.csv