Podíly zdrojů příjmů

Daň z nemovitosti

# budget <- read_parquet("data-processed/budgets_druhove_annual.parquet")
budget <- read_parquet("data-input/budgets_income_bare.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_income_endyear_polozka_cons <- budget %>%
  filter(ico %in% ico_obce & per_m == "12") %>%
  # filter to keep only income
  sp_add_codelist(polozka) %>%
  # konsolidovat na urovni ucetni jednotky
  filter(!kon_pol)

RUD

b_rud <- obce_income_endyear_polozka_cons %>%
  mutate(rud = polozka %in% polozky_rud) %>%
  group_by(ico, rud, period_vykaz, per_yr) %>%
  summarise_at(vars(starts_with("budget_")), sum, na.rm = T) %>%
  group_by(ico, period_vykaz, per_yr) %>%
  mutate(podil_rud = budget_spending/sum(budget_spending)) %>%
  filter(rud) %>%
  sp_add_codelist(orgs) %>%
  select(-kraj) %>%
  sp_add_codelist("nuts", dest_dir = "data-input") %>%
  left_join(katobyv) %>%
  mutate(katobyv_nazev = as.factor(katobyv_nazev) %>%
           fct_reorder(as.integer(katobyv_id)),
         rok = as.numeric(per_yr)) %>%
  filter(TRUE)

## ℹ Building URL for codelist 'nuts' - Klasifikace územních statistických jednotek NUTS

## ✓ Storing codelist in 'data-input/'

## ℹ Processing codelist data

## Joining, by = "katobyv_id"

b_rud_summary <- obce_income_endyear_polozka_cons %>%
  mutate(rud = polozka %in% polozky_rud) %>%
  group_by(rud, period_vykaz, per_yr) %>%
  summarise_at(vars(starts_with("budget_")), sum, na.rm = T) %>%
  group_by(period_vykaz, per_yr) %>%
  mutate(podil_rud = budget_spending/sum(budget_spending)) %>%
  filter(rud) %>%
  filter(TRUE)  
b_rud_summary

ABCDEFGHIJ0123456789

rud <lgl>	period_vykaz <date>	per_yr <chr>	budget_adopted <dbl>	budget_amended <dbl>	budget_spending <dbl>	podil_rud <dbl>
TRUE	2010-12-31	2010	114176774510	116237548470	117014689010	0.4125754
TRUE	2011-12-31	2011	117769914048	117230156915	115586533152	0.4303181
TRUE	2012-12-31	2012	116079869227	116791142975	116420549446	0.4829300
TRUE	2013-12-31	2013	119645396546	124712736859	130448692005	0.5092157
TRUE	2014-12-31	2014	124716205749	130753027313	138245903435	0.5065582
TRUE	2015-12-31	2015	132203576072	135372003568	142482049750	0.5098683
TRUE	2016-12-31	2016	138336016012	144137503170	156903555607	0.5624773
TRUE	2017-12-31	2017	150849032396	158993535975	171059917755	0.5813555
TRUE	2018-12-31	2018	175735895077	182466859538	191558092646	0.5789692
TRUE	2019-12-31	2019	192711660711	198369318993	209266568456	0.5805489

b_rud %>%
  filter(podil_rud > 0 & per_yr == 2019) %>%
  ggplot(aes(per_yr, podil_rud)) +
  geom_boxplot(alpha = .1) +
  # facet_wrap(~ katobyv_nazev) + 
  theme_ptrr("both", multiplot = T) +
  scale_y_percent_cz(limits = c(0, 1)) +
  scale_x_discrete(breaks = c(2010, 2013, 2016, 2019))

Daň z nemovitosti

b_dzn <- obce_income_endyear_polozka_cons %>%
  mutate(rud = polozka %in% polozky_dzn) %>%
  group_by(ico, rud, period_vykaz, per_yr) %>%
  summarise_at(vars(starts_with("budget_")), sum, na.rm = T) %>%
  group_by(ico, period_vykaz, per_yr) %>%
  mutate(podil_rud = budget_spending/sum(budget_spending)) %>%
  filter(rud) %>%
  sp_add_codelist(orgs) %>%
  select(-kraj) %>%
  sp_add_codelist("nuts", dest_dir = "data-input") %>%
  left_join(katobyv) %>%
  mutate(katobyv_nazev = as.factor(katobyv_nazev) %>%
           fct_reorder(as.integer(katobyv_id)),
         rok = as.numeric(per_yr)) %>%
  filter(TRUE)

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

## ℹ Processing codelist data

## Joining, by = "katobyv_id"

b_dzn %>%
  filter(podil_rud > 0) %>%
  ggplot(aes(per_yr, podil_rud)) +
  geom_boxplot(alpha = .1) +
  facet_wrap(~ katobyv_nazev) + 
  theme_ptrr("both", multiplot = T) +
  scale_y_percent_cz(limits = c(0, 1)) +
  scale_x_discrete(breaks = c(2010, 2013, 2016, 2019))

Podíly zdrojů příjmů

Petr Bouchal

4/10/2020

RUD

Daň z nemovitosti