4.3. График водопада для простого отчета о финансовых результатах

#source: https://t.me/rstudioprogr

library(waterfalls)
library(ggplot2)
#COGS = Cost of goods sold 
#SG&A = Selling and Administrative expenses
data <- data.frame(group = c("Sales", "COGS", "S&A", "Interest", "Taxes"), 
                   values = c(1000, -500, -150, -50, -100))
#график водопада
waterfall(values = data$values, labels = data$group) + theme_minimal() + ylab("") + xlab("") 

#с добавлением итогов
waterfall(values = data$values, labels = data$group, calc_total = TRUE) + theme_minimal() + ylab("") + xlab("") 

#с добавлением цветов
waterfall(values = data$values, labels = data$group, calc_total = TRUE, fill_by_sign = FALSE, fill_colours = c("lightblue", rep("slateblue", 4))) + theme_minimal() + ylab("") + xlab("") 

#с удалением границ
waterfall(values = data$values, labels = data$group, calc_total = TRUE, fill_by_sign = FALSE, fill_colours = c("lightblue", rep("slateblue", 4)), rect_border = NA) + theme_minimal() + ylab("") + xlab("")