5.0. Balance Sheet

library(ggplot2)
library(dplyr)

## 
## Присоединяю пакет: 'dplyr'

## Следующие объекты скрыты от 'package:stats':
## 
##     filter, lag

## Следующие объекты скрыты от 'package:base':
## 
##     intersect, setdiff, setequal, union

library(tidyr)

BS_Assets <- data.frame(Assets = "Assets", Receivables = 0.3*1000000, 
                        Cash = 0.1*1000000, PPE = 0.2*1000000, Inventory = 0.1*1000000, 
                        Intangible = 0.3*1000000)
BS_Assets1 <- BS_Assets %>% pivot_longer(cols = Receivables:Intangible, names_to = "Indicators", values_to = "Values")

BS_Liabilities <- data.frame(Assets = "Liabilities & Equity", 
                             Current_Liabilities = 0.3*0.3*1000000, 
                             NonCurrent_Liabilities = 0.7*0.3*1000000)
BS_Liabilities1 <- BS_Liabilities %>% pivot_longer(cols = Current_Liabilities:NonCurrent_Liabilities, names_to = "Indicators", values_to = "Values")

BS_Equity <- data.frame(Assets = "Liabilities & Equity", Equity = 0.7*1000000)
BS_Equity1 <- BS_Equity %>% pivot_longer(cols = Equity, names_to = "Indicators", values_to = "Values")

BS <- rbind(BS_Assets1, BS_Liabilities1, BS_Equity1)

ggplot(data = BS, aes(x = Assets, y = Values, fill = Indicators)) + geom_col() + theme_classic() + ylab("") + xlab("") + 
  scale_fill_manual(labels = c("Receivables", "Cash", "PPE", "Inventory", "Intangible", "Current_Liabilities", "NonCurrent_Liabilities", "Equity"), 
                    values=c("#B0E0E6", "#E0FFFF", "#AFEEEE", "#5F9EA0", "#4682B4", "#1E90FF", "#7B68EE", "#191970"))