library(tsibbledata)
waterfall_plot(aus_retail,
"lubridate::year(Month)",
"Turnover",
"sub(' Territory', '\nTerritory', State)",
rotate_xlabel = TRUE)
waterfall_plot(aus_retail,
"lubridate::year(Month)",
"Turnover",
"sub(' Territory', '\nTerritory', State)",
rotate_xlabel = TRUE,
label_rescale = 0.5,
ingroup_label = TRUE,
bottom_label = FALSE,
n_x = 3,
size = 20,
y_min = 0)
Run the code above in your browser using DataLab