Práca s databázou

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

Inštalácia a načítanie knižníc

library(eurostat)
library(dplyr)
library(ggplot2)
library(knitr)
library(kableExtra)
library(lubridate)

Načítanie databázy o nezamestnanosti

unemployment_data <- get_eurostat("une_rt_m")
names(unemployment_data)

Filter a premena typu premennej ‘time’

unemployment_data <- unemployment_data %>%
  filter(s_adj == "SA", sex == "T", age == "Y15-74") %>%
  mutate(
    time = as.character(time),
    Date = ymd(paste0(time, "-01"))
  ) %>%
  select(Date, geo, values)

colnames(unemployment_data) <- c("Date", "Country", "Unemployment_rate")

Prvé riadky tabuľky

head(unemployment_data) %>%
  kable(caption = "Údaje o nezamestnanosti (2013–2023)") %>%
  kable_styling(full_width = FALSE, bootstrap_options = c("striped","hover"))

Priemerná nezamestnanosť podľa krajiny

avg_unemployment <- unemployment_data %>%
  group_by(Country) %>%
  summarise(Average_rate = mean(Unemployment_rate, na.rm=TRUE)) %>%
  arrange(desc(Average_rate))

head(avg_unemployment,10) %>%
  kable(caption="Top 10 krajín s najvyššou priemernou nezamestnanosťou") %>%
  kable_styling(full_width = FALSE, bootstrap_options = c("striped","hover"))

Vývoj miery nezamestnanosti na Slovensku

slovakia_plot <- unemployment_data %>%
  filter(Country == "SK") %>%
  ggplot(aes(x=Date, y=Unemployment_rate)) +
  geom_line(color="blue", size=1) +
  theme_minimal() +
  labs(title="Vývoj miery nezamestnanosti na Slovensku (2013–2023)",
       x="Rok", y="Nezamestnanosť (%)")

print(slovakia_plot)