knitr::opts_chunk$set(
  echo = TRUE,
  message = FALSE,
  warning = FALSE
)

Výber databázy: Eurostat – HICP (inflácia)

V tomto cvičení som si vybrala ekonomickú databázu Eurostat – Harmonised Index of Consumer Prices (HICP),
ktorá zobrazuje medziročnú mieru inflácie v jednotlivých krajinách Európskej únie.
Údaje sú časovo zoradené (mesačné) a ukazujú, ako sa menili ceny tovarov a služieb v čase.

Oficiálny zdroj:
Eurostat – HICP, code prc_hicp_manr

Načítanie knižníc

library(tidyverse)
library(ggplot2)
library(knitr)
library(kableExtra)

Simulácia dát (ukážková tabuľka)

Aby bolo možné pracovať aj bez priameho sťahovania, vytvorila som malý dataset,
ktorý reprezentuje vývoj inflácie (v %) vo vybraných krajinách EÚ.

inflacia <- data.frame(
  Rok = rep(2023, 15),
  Mesiac = rep(c("Január","Február","Marec","Apríl","Máj"), 3),
  Krajina = rep(c("Slovensko","Česko","Maďarsko"), each = 5),
  HICP = c(15.4,14.8,13.9,13.2,12.5,
           17.5,16.8,15.9,15.2,14.6,
           25.6,24.1,22.3,21.4,20.2)
)
head(inflacia)
##    Rok  Mesiac   Krajina HICP
## 1 2023  Január Slovensko 15.4
## 2 2023 Február Slovensko 14.8
## 3 2023   Marec Slovensko 13.9
## 4 2023   Apríl Slovensko 13.2
## 5 2023     Máj Slovensko 12.5
## 6 2023  Január     Česko 17.5

Základný popis údajov

summary(inflacia)
##       Rok          Mesiac            Krajina               HICP      
##  Min.   :2023   Length:15          Length:15          Min.   :12.50  
##  1st Qu.:2023   Class :character   Class :character   1st Qu.:14.70  
##  Median :2023   Mode  :character   Mode  :character   Median :15.90  
##  Mean   :2023                                         Mean   :17.56  
##  3rd Qu.:2023                                         3rd Qu.:20.80  
##  Max.   :2023                                         Max.   :25.60

Vizualizácia inflácie

Graf ukazuje vývoj inflácie v troch krajinách počas prvých mesiacov roka 2023.

ggplot(inflacia, aes(x = Mesiac, y = HICP, color = Krajina, group = Krajina)) +
  geom_line(size = 1.2) +
  geom_point(size = 2) +
  labs(
    title = "Medziročná miera inflácie (HICP, %)",
    x = "Mesiac",
    y = "Inflácia v %",
    color = "Krajina"
  ) +
  theme_minimal()

Základné štatistiky podľa krajín

Získame priemernú infláciu, minimum a maximum za každú krajinu.

inflacia %>%
  group_by(Krajina) %>%
  summarise(
    Priemer = mean(HICP),
    Minimum = min(HICP),
    Maximum = max(HICP)
  ) %>%
  kable(caption = "Základné štatistiky HICP podľa krajín") %>%
  kable_styling(full_width = FALSE, bootstrap_options = c("striped", "hover", "condensed"))
Základné štatistiky HICP podľa krajín
Krajina Priemer Minimum Maximum
Maďarsko 22.72 20.2 25.6
Slovensko 13.96 12.5 15.4
Česko 16.00 14.6 17.5

Záver

Vybrala som si databázu Eurostat – HICP (prc_hicp_manr),
ktorá sleduje vývoj inflácie v krajinách EÚ v čase.
V tomto cvičení som si precvičila vytváranie dátového rámca, výpočet základných štatistík a tvorbu grafu.
Údaje sú zoradené podľa mesiacov, čo umožňuje jednoduché sledovanie trendov inflácie.