Příjmy a výdaje

# created in 5_budget-balance.R
obce_bilance <- read_parquet("data-processed/budgets_bilance.parquet")

source("shared.R")

## ℹ Codelist file already in 'data-input/sp/', not downloading. Set `redownload = TRUE` if needed.

## ℹ Processing codelist data

## ℹ Codelist file already in 'data-input/sp/', not downloading. Set `redownload = TRUE` if needed.

## ℹ Processing codelist data

obce_bilance

rnd_obec <- sample(ico_obce, size = 1)
rnd_obec

## [1] "00266493"

obce_bilance[obce_bilance$ico == rnd_obec,]

obce_bilance %>% 
  ggplot(aes(as.numeric(per_yr), bilance_rel, group = per_yr)) +
  geom_boxplot(alpha = .1) +
  facet_wrap(~ katobyv_nazev) +
  scale_y_continuous(limits = c(-1,1)) +
  ptrr::theme_ptrr("y", multiplot = T) +
  scale_x_continuous(breaks = seq(2010, 2019, 3))

## Warning: Removed 625 rows containing non-finite values (stat_boxplot).

write_parquet(obce_bilance, "data-processed/budgets_bilance.parquet")