Práca s databázou

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

# 🧩 Automatická kontrola a inštalácia potrebných balíkov ----
baliky <- c("kableExtra", "tidyverse", "knitr")

for (pkg in baliky) {
  if (!require(pkg, character.only = TRUE)) {
    install.packages(pkg, dependencies = TRUE)
    library(pkg, character.only = TRUE)
  }
}

# načítanie balíkov
library(kableExtra)
library(knitr)
library(tidyverse)

Práca s údajmi

Tradičná práca s databázou

Majme údaje o zamestnancoch malej firmy – premenné: Meno, Oddelenie, Plat.

# Definovanie stĺpcov
Meno <- c("Peter", "Lucia", "Marek", "Zuzana")
Oddelenie <- c("Marketing", "IT", "Financie", "IT")
Plat <- c(1450, 2100, 1800, 2300)

Tieto premenné spojíme do jedného dátového rámca:

zamestnanci <- data.frame(Meno, Oddelenie, Plat)
print(zamestnanci)

Základné operácie s údajmi

zamestnanci$Plat                # prístup k jednému stĺpcu

[1] 1450 2100 1800 2300

mean(zamestnanci$Plat)          # priemerný plat

[1] 1912.5

zamestnanci[Oddelenie=="IT", ]  # záznamy z IT oddelenia

zamestnanci[1, ]                # prvý riadok tabuľky

zamestnanci[, 2:3]              # výber 2. a 3. stĺpca

summary(zamestnanci)            # základná štatistika

     Meno            Oddelenie              Plat     
 Length:4           Length:4           Min.   :1450  
 Class :character   Class :character   1st Qu.:1712  
 Mode  :character   Mode  :character   Median :1950  
                                       Mean   :1912  
                                       3rd Qu.:2150  
                                       Max.   :2300  

Rozširovanie údajov

Pridanie stĺpca

NaPolovicnyUvazok <- c(FALSE, TRUE, FALSE, FALSE)
zamestnanci <- cbind(zamestnanci, NaPolovicnyUvazok)
print(zamestnanci)

Pridanie nového riadku

novy.zaznam <- data.frame(
  Meno = "Juraj",
  Oddelenie = "Marketing",
  Plat = 1600,
  NaPolovicnyUvazok = TRUE)

zamestnanci <- rbind(zamestnanci, novy.zaznam)
print(zamestnanci)

Zobrazenie tabuľky pomocou kableExtra

kable(
  zamestnanci,
  caption = "Prehľad zamestnancov firmy",
  digits = 2,
  align = c("l", "l", "r", "c")
) %>%
  kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = FALSE,
    position = "center")

Prehľad zamestnancov firmy

Meno	Oddelenie	Plat	NaPolovicnyUvazok
Peter	Marketing	1450	FALSE
Lucia	IT	2100	TRUE
Marek	Financie	1800	FALSE
Zuzana	IT	2300	FALSE
Juraj	Marketing	1600	TRUE

Moderný prístup: Tidyverse

Balíček tidyverse združuje nástroje pre analýzu a vizualizáciu údajov. Najčastejšie používame časť dplyr, ktorá uľahčuje výber, úpravu a sumarizáciu dát.

Výber a zoradenie údajov

zamestnanci %>%
  filter(Plat > 1600) %>%
  arrange(desc(Plat)) %>%
  kable(caption = "Zamestnanci s platom nad 1600 €") %>%
  kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = FALSE,
    position = "center")

Zamestnanci s platom nad 1600 €

Meno	Oddelenie	Plat	NaPolovicnyUvazok
Zuzana	IT	2300	FALSE
Lucia	IT	2100	TRUE
Marek	Financie	1800	FALSE

Zoskupenie a sumarizácia

zamestnanci %>%
  group_by(Oddelenie) %>%
  summarise(
    PriemernyPlat = mean(Plat),
    Pocet = n()
  ) %>%
  kable(
    caption = "Priemerný plat podľa oddelenia",
    col.names = c("Oddelenie", "Priemerný plat", "Počet"),
    align = "c"
  ) %>%
  kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = FALSE,
    position = "center")

Priemerný plat podľa oddelenia

Oddelenie	Priemerný plat	Počet
Financie	1800	1
IT	2200	2
Marketing	1525	2

Vytváranie novej premennej

zamestnanci %>%
  mutate(
    KategóriaPlatu = case_when(
      Plat >= 2200 ~ "Vysoký",
      Plat >= 1700 ~ "Stredný",
      TRUE ~ "Nízky"
    ),
    Bonus = round(Plat * 0.1, 0)
  ) %>%
  kable(caption = "Kategorizácia platov a bonusov") %>%
  kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "responsive"),
    full_width = FALSE,
    position = "center")

Kategorizácia platov a bonusov

Meno	Oddelenie	Plat	NaPolovicnyUvazok	KategóriaPlatu	Bonus
Peter	Marketing	1450	FALSE	Nízky	145
Lucia	IT	2100	TRUE	Stredný	210
Marek	Financie	1800	FALSE	Stredný	180
Zuzana	IT	2300	FALSE	Vysoký	230
Juraj	Marketing	1600	TRUE	Nízky	160