Finančná gramotnosť
data<- read.csv("BP_data.csv",check.names=FALSE)Rozhodla som sa použiť moju databázu z bakalárkej práce - dotazník na finančnú gramotnosť. Touto cestou by som Vám chcela postupne bližšie predstaviť moju bakalársku prácu na tému: Vplyv finančnej gramotnosti na osobné financie mladých ľudí na Slovensku. Snažila som sa pracovať sama, avšak keď som niečo nevedela, nechala som si poradiť od ChatGPT.
Vplyv finančnej gramotnosti na osobné financie mladých ľudí na Slovensku.
Bakalárska práca
Hlavným cieľom tejto bakalárskej práce je analyzovať, do akej miery ovplyvňuje úroveň finančnej gramotnosti finančné rozhodnutia mladých ľudí na Slovensku. Práca sa zameriava na preskúmanie finančných znalostí, správania a postojov študentov Fakulty managementu Univerzity Komenského v Bratislave (FMUK) a analyzuje celkový vplyv finančnej gramotnosti na ich osobné financie.
#stiahnutie knižníc
library(readr)
library(dplyr)##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union#kontrola štruktúry
glimpse(data)## Rows: 392
## Columns: 33
## $ `Časová pečiatka` <chr> …
## $ `Aké je Vaše pohlavie?` <chr> …
## $ `Aký je Váš vek?` <int> …
## $ `Aká je Vaša národnosť?` <chr> …
## $ `Aké je Vaše najvyššie dosiahnuté vzdelanie?` <chr> …
## $ `Aký typ strednej školy ste absolvovali?` <chr> …
## $ `Aká je Vaša forma štúdia ?` <chr> …
## $ `V ktorom ročníku vysokoškolského štúdia sa aktuálne nachádzate?` <chr> …
## $ `Aký je Váš hlavný zdroj príjmu?` <chr> …
## $ `Aký je Váš mesačný príjem?` <chr> …
## $ `Aký je Váš aktuálny spôsob bývania?` <chr> …
## $ `Ako často si tvoríte rozpočet?` <chr> …
## $ `Kto vytvára Váš rozpočet?` <chr> …
## $ `Ako si budujete finančnú rezervu pre nepredvídané situácie?` <chr> …
## $ `Ako dlho by ste dokázali pokrývať svoje výdavky z Vašej finančnej rezervy?` <chr> …
## $ `Akým spôsobom zabezpečujete svoju dôchodkovú budúcnosť?` <chr> …
## $ `Ktoré z inovačných technológií využívate alebo plánujete užívať v najbližších 12 mesiacoch?` <chr> …
## $ `Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Mám dôkladný prehľad o svojich mesačných príjmoch a výdavkoch.]` <chr> …
## $ `Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Svoje účty platím vždy načas.]` <chr> …
## $ `Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Pred kúpou si dôkladne premyslím, či si danú vec môžem dovoliť.]` <chr> …
## $ `Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Stanovujem si dlhodobé finančné ciele a pracujem na ich dosiahnutí.]` <chr> …
## $ `Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Peniaze radšej míňam teraz, než ich dlhodobo odkladať.]` <chr> …
## $ `Ako by ste ohodnotili svoje znalosti v oblasti finančnej gramotnosti? Na škále od 1 do 10 vyberte číslo, ktoré najlepšie vystihuje Vašu úroveň.` <int> …
## $ `Ktoré z nasledujúcich tvrdení o SEPA platbách je pravdivé?` <chr> …
## $ `Predpokladajme, že máte 1000€ na sporiacom účte s úrokom 5% ročne. Koľko budete mať po piatich rokoch?` <chr> …
## $ `Predstavte si, že úroková sadzba na Vašom sporiacom účte je 5 % ročne, ale inflácia dosahuje 8 % ročne. Ako sa zmení kúpna sila Vašich úspor po jednom roku?` <chr> …
## $ `Predstavte si, že si vezmete úver vo výške 200 000€, ktorý musíte splatiť po jednom roku, pričom celková suma úveru vrátane úrokov je 214 000 €. Aká je úroková sadzba tohto úveru?` <chr> …
## $ `Ktorý úver je najvýhodnejší?\nÚver A: Suma 10 000 €, úroková sadzba 5,5 % ročne, RPMN 6,5 %, splatnosť 3 roky.\nÚver B: Suma 10 000 €, úroková sadzba 4,8 % ročne, RPMN 6,2 %, splatnosť 4 rokov.\nÚver C: Suma 10 000 €, úroková sadzba 5,8 % ročne, RPMN 6,2 %, ` <chr> …
## $ `Úver na 15 rokov zvyčajne vyžaduje vyššie mesačné splátky ako úver na 30 rokov, ale celková suma zaplatených úrokov na konci úveru bude nižšia. Toto tvrdenie je:` <chr> …
## $ `Keď zohľadníme dlhé časové obdobie (napr. 20 rokov), ktorý z nasledujúcich aktív zvyčajne prináša najvyššiu mieru výnosu?` <chr> …
## $ `Ktorá z týchto investičných možností je najrizikovejšia?` <chr> …
## $ `Keď investor rozdeľuje svoje investície medzi rôzne aktíva. Riziko straty peňazí potom:` <chr> …
## $ `Predstavte si, že firma vydáva akcie za cenu 50 € za kus. Po roku sa cena akcií zvýši na 58€. Aké je percentuálne zhodnotenie investície za rok?` <chr> …#zakladna statistika
summary(data) ## Časová pečiatka Aké je Vaše pohlavie? Aký je Váš vek?
## Length:392 Length:392 Min. :17.00
## Class :character Class :character 1st Qu.:19.00
## Mode :character Mode :character Median :21.00
## Mean :23.22
## 3rd Qu.:24.00
## Max. :52.00
## Aká je Vaša národnosť? Aké je Vaše najvyššie dosiahnuté vzdelanie?
## Length:392 Length:392
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## Aký typ strednej školy ste absolvovali? Aká je Vaša forma štúdia ?
## Length:392 Length:392
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## V ktorom ročníku vysokoškolského štúdia sa aktuálne nachádzate?
## Length:392
## Class :character
## Mode :character
##
##
##
## Aký je Váš hlavný zdroj príjmu? Aký je Váš mesačný príjem?
## Length:392 Length:392
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## Aký je Váš aktuálny spôsob bývania? Ako často si tvoríte rozpočet?
## Length:392 Length:392
## Class :character Class :character
## Mode :character Mode :character
##
##
##
## Kto vytvára Váš rozpočet?
## Length:392
## Class :character
## Mode :character
##
##
##
## Ako si budujete finančnú rezervu pre nepredvídané situácie?
## Length:392
## Class :character
## Mode :character
##
##
##
## Ako dlho by ste dokázali pokrývať svoje výdavky z Vašej finančnej rezervy?
## Length:392
## Class :character
## Mode :character
##
##
##
## Akým spôsobom zabezpečujete svoju dôchodkovú budúcnosť?
## Length:392
## Class :character
## Mode :character
##
##
##
## Ktoré z inovačných technológií využívate alebo plánujete užívať v najbližších 12 mesiacoch?
## Length:392
## Class :character
## Mode :character
##
##
##
## Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Mám dôkladný prehľad o svojich mesačných príjmoch a výdavkoch.]
## Length:392
## Class :character
## Mode :character
##
##
##
## Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Svoje účty platím vždy načas.]
## Length:392
## Class :character
## Mode :character
##
##
##
## Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Pred kúpou si dôkladne premyslím, či si danú vec môžem dovoliť.]
## Length:392
## Class :character
## Mode :character
##
##
##
## Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Stanovujem si dlhodobé finančné ciele a pracujem na ich dosiahnutí.]
## Length:392
## Class :character
## Mode :character
##
##
##
## Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Peniaze radšej míňam teraz, než ich dlhodobo odkladať.]
## Length:392
## Class :character
## Mode :character
##
##
##
## Ako by ste ohodnotili svoje znalosti v oblasti finančnej gramotnosti? Na škále od 1 do 10 vyberte číslo, ktoré najlepšie vystihuje Vašu úroveň.
## Min. : 1.000
## 1st Qu.: 6.000
## Median : 7.000
## Mean : 6.885
## 3rd Qu.: 8.000
## Max. :10.000
## Ktoré z nasledujúcich tvrdení o SEPA platbách je pravdivé?
## Length:392
## Class :character
## Mode :character
##
##
##
## Predpokladajme, že máte 1000€ na sporiacom účte s úrokom 5% ročne. Koľko budete mať po piatich rokoch?
## Length:392
## Class :character
## Mode :character
##
##
##
## Predstavte si, že úroková sadzba na Vašom sporiacom účte je 5 % ročne, ale inflácia dosahuje 8 % ročne. Ako sa zmení kúpna sila Vašich úspor po jednom roku?
## Length:392
## Class :character
## Mode :character
##
##
##
## Predstavte si, že si vezmete úver vo výške 200 000€, ktorý musíte splatiť po jednom roku, pričom celková suma úveru vrátane úrokov je 214 000 €. Aká je úroková sadzba tohto úveru?
## Length:392
## Class :character
## Mode :character
##
##
##
## Ktorý úver je najvýhodnejší?\nÚver A: Suma 10 000 €, úroková sadzba 5,5 % ročne, RPMN 6,5 %, splatnosť 3 roky.\nÚver B: Suma 10 000 €, úroková sadzba 4,8 % ročne, RPMN 6,2 %, splatnosť 4 rokov.\nÚver C: Suma 10 000 €, úroková sadzba 5,8 % ročne, RPMN 6,2 %,
## Length:392
## Class :character
## Mode :character
##
##
##
## Úver na 15 rokov zvyčajne vyžaduje vyššie mesačné splátky ako úver na 30 rokov, ale celková suma zaplatených úrokov na konci úveru bude nižšia. Toto tvrdenie je:
## Length:392
## Class :character
## Mode :character
##
##
##
## Keď zohľadníme dlhé časové obdobie (napr. 20 rokov), ktorý z nasledujúcich aktív zvyčajne prináša najvyššiu mieru výnosu?
## Length:392
## Class :character
## Mode :character
##
##
##
## Ktorá z týchto investičných možností je najrizikovejšia?
## Length:392
## Class :character
## Mode :character
##
##
##
## Keď investor rozdeľuje svoje investície medzi rôzne aktíva. Riziko straty peňazí potom:
## Length:392
## Class :character
## Mode :character
##
##
##
## Predstavte si, že firma vydáva akcie za cenu 50 € za kus. Po roku sa cena akcií zvýši na 58€. Aké je percentuálne zhodnotenie investície za rok?
## Length:392
## Class :character
## Mode :character
##
##
## #nazvy
names(data)## [1] "Časová pečiatka"
## [2] "Aké je Vaše pohlavie?"
## [3] "Aký je Váš vek?"
## [4] "Aká je Vaša národnosť?"
## [5] "Aké je Vaše najvyššie dosiahnuté vzdelanie?"
## [6] "Aký typ strednej školy ste absolvovali?"
## [7] "Aká je Vaša forma štúdia ?"
## [8] "V ktorom ročníku vysokoškolského štúdia sa aktuálne nachádzate?"
## [9] "Aký je Váš hlavný zdroj príjmu?"
## [10] "Aký je Váš mesačný príjem?"
## [11] "Aký je Váš aktuálny spôsob bývania?"
## [12] "Ako často si tvoríte rozpočet?"
## [13] "Kto vytvára Váš rozpočet?"
## [14] "Ako si budujete finančnú rezervu pre nepredvídané situácie?"
## [15] "Ako dlho by ste dokázali pokrývať svoje výdavky z Vašej finančnej rezervy?"
## [16] "Akým spôsobom zabezpečujete svoju dôchodkovú budúcnosť?"
## [17] "Ktoré z inovačných technológií využívate alebo plánujete užívať v najbližších 12 mesiacoch?"
## [18] "Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Mám dôkladný prehľad o svojich mesačných príjmoch a výdavkoch.]"
## [19] "Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Svoje účty platím vždy načas.]"
## [20] "Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Pred kúpou si dôkladne premyslím, či si danú vec môžem dovoliť.]"
## [21] "Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Stanovujem si dlhodobé finančné ciele a pracujem na ich dosiahnutí.]"
## [22] "Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Peniaze radšej míňam teraz, než ich dlhodobo odkladať.]"
## [23] "Ako by ste ohodnotili svoje znalosti v oblasti finančnej gramotnosti? Na škále od 1 do 10 vyberte číslo, ktoré najlepšie vystihuje Vašu úroveň."
## [24] "Ktoré z nasledujúcich tvrdení o SEPA platbách je pravdivé?"
## [25] "Predpokladajme, že máte 1000€ na sporiacom účte s úrokom 5% ročne. Koľko budete mať po piatich rokoch?"
## [26] "Predstavte si, že úroková sadzba na Vašom sporiacom účte je 5 % ročne, ale inflácia dosahuje 8 % ročne. Ako sa zmení kúpna sila Vašich úspor po jednom roku?"
## [27] "Predstavte si, že si vezmete úver vo výške 200 000€, ktorý musíte splatiť po jednom roku, pričom celková suma úveru vrátane úrokov je 214 000 €. Aká je úroková sadzba tohto úveru?"
## [28] "Ktorý úver je najvýhodnejší?\nÚver A: Suma 10 000 €, úroková sadzba 5,5 % ročne, RPMN 6,5 %, splatnosť 3 roky.\nÚver B: Suma 10 000 €, úroková sadzba 4,8 % ročne, RPMN 6,2 %, splatnosť 4 rokov.\nÚver C: Suma 10 000 €, úroková sadzba 5,8 % ročne, RPMN 6,2 %, "
## [29] "Úver na 15 rokov zvyčajne vyžaduje vyššie mesačné splátky ako úver na 30 rokov, ale celková suma zaplatených úrokov na konci úveru bude nižšia. Toto tvrdenie je:"
## [30] "Keď zohľadníme dlhé časové obdobie (napr. 20 rokov), ktorý z nasledujúcich aktív zvyčajne prináša najvyššiu mieru výnosu?"
## [31] "Ktorá z týchto investičných možností je najrizikovejšia?"
## [32] "Keď investor rozdeľuje svoje investície medzi rôzne aktíva. Riziko straty peňazí potom:"
## [33] "Predstavte si, že firma vydáva akcie za cenu 50 € za kus. Po roku sa cena akcií zvýši na 58€. Aké je percentuálne zhodnotenie investície za rok?"#pomenovanie premenných
data <- data %>%
rename(
Casova_peciatka = "Časová pečiatka",
Pohlavie = "Aké je Vaše pohlavie?",
Vek = "Aký je Váš vek?",
Narodnost = "Aká je Vaša národnosť?",
Vzdelanie = "Aké je Vaše najvyššie dosiahnuté vzdelanie?",
Typ_strednej = "Aký typ strednej školy ste absolvovali?",
Forma_studia = "Aká je Vaša forma štúdia ?",
Rocnik = "V ktorom ročníku vysokoškolského štúdia sa aktuálne nachádzate?",
Zdroj_prijmu = "Aký je Váš hlavný zdroj príjmu?",
Mesacny_prijem = "Aký je Váš mesačný príjem?",
Byvanie = "Aký je Váš aktuálny spôsob bývania?",
Rozpocet_casto = "Ako často si tvoríte rozpočet?",
Rozpocet_tvorca = "Kto vytvára Váš rozpočet?",
Financna_rezerva = "Ako si budujete finančnú rezervu pre nepredvídané situácie?",
Rezerva_dlzka = "Ako dlho by ste dokázali pokrývať svoje výdavky z Vašej finančnej rezervy?",
Dochodok = "Akým spôsobom zabezpečujete svoju dôchodkovú budúcnosť?",
Technologie = "Ktoré z inovačných technológií využívate alebo plánujete užívať v najbližších 12 mesiacoch?",
PrijmyVydavky = "Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Mám dôkladný prehľad o svojich mesačných príjmoch a výdavkoch.]",
UctyPlatby = "Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Svoje účty platím vždy načas.]",
Kupa = "Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Pred kúpou si dôkladne premyslím, či si danú vec môžem dovoliť.]",
Ciele = "Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Stanovujem si dlhodobé finančné ciele a pracujem na ich dosiahnutí.]",
Minanie = "Pre každé tvrdenie vyberte políčko v stĺpci, ktoré najlepšie vystihuje Váš názor. [Peniaze radšej míňam teraz, než ich dlhodobo odkladať.]",
FG_znalost = "Ako by ste ohodnotili svoje znalosti v oblasti finančnej gramotnosti? Na škále od 1 do 10 vyberte číslo, ktoré najlepšie vystihuje Vašu úroveň.",
SEPA = "Ktoré z nasledujúcich tvrdení o SEPA platbách je pravdivé?",
Urok_sporenie = "Predpokladajme, že máte 1000€ na sporiacom účte s úrokom 5% ročne. Koľko budete mať po piatich rokoch?",
Inflacia = "Predstavte si, že úroková sadzba na Vašom sporiacom účte je 5 % ročne, ale inflácia dosahuje 8 % ročne. Ako sa zmení kúpna sila Vašich úspor po jednom roku?",
Uver_sadzba = "Predstavte si, že si vezmete úver vo výške 200 000€, ktorý musíte splatiť po jednom roku, pričom celková suma úveru vrátane úrokov je 214 000 €. Aká je úroková sadzba tohto úveru?",
Uver_vyhodny = "Ktorý úver je najvýhodnejší?\nÚver A: Suma 10 000 €, úroková sadzba 5,5 % ročne, RPMN 6,5 %, splatnosť 3 roky.\nÚver B: Suma 10 000 €, úroková sadzba 4,8 % ročne, RPMN 6,2 %, splatnosť 4 rokov.\nÚver C: Suma 10 000 €, úroková sadzba 5,8 % ročne, RPMN 6,2 %, ",
Uver_rok = "Úver na 15 rokov zvyčajne vyžaduje vyššie mesačné splátky ako úver na 30 rokov, ale celková suma zaplatených úrokov na konci úveru bude nižšia. Toto tvrdenie je:",
Vynos = "Keď zohľadníme dlhé časové obdobie (napr. 20 rokov), ktorý z nasledujúcich aktív zvyčajne prináša najvyššiu mieru výnosu?",
Riziko = "Ktorá z týchto investičných možností je najrizikovejšia?",
Diverzifikacia = "Keď investor rozdeľuje svoje investície medzi rôzne aktíva. Riziko straty peňazí potom:",
Akcie = "Predstavte si, že firma vydáva akcie za cenu 50 € za kus. Po roku sa cena akcií zvýši na 58€. Aké je percentuálne zhodnotenie investície za rok?"
)Objekt skúmania
Objektom skúmania tejto práce sú študenti FMUK, ktorí sa zúčastnili prieskumu. Fakulta managementu je jednou z fakúlt Univerzity Komenského v Bratislave a poskytuje vzdelávanie v oblasti ekonómie, manažmentu a podnikania. Vzorka respondentov zahŕňa študentov všetkých ročníkov bakalárskeho a magisterského štúdia, pričom zahŕňa študentov dennej aj externej formy štúdia.
Všetky dáta boli zozbierané v rámci primárneho výskumu, ktorý prebiehal prostredníctvom anonymného elektronického dotazníka. Dotazník, vytvorený cez platformu Google Forms, bol distribuovaný študentom bakalárskeho a magisterského stupňa FMUK pomocou hromadného e-mailu. Zber dát prebiehal v období od 10. marca 2025 do 26. marca 2025.
Dotazník pozostával z 32 otázok, ktoré boli rozdelené do štyroch tematických sekcií. Prvá sekcia sa zameriavala na zber demografických údajov o respondentoch, ako sú vek, pohlavie,stupeň vzdelania, aktuálny ročník alebo forma štúdia. Nasledujúce tri sekcie sa venovali rôznym oblastiam finančnej gramotnosti – konkrétne finančnému správaniu, finančným postojom a finančným znalostiam. Odpovede v týchto častiach umožnili hodnotiť jednotlivé aspekty finančnej gramotnosti a vypočítať celkovú úroveň finančnej gramotnosti každého respondenta.
Celkový počet oslovených študentov predstavoval 2 129 osôb. Dotazník vyplnilo 392 respondentov, čo zodpovedá celkovej návratnosti 18,4 %. Podrobnejší prehľad o počtoch oslovených a zúčastnených študentov, ako aj o percentuálnych podieloch návratnosti v jednotlivých skupinách, uvádza Tabuľka 1. Z nej vyplýva, že najvyššia návratnosť bola zaznamenaná u študentov dennej formy bakalárskeho štúdia, a to 26,8 %, zatiaľ čo najnižšia u študentov denného magisterského štúdia, kde dosiahla 6,4 %. Výsledky tiež poukazujú na vyššiu mieru participácie študentov bakalárskeho stupňa, ktorá tvorila 23,7 %, v porovnaní s magisterským stupňom, kde participácia predstavovala iba 7,7 %.
tab_navratnost <- data.frame(
Stupen_forma = c("Bakalársky stupeň", "Denná", "Externá",
"Magisterský stupeň", "Denná", "Externá", "Spolu"),
Pocet_studentov = c(1425, 977, 448, 704, 424, 280, 2129),
Pocet_dotaznikov = c(338, 262, 76, 54, 27, 27, 392),
Navratnost = c("23.7%", "26.8%", "17.0%", "7.7%", "6.4%", "9.6%", "18.4%")
)gt_navratnost <- tab_navratnost |>
gt::gt() |>
gt::cols_label(
Stupen_forma = "Stupeň a forma štúdia",
Pocet_studentov = "Počet študentov FMUK",
Pocet_dotaznikov = "Počet vyplnených dotazníkov",
Navratnost = "Návratnosť"
) |>
gt::tab_header(title = gt::md("**Tabuľka 1: Percentuálna návratnosť dotazníka**")) |>
gt::tab_options(
table.font.size = gt::px(12),
table.border.top.width = gt::px(2),
table.border.bottom.width = gt::px(2),
heading.align = "center",
column_labels.font.weight = "bold",
data_row.padding = gt::px(3),
row.striping.include_table_body = TRUE,
table.background.color = "white"
) |>
gt::opt_row_striping() |>
gt::tab_style(
style = list(gt::cell_text(weight = "bold", style = "italic")),
locations = gt::cells_body(
rows = Stupen_forma %in% c("Bakalársky stupeň", "Magisterský stupeň", "Spolu")
)
) |>
gt::tab_style(
style = gt::cell_fill(color = "#F2F2F2"),
locations = gt::cells_body(
rows = Stupen_forma %in% c("Magisterský stupeň", "Spolu")
)
) |>
gt::tab_source_note(
source_note = gt::md("**Zdroj:** Vlastné spracovanie podľa interných údajov FMUK")
) |>
gt::tab_style(
style = gt::cell_text(align = "center"),
locations = list(
gt::cells_body(columns = gt::everything()),
gt::cells_column_labels(columns = gt::everything())
)
)
gt_navratnost| Tabuľka 1: Percentuálna návratnosť dotazníka | |||
| Stupeň a forma štúdia | Počet študentov FMUK | Počet vyplnených dotazníkov | Návratnosť |
|---|---|---|---|
| Bakalársky stupeň | 1425 | 338 | 23.7% |
| Denná | 977 | 262 | 26.8% |
| Externá | 448 | 76 | 17.0% |
| Magisterský stupeň | 704 | 54 | 7.7% |
| Denná | 424 | 27 | 6.4% |
| Externá | 280 | 27 | 9.6% |
| Spolu | 2129 | 392 | 18.4% |
| Zdroj: Vlastné spracovanie podľa interných údajov FMUK | |||
Charakteristika štatistickej vzorky
Štatistickú vzorku tvorí 392 respondentov, z toho 257 žien, čo predstavuje 65,6 % a 135 mužov, čo zodpovedá 34,4 % z konečnej vzorky.
Čo sa týka národnostného zloženia, 291 respondentov sa prihlásilo k slovenskej národnosti, čo celkovo tvorí 74,2 %. Medzi menšinovými skupinami bolo 68 respondentov ukrajinskej národnosti, čo zodpovedá 17,3 %, a 20 respondentov maďarskej národnosti, tvoriacich 5,1 %. Ostatné národnosti tvorilo 13 respondentov, čo predstavuje 3,3 % vzorky.
Najvyššie dosiahnuté vzdelanie uviedla väčšina respondentov ako stredoškolskés maturitou, konkrétne 332 respondentov, čo zodpovedá 84,7 %.
Ukončený bakalársky stupeň malo 51 respondentov, teda 13 %, a magisterské vzdelanie uviedlo 9 respondentov, čo predstavuje 2,3 %.
Podľa typu absolvovanej strednej školy navštevovalo 262 respondentov gymnázium, čo predstavuje 66,8 %. Obchodnú akadémiu absolvovalo 81 respondentov, teda 20,7 %, technicky zameranú strednú školu 17 respondentov, čo je 4,3 %, a inú odbornú školu 32 respondentov, čo predstavuje 8,2 %. To naznačuje, že Fakulta managementu je populárna predovšetkým medzi absolventmi gymnázií, ktorí si volia ekonomické a manažérske odbory.
V rámci formy štúdia bolo 289 respondentov zapísaných na denné štúdium, čo zodpovedá 73,7 %, zatiaľ čo 103 respondentov študovalo externe, čo predstavuje 26,3 %.
Kvantitatívne rozdelenie respondentov podľa vybraných charakteristík je uvedené v Tabuľke 2.
pick_col <- function(df, choices) intersect(choices, names(df))[1]
pohl_col <- pick_col(data, c("Pohlavie", "Aké je Vaše pohlavie?"))
narod_col <- pick_col(data, c("Narodnost", "Aká je Vaša národnosť?"))pick_col <- function(df, choices) intersect(choices, names(df))[1]pohl_col <- pick_col(data, c("Pohlavie", "Aké je Vaše pohlavie?"))
narod_col <- pick_col(data, c("Narodnost", "Aká je Vaša národnosť?"))
vzdel_col <- pick_col(data, c("Vzdelanie", "Aké je Vaše najvyššie dosiahnuté vzdelanie?"))
typ_col <- pick_col(data, c("Typ_strednej", "Aký typ strednej školy ste absolvovali?"))
forma_col <- pick_col(data, c("Forma_studia", "Aká je Vaša forma štúdia ?"))
rocnik_col <- pick_col(data, c("Rocnik", "V ktorom ročníku vysokoškolského štúdia sa aktuálne nachádzate?"))
zdroj_col <- pick_col(data, c("Zdroj_prijmu", "Aký je Váš hlavný zdroj príjmu?"))
prijem_col <- pick_col(data, c("Mesacny_prijem", "Aký je Váš mesačný príjem?"))
byvanie_col<- pick_col(data, c("Byvanie", "Aký je Váš aktuálny spôsob bývania?"))set_levels_if <- function(x, lvls) {
lvls_use <- intersect(lvls, unique(x))
if (length(lvls_use) > 0) factor(x, levels = lvls_use) else x
}freq_section <- function(df, var, sekcia_label, levels = NULL) {
d <- df |> filter(!is.na(.data[[var]]), .data[[var]] != "")
if (!is.null(levels)) d[[var]] <- set_levels_if(d[[var]], levels)
d |>
count(!!rlang::sym(var), name = "Pocet") |>
mutate(Podiel = round(100 * Pocet / sum(Pocet), 1)) |>
transmute(
Sekcia = sekcia_label,
Kategoria = as.character(.data[[var]]),
Pocet,
Podiel
)
}ord_pohlavie <- c("Muž","Žena","Iné")
ord_vzdelanie <- c("Stredoškolské s maturitou","Vysokoškolské – bakalársky stupeň",
"Vysokoškolské – magisterský stupeň","Doktorandské")
ord_typ <- c("Gymnázium","Obchodná akadémia","Technická","Iná odborná")
ord_forma <- c("Denná","Externá","Kombinovaná")
ord_rocnik <- c("1.","2.","3.","4.","5.","6.")
ord_prijem <- c("Do 300 €","301–600 €","601–900 €","901–1200 €","1201–1500 €","1501 € a viac")
ord_byvanie <- c("S rodičmi","Internát","Privát","Vlastné bývanie","Iné")tab_char <- bind_rows(
freq_section(data, pohl_col, "Pohlavie", ord_pohlavie),
freq_section(data, narod_col, "Národnosť"),
freq_section(data, vzdel_col, "Najvyššie dosiahnuté vzdelanie", ord_vzdelanie),
freq_section(data, typ_col, "Typ strednej školy", ord_typ),
freq_section(data, forma_col, "Forma štúdia", ord_forma),
freq_section(data, rocnik_col, "Ročník vysokoškolského štúdia", ord_rocnik),
freq_section(data, zdroj_col, "Hlavný zdroj príjmu"),
freq_section(data, prijem_col, "Mesačný príjem", ord_prijem),
freq_section(data, byvanie_col,"Spôsob bývania", ord_byvanie)
)ord_pohlavie <- c("Muž","Žena","Iné")
ord_vzdelanie <- c("Stredoškolské s maturitou","Vysokoškolské – bakalársky stupeň",
"Vysokoškolské – magisterský stupeň","Doktorandské")
ord_typ <- c("Gymnázium","Obchodná akadémia","Technická","Iná odborná")
ord_forma <- c("Denná","Externá","Kombinovaná")
ord_rocnik <- c("1.","2.","3.","4.","5.","6.")
ord_prijem <- c("Do 300 €","301–600 €","601–900 €","901–1200 €","1201–1500 €","1501 € a viac")
ord_byvanie <- c("S rodičmi","Internát","Privát","Vlastné bývanie","Iné")
tab_char <- dplyr::bind_rows(
freq_section(data, pohl_col, "Pohlavie", ord_pohlavie),
freq_section(data, narod_col, "Národnosť"),
freq_section(data, vzdel_col, "Najvyššie dosiahnuté vzdelanie", ord_vzdelanie),
freq_section(data, typ_col, "Typ strednej školy", ord_typ),
freq_section(data, forma_col, "Forma štúdia", ord_forma),
freq_section(data, rocnik_col, "Ročník vysokoškolského štúdia", ord_rocnik),
freq_section(data, zdroj_col, "Hlavný zdroj príjmu"),
freq_section(data, prijem_col, "Mesačný príjem", ord_prijem),
freq_section(data, byvanie_col,"Spôsob bývania", ord_byvanie)
)
tab_char_gt <- tab_char |>
gt::gt(groupname_col = "Sekcia", rowname_col = "Kategoria") |>
gt::cols_label(
Pocet = gt::md("**Počet respondentov**"),
Podiel = gt::md("**Podiel respondentov (%)**")
) |>
gt::fmt_number(columns = Podiel, decimals = 1) |>
gt::tab_header(title = gt::md("**Tabuľka 2: Charakteristika štatistickej vzorky**")) |>
gt::opt_row_striping() |>
# Modré pozadie a hrubé rámovanie
gt::tab_options(
table.background.color = "#EAF4FF",
table.border.top.color = "#2E64A7",
table.border.top.style = "solid",
table.border.top.width = gt::px(3),
table.border.right.color = "#2E64A7",
table.border.right.style = "solid",
table.border.right.width = gt::px(3),
table.border.bottom.color = "#2E64A7",
table.border.bottom.style = "solid",
table.border.bottom.width = gt::px(3),
table.border.left.color = "#2E64A7",
table.border.left.style = "solid",
table.border.left.width = gt::px(3)
) |>
# Modré podfarbenie
gt::tab_style(
style = gt::cell_fill(color = "#EAF4FF"),
locations = list(
gt::cells_column_labels(),
gt::cells_title(groups = "title")
)
) |>
# Bold názvy sekcií
gt::tab_style(
style = list(
gt::cell_text(weight = "bold", size = "medium", align = "left"),
gt::cell_fill(color = "#DCEBFF")
),
locations = gt::cells_row_groups()
)
tab_char_gt| Tabuľka 2: Charakteristika štatistickej vzorky | ||
| Počet respondentov | Podiel respondentov (%) | |
|---|---|---|
| Pohlavie | ||
| Muž | 135 | 34.4 |
| Žena | 257 | 65.6 |
| Národnosť | ||
| Iná | 13 | 3.3 |
| Maďarská | 20 | 5.1 |
| Slovenská | 291 | 74.2 |
| Ukrajinská | 68 | 17.3 |
| Najvyššie dosiahnuté vzdelanie | ||
| Stredoškolské s maturitou | 332 | 84.7 |
| Vysokoškolské – bakalársky stupeň | 51 | 13.0 |
| NA | 9 | 2.3 |
| Typ strednej školy | ||
| Gymnázium | 262 | 66.8 |
| Obchodná akadémia | 81 | 20.7 |
| Technická | 17 | 4.3 |
| Iná odborná | 32 | 8.2 |
| Forma štúdia | ||
| Denná | 289 | 73.7 |
| Externá | 103 | 26.3 |
| Ročník vysokoškolského štúdia | ||
| 1. ročník bakalárskeho štúdia | 210 | 53.6 |
| 1. ročník magisterského štúdia | 31 | 7.9 |
| 2. ročník bakalárskeho štúdia | 81 | 20.7 |
| 2. ročník magisterského štúdia | 23 | 5.9 |
| 3. ročník bakalárskeho štúdia | 47 | 12.0 |
| Hlavný zdroj príjmu | ||
| Iné | 3 | 0.8 |
| Peniaze od rodičov | 124 | 31.6 |
| Práca | 245 | 62.5 |
| Sociálne príspevky | 7 | 1.8 |
| Štipendium | 13 | 3.3 |
| Mesačný príjem | ||
| 0 - 400€ | 152 | 38.8 |
| 1001 - 1200€ | 28 | 7.1 |
| 1201 - 1600€ | 39 | 9.9 |
| 1600€ a viac | 49 | 12.5 |
| 401 - 800€ | 99 | 25.3 |
| 801 - 1000€ | 25 | 6.4 |
| Spôsob bývania | ||
| Internát | 119 | 30.4 |
| Vlastné bývanie | 39 | 9.9 |
| NA | 234 | 59.7 |
Z hľadiska zastúpenia jednotlivých ročníkov najväčší podiel respondentov tvorili študenti prvého ročníka bakalárskeho štúdia, ktorých bolo 210, čo predstavuje 53,6 % z celkového počtu. Študenti druhého ročníka bakalárskeho stupňa predstavovali 81 respondentov, študenti tretieho ročníka 47 respondentov. Na magisterskom stupni sa do prieskumu zapojilo 31 študentov prvého ročníka a 23 študentov druhého ročníka.
Celkovo teda študenti prvého ročníka predstavovali 210 respondentov, zatiaľ čo súhrnne študenti ostatných ročníkov tvorili 182 respondentov, čo zodpovedá podielu 46,4 %. Na základe tohto rozdelenia sme sa rozhodli porovnať práve tieto dve skupiny – študentov prvého ročníka a študentov ostatných ročníkov.
Toto rozhodnutie vychádza nielen z kvantitatívneho zastúpenia v dátach, ale aj z charakteru štúdia na Fakulte managementu Univerzity Komenského. Predpokladáme, že až po ukončení prvého ročníka sú do študijného plánu zaradené predmety, ktoré priamo alebo nepriamo prispievajú k rozvoju finančnej gramotnosti. Z tohto dôvodu považujeme porovnanie týchto dvoch skupín za opodstatnené a relevantné pre účely tejto práce.
pick_col <- function(df, choices) intersect(choices, names(df))[1]
rocnik_col <- pick_col(data, c("Rocnik", "V ktorom ročníku vysokoškolského štúdia sa aktuálne nachádzate?"))
# 1) Dáta: 1. ročník bakalárskeho štúdia vs ostatné
pie_df <- data |>
dplyr::filter(!is.na(.data[[rocnik_col]]), .data[[rocnik_col]] != "") |>
dplyr::mutate(
Skupina = ifelse(
grepl("1\\.?\\s*ročník.*bakal", .data[[rocnik_col]], ignore.case = TRUE),
"Spolu - 1. ročník bakalárskeho štúdia",
"Spolu - ostatné ročníky"
)
) |>
dplyr::count(Skupina, name = "n") |>
dplyr::mutate(
pct = n / sum(n),
label = paste0(round(pct * 100), "%")
)
# 2) Koláčový graf
ggplot2::ggplot(pie_df, ggplot2::aes(x = "", y = pct, fill = Skupina)) +
ggplot2::geom_col(width = 1, color = "white") +
ggplot2::coord_polar(theta = "y") +
ggplot2::geom_text(
ggplot2::aes(label = label),
position = ggplot2::position_stack(vjust = 0.5),
fontface = "bold", color = "white"
) +
ggplot2::scale_fill_manual(values = c(
"Spolu - 1. ročník bakalárskeho štúdia" = "#3B73B9",
"Spolu - ostatné ročníky" = "#B64A4A"
)) +
ggplot2::labs(title = "Graf 1: Percentuálny podiel ročníkov", fill = "") +
ggplot2::theme_void() +
ggplot2::theme(
plot.title = ggplot2::element_text(hjust = 0.5, face = "bold"),
legend.position = "right",
plot.margin = ggplot2::margin(t = 20, r = 20, b = 20, l = 80) # ak rezalo názov zľava
)