Česká rozpočtová data

Naposledy aktualizováno 17. prosince 2020 09:21 CET.

Kontakt: Petr Bouchal | twitter.com/petrbouchal | github.com/petrbouchal

Výběr daní

Časové řady

ggplot(all %>% 
         # filter(nazev == "DPH") %>%
         filter(!str_detect(nazev, "hazard|technick|LOTER")) %>%
         filter(TRUE), 
       aes(date_aligned, value/1e9, colour = rok, group = grp)) +
  geom_line(aes(group = rok)) +
  gghighlight::gghighlight(calculate_per_facet = T, 
                           rok == 2020, use_group_by = T, 
                           label_params = list(family = "rbtc", size = 2, label.size = 0)) +
  facet_wrap(~ nazev) + 
  # theme_schola("scatter", multiplot = T, plot.caption.position = "plot",
  #              family = "sans",title_family = "sans") + 
  theme_schola("scatter", multiplot = T, plot.caption.position = "plot") + 
  scale_color_viridis_c(labels = scales::label_number(accuracy = 1, big.mark = "")) +
  scale_x_date(labels = scales::label_date(format = "%m"), date_breaks = "months", 
               expand = expansion(c(0.05, 0))) +
  labs(x = "den v roce", title = "Výběr daní podle dat Finanční správy",
       subtitle = str_glue("Po měsících, mld. Kč. Rok 2020 zvýrazněn\nPoslední údaj z {latest}."),
       caption = "Zdroj: https://www.financnisprava.cz/cs/dane/kraje-a-obce/danove-prijmy-kraju-a-obci/prubeh-celostatniho-inkasa-sdilenych-dani-3735\n @petrbouchal | petrbouchal.github.io/czechtrack")

Meziroční srovnání

library(scales)
# https://gist.github.com/mikmart/bfbf62839fbdd162b4b88e6d43e0c858

c_trans <- function(a, b, breaks = b$breaks, format = b$format) {
  a <- scales::as.trans(a)
  b <- scales::as.trans(b)

  name <- paste(a$name, b$name, sep = "-")

  trans <- function(x) a$trans(b$trans(x))
  inv <- function(x) b$inverse(a$inverse(x))

  scales::trans_new(name, trans, inv, breaks, format = format)
}

rev_date <- c_trans("reverse", "date")

all_diffs %>% 
  ggplot(aes(date_aligned, narust)) +
  geom_hline(yintercept = 0) +
  geom_point(alpha = .6, colour = "red", size = 2) +
  coord_flip() +
  scale_x_continuous(trans = rev_date, labels = label_date("%b"), n.breaks = 12) +
  scale_y_continuous(limits = c(-1, 1), labels = label_percent(suffix = " %")) +
  gghighlight::gghighlight(rok == 2020, unhighlighted_params = list(alpha = .3)) +
  facet_wrap(~ nazev, nrow = 1) + theme_schola("scatter", multiplot = T) +
  labs(title = "Meziroční změna inkasa vybraných daní podle období",
       subtitle = str_glue("rok 2020 zvýrazněn; extrémní hodnoty vynechány.\nPoslední data z {latest}."),
       caption = "Zdroj: https://www.financnisprava.cz/cs/dane/kraje-a-obce/danove-prijmy-kraju-a-obci/prubeh-celostatniho-inkasa-sdilenych-dani-3735\n @petrbouchal | petrbouchal.github.io/czechtrack")

Data

Komplet

Data v CSV

all_pub

Meziroční změny v polovině a na konci měsíce

Data v CSV

all_diffs_pub

Příjmy a výdaje státního rozpočtu

V přípravě; data za 2020 zatím nejsou k dispozici.

Zdroje

Inkaso daní z Finanční správy

Aktualizuje se 2x měsíčně s poměrně malou latencí

https://www.financnisprava.cz/cs/dane/kraje-a-obce/danove-prijmy-kraju-a-obci/prubeh-celostatniho-inkasa-sdilenych-dani-3735

Státní pokladna

Datové exporty na https://monitor.statnipokladna.cz/datovy-katalog/transakcni-data

Kód pro export dat v R: balík statnipokladna, dokumentace na https://petrbouchal.github.io/statnipokladna/.

Nejnovější dostupné datové exporty Monitoru státní pokladny

library(jsonlite)
library(httr)
library(dplyr)
library(tidyr)


td <- GET("https://monitor.statnipokladna.cz/api/transakcni-data?aktivni=true",
          accept_json()) %>%
  content(as = "text") %>%
  fromJSON()

xx <- td %>%
  unnest(dataExtracts, .name_repair = "universal")

xx %>%
  group_by(titleCS) %>%
  filter(!deleted, year == max(year)) %>%
  filter(month == max(month)) %>%
  select(titleCS, year, month, filenamePeriod)