TARTU ÜLIKOOL





Marielin Kepp
TOETA TÖÖTAJA TERVIST

Küsitluse kokkuvõte

Projekti lisafail

\(~\)

Sissejuhatus

Käesolev raport kajastab Ülemiste City (edaspidi ÜC) töötajate (edaspidi talendi) seas läbiviidud küsitluse tulemusi ja nende analüüsi. Uuring viidi läbi Tartu Ülikooli kursuse Projektipraktika raames koostöös ÜC-ga projekti “Toeta töötaja tervist!” jaoks. Tulemusi kasutatakse projekti koostamiseks. Töö eesmärk on uurida ÜC talendi tervisenäitajate vastavust ÜC Tervisemudelile ja huvi erinevate terviseedenduslike ürituste ja sekkumiste vastu.

Töö koosneb kahest osast. Esimene osa sisaldab kõiki töös kasutatavaid funktsioone koos kirjeldustega. Teises osas analüüsitakse andmeid ja esitatakse tulemused.

\(~\)

Eesmärgist lähtuvalt on sõnastatud järgmised uurimisküsimused:

1. K1 - Kas talendi tervisenäitajad vastavad ÜC Tervisemudeli näitajatele?
2. K2 - Kui suur on talendi huvi erinevate terviseedenduslike sekkumiste vastu?
3. K3 - Millised tegurid tervisenäitajaid mõjutada võivad?
4. K4 - Millised tegurid terviseedenduslike sekkumiste vastu tuntavat huvi mõjutada võivad?

\(~\)

Tuginedes ÜC Tervisemudelile ja olemasolevale kirjandusele on püstitatud järgmised hüpoteesid:

1. H1 - Talendi tervisenäitajad on kooskõlas ÜC Tervisemudeliga.
2. H2 - Talent on terviseedenduslikest sekkumistest huvitatud.
3. H3 - Tervisenäitajate vahel on korrelatsioonid.
4. H4 - Terviseedenduslike sekkumiste vastu tuntavat huvi võivad mõjutada tervisenäitajad, vanuserühm, tööolukord ja töökoht.

\(~\)

Meetod

Lähtuvalt andmete iseloomust on töö eesmärkide saavutamiseks valitud kvantitatiivsed analüüsimeetodid. Analüüsi eesmärgiks on visualiseerida küsitluse vastuseid ja leida vastuste vahelisi korrelatsioone. Korrelatsioonide leidmiseks on tehtud korrelatsioonimaatriksid ja kõigi maatriksite ja jooniste juures on kirjeldatud tulemusi. Kõigile uurimisküsimustele vastamiseks kasutati rakendustarkvara R, kus tehti sagedustabelid, joonised ja korrelatsioonimaatriksid. Tavajooniste tegemiseks on kasutatud paketti ggplot2 ning korrelatsioonimaatriksite tegemiseks paketti ggcorrplot. Andmeanalüüsiks on kasutatud paketti Tidyverse.

\(~\)

Andmestik

Töös on kasutatud perioodil 23.03.2023-04.04.2023 Ülemiste City töötajate seas läbi viidud küsitluse tulemusi. Tulemused on kogutud .tsv-formaadis andmetabelisse, 31 vaatlust (62 veergu ja 31 rida unikaalse tunnusega veerus “Ajatempel”).

Küsitlus on jagatud viieks jaotiseks, millest lähtuti ka tulemuste alaosadeks jaotamisel:

1. J1 - Valim
2. J2 - Tööolukorra ja enesetunde hindamine (näitajad põhinevad Ülemiste City tervisemudelil)
3. J3 - Huvi tervist toetavate ürituste aspektide vastu
4. J4 - Huvi eraldiseisvate ürituste vastu
5. J5 - Huvi töökeskkonna parendamise viiside vastu

Tuleb arvesse võtta, et ÜC Tervisemudeli koostamiseks läbiviidud uuringus täitis 123 inimest ankeedi suures osas (ligikaudu 1,36% talendist) ning käesoleva küsitluse ankeedi täitis 31 inimest (ligikaudu 0,2% talendist), millest lähtuvalt on tegemist väga väikese osaga kogukonnast ning tegelik olukord võib suuresti erineda.

\(~\)

Analüüs

1.Valim

Vastajate vanus ja sugu

# Soo esinemise loendamine
sugu <- kysitlus %>% count(Sugu)

# Vanuse esinemise loendamine
vanus <- kysitlus %>% count(Vanus)

# Andmete vanuse ja soo järgi grupeerimine ja kõigi kombinatsioonide arvu leidmine
vanus_sugu <- kysitlus %>% count(Vanus, Sugu)

# Joonise tegemine
joonis(vanus_sugu, "Sugu", "Vanuserühma ja soo jaotus", xtelg = "Vanuserühm", ytelg = "Esinemiste arv",x_veerg = "Vanus", y_veerg = "n", sisu_veerg = "Sugu")

Küsitlusele vastas kokku 31 inimest. Vastajate seas on rohkem esindatud sugu Naine, kuhu kuulub 29 vastajat, ülejäänud vastajad on mehed. Kõige rohkem on esindatud vanuserühm 40-50, kuhu kuulub 12 vastajat.

\(~\)

Vastajate jaotus ettevõtte valdkondade järgi

Vastajate seas on rohkem esindatud valdkond Haridus, teadus, kuhu kuulus 14 vastajat. Kõige vähem on esindatud valdkond Telekommunikatsioon, infotehnoloogia, kuhu kuulus 1 vastaja.

# Ettevõtete tüüpide jaotus, uue dataFrame objekti loomine. Objekt df_new_1 on identne objektiga x v.a loodud veergudel, kuid igaks juhuks lõin uue.
df_new_1 <- kysitlus %>%
  # Funktsioon jagab read etteantud eraldaja abil kõrvuti olevateks veergudeks.
  separate(`Ettevõtte tüüp`, # veerg, mille väärtusi jagatakse
           c("Ettevõtte tüüp", "Ettevõtte tüüp 2", "Ettevõtte suurus"), # Loodavate veergude pealkirjad
           sep = ",\\s*", # eraldaja sõne
           fill = "right") %>% # tingimus, mis määrab, kummale poole algsest veerust uued veerud luuakse
  
  # Funktsioon jagab loodud veergude väärtused õigetesse veergudesse.
  mutate(
    # Veeru "Ettevõtte tüüp 2" väärtuste määramine
    `Ettevõtte tüüp 2` = ifelse(! `Ettevõtte tüüp` %in% c("Kodumaine ettevõte", "Rahvusvaheline ettevõte"), # võetakse veeru väärtused, mis ei ole etteantud vektoris
                                     `Ettevõtte tüüp`, # vektoris olevad väärtused jäävad veergu
                                     `Ettevõtte tüüp 2`), # vektoris mitteolevad väärtused tõstetakse uude veergu
    
    # Veerust "Ettevõtte tüüp" veergu "Ettevõtte tüüp 2" tõstetud väärtuste kustutamine
    `Ettevõtte tüüp` = ifelse(`Ettevõtte tüüp` %in% c("Kodumaine ettevõte", "Rahvusvaheline ettevõte"), # võetakse veeru väärtused, mis on etteantud vektoris
                              `Ettevõtte tüüp`, # vektoris olevad väärtused jäävad veergu
                              "Ettevõtte tüüpi pole määratud"), # vektoris mitteolevad väärtused kustutatkse
    # Veeru "Ettevõtte suurus" väärtuste määramine
    `Ettevõtte suurus` = ifelse(! `Ettevõtte tüüp 2` %in% c("Kodumaine ettevõte", "Rahvusvaheline ettevõte"), # võetakse veeru väärtused, mis ei ole etteantud vektoris
                                 `Ettevõtte tüüp 2`, # vektoris olevad väärtused jäävad veergu
                                 `Ettevõtte suurus`), # vektoris mitteolevad väärtused tõstetakse uude veergu
    
    # Veerust "Ettevõtte tüüp 2" veergu "Ettevõtte suurus" tõstetud väärtuste kustutamine
    `Ettevõtte tüüp 2` = ifelse(`Ettevõtte tüüp 2` %in% c("Kodumaine ettevõte", "Rahvusvaheline ettevõte"), # võetakse veeru väärtused, mis on etteantud vektoris
                                `Ettevõtte tüüp 2`, # vektoris olevad väärtused jäävad veergu
                                "Ettevõtte tüüpi pole määratud")) %>% # vektoris mitteolevad väärtused kustutatkse
  mutate(`Ettevõtte suurus` = ifelse(is.na(`Ettevõtte suurus`), 
                                     "Ettevõtte suurust pole määratud", # Kui rida on tühi
                                     `Ettevõtte suurus`)) # Kui reas on kirje, ei muudeta midagi

tootaja_uldandmed <- uhendatud_veerud_arvulisteks_tunnusteks(df_new_1[, c("Ajatempel", "Vanus")])

## Warning: Using an external vector in selections was deprecated in tidyselect 1.1.0.
## ℹ Please use `all_of()` or `any_of()` instead.
##   # Was:
##   data %>% select(i)
## 
##   # Now:
##   data %>% select(all_of(i))
## 
## See <https://tidyselect.r-lib.org/reference/faq-external-vector.html>.

tootaja_uldandmed <- tootaja_uldandmed[, c(1, 6, 4, 2, 3, 5)]

ettevotte_uldandmed <- uhendatud_veerud_arvulisteks_tunnusteks(df_new_1[, c("Ajatempel", "Ettevõtte tüüp", "Ettevõtte suurus", "Ettevõtte valdkond")])

ettevotte_uldandmed <- ettevotte_uldandmed[, c(1, 2, 4, 9, 6, 5, 8, 10, 11, 12, 13, 14, 15)] # Jätan välja veerud, kos pole ettevõtte tüüpi või suurust määratud

ettevotte_uldandmed

## # A tibble: 31 × 13
##    Ajatempel     Kodum…¹ Rahvu…² Suur …³ Keskm…⁴ Väike…⁵ Mikro…⁶ Panga…⁷ Teeni…⁸
##    <chr>           <dbl>   <dbl>   <dbl>   <dbl>   <dbl>   <dbl>   <dbl>   <dbl>
##  1 3/29/2023 10…       1       0       0       0       1       0       1       0
##  2 3/31/2023 15…       1       0       0       1       0       0       0       1
##  3 3/31/2023 15…       0       0       0       0       1       0       0       1
##  4 3/31/2023 16…       0       1       0       0       1       0       0       1
##  5 3/31/2023 16…       0       1       0       0       0       0       1       0
##  6 3/31/2023 16…       0       0       0       0       0       1       0       0
##  7 3/31/2023 17…       1       0       0       0       1       0       0       0
##  8 3/31/2023 22…       0       1       0       1       0       0       0       0
##  9 4/3/2023 9:1…       1       0       0       0       0       1       0       0
## 10 4/3/2023 11:…       0       0       0       1       0       0       0       1
## # … with 21 more rows, 4 more variables:
## #   `Telekommunikatsioon, infotehnoloogia` <dbl>, `Haridus, teadus` <dbl>,
## #   `Tööstus, energeetika, ehitus` <dbl>,
## #   `Riigiteenistus, haldus, sotsiaalsfäär, tervishoid` <dbl>, and abbreviated
## #   variable names ¹​`Kodumaine ettevõte`, ²​`Rahvusvaheline ettevõte`,
## #   ³​`Suur ettevõte (> 250 töötajat)`,
## #   ⁴​`Keskmise suurusega ettevõte (< 250 töötajat)`, …

\(~\)

Vastajate jaotus ettevõtte asukoha ja valdkonna järgi

# Ettevõtte asukoha ja valdkonna jaotuse põhjal jaoks uue dataFramei loomine.
df_ettevotte_asukoht <- df_new_1 %>%
  count(`Ettevõtte tüüp`, `Ettevõtte valdkond`) # Loendatakse ettevõtete tüübid ja valdkonnad

# Joonise loomine
joonis(df_ettevotte_asukoht, "Ettevõtte valdkond", "Ettevõtete jaotus asukoha ja valdkonna järgi", xtelg = "Ettevõtte asukoht", ytelg = "Esinemiste arv", x_veerg = "Ettevõtte tüüp", y_veerg = "n", sisu_veerg = "Ettevõtte valdkond") + scale_x_discrete(limits=c("Kodumaine ettevõte", "Rahvusvaheline ettevõte", "Ettevõtte tüüpi pole määratud"), labels =c("Kodumaine ettevõte", "Rahvusvaheline ettevõte", "Ettevõtte tüüpi\npole määratud"))

kodumaine_ettevote <- filter(df_ettevotte_asukoht, `Ettevõtte tüüp` == "Kodumaine ettevõte")

rahvusvaheline_ettevote <- filter(df_ettevotte_asukoht, `Ettevõtte tüüp` == "Rahvusvaheline ettevõte")

Kodumaiste ettevõtete seast on kõige rohkem esindatud kategooria Haridus, teadus ja kõige vähem Pangandus, kindlustus, kinnisvara. Rahvusvaheliste ettevõtete seast on kõige rohkem esindatud kategooria Teenindus, kaubandus, transport ja kõige vähem Haridus, teadus.

\(~\)

Vastajate jaotus ettevõtte suuruse ja valdkonna järgi

# Ettevõtte suuruse ja valdkonna jaotuse põhjal jaoks uue dataFramei loomine.
df_ettevotte_suurus <- df_new_1 %>%
  count(`Ettevõtte suurus`, `Ettevõtte valdkond`) 

# Joonise tegemine
joonis(df_ettevotte_suurus, "Ettevõtte valdkond", "Ettevõtete jaotus suuruse ja valdkonna järgi", 
       alapealkiri = paste(c("Mikroettevõte (< 10 töötajat)", "Väike ettevõte (< 50 töötajat)", "Keskmise suurusega ettevõte (< 250 töötajat)", "Suur ettevõte (> 250 töötajat)"), collapse = "\n"),
       xtelg = "Ettevõtte suurus", ytelg = "Esinemiste arv", x_veerg = "Ettevõtte suurus", y_veerg = "n", sisu_veerg = "Ettevõtte valdkond") + scale_x_discrete(limits=c("Mikroettevõte (< 10 töötajat)", "Väike ettevõte (< 50 töötajat)", "Keskmise suurusega ettevõte (< 250 töötajat)", "Suur ettevõte (> 250 töötajat)", "Ettevõtte suurust pole määratud"), labels=c("Mikroettevõte", "Väike ettevõte", "Keskmise\nsuurusega\nettevõte", "Suur ettevõte", "Ettevõtte suurust\npole määratud"))

Suuruse järgi on kõige rohkem vastajaid suurtest ettevõtetest (valdkonnad harifus, teadus ja riigiteenistus, haldus, sotsiaalsgäär, tervishoid) ja kõige vähem on vastajaid mikroettevõtetest (valkonnad telekommunikatsioon, infotehnoloogia ja tööstus, energeetika, ehitus).

\(~\)

\(~\)

2. Tööolukorra ja enesetunde hindamine (näitajad põhinevad Ülemiste City tervisemudelil)

2.1 Tervisenäitajate sagedused

2.1.1 Füüsilise tervise näitajad

Jooniselt on näha, et tulemused on enamjaolt Tervisemudeliga kooskõlas. Jalgsi, jalgratta või muu kergliikuriga ei liiguta kunagi või liigutakse sageli. Tervisekaebusi pole kunagi või on harva. Sageli ollakse rohkem kui viis tundi päevas ekraani ees. Aktiivse liikumise või trenniga tegeldakse enamasti harva või vahel. Regulaarselt süüakse ja magatakse vahel või sageli.

list_ft <- list("Füüsiline tervis: Palun hinda järgmiste tegevuste sagedust viimase nädala jooksul. [Mitte kunagi]", 
                "Füüsiline tervis: Palun hinda järgmiste tegevuste sagedust viimase nädala jooksul. [Harva (1-2 päeval nädalas)]",
                "Füüsiline tervis: Palun hinda järgmiste tegevuste sagedust viimase nädala jooksul. [Vahel (3-4 päeval nädalas)]",
                "Füüsiline tervis: Palun hinda järgmiste tegevuste sagedust viimase nädala jooksul. [Sageli (vähemalt 5 päeva nädalas)]")


ft_lai_sagedustabel <- tee_skalaarkysimuste_lai_sagedustabel(list_ft, ",\\s*(?=[A-Z>])")


ft_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(ft_lai_sagedustabel[[1]], "Ajatempel")


ft_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(ft_pikk_sagedustabel, ft_lai_sagedustabel[[2]]) 


joonis(ft_sagedustabel_summadega, 
       "Näitajad", 
       "Füüsilise tervise näitajad viimase kuu jooksul",
       alapealkiri = paste(ft_lai_sagedustabel[[2]], collapse = "\n"),
       y_veerg = "n") + scale_x_discrete(labels= gsub("\\(.*?\\)", "", ft_lai_sagedustabel[[2]]))

\(~\)

2.1.2 Vaimse tervise näitajad

Jooniselt on näha, et tulemused on Tervisemudeliga kooskõlas. Vastajatest ei koge keegi sageli ärevuse või depressiooni sümptomeid ning sageli tööstressi kogejaid on vähe. Ületunde tehakse harva või vahel. Pole ühtegi vastajat, kes kunagi hooseisundis ei tööta. Enesetäiendustegevustega tegeletakse peamiselt harva.

list_vt <- list("Vaimne tervis: Palun hinda järgmiste nähtuste esinemist sagedust viimase kuu jooksul. [Mitte kunagi]", 
                "Vaimne tervis: Palun hinda järgmiste nähtuste esinemist sagedust viimase kuu jooksul. [Harva (kuni 7 päeval kuus)]",
                "Vaimne tervis: Palun hinda järgmiste nähtuste esinemist sagedust viimase kuu jooksul. [Vahel (kuni 14 päeval kuus)]",
                "Vaimne tervis: Palun hinda järgmiste nähtuste esinemist sagedust viimase kuu jooksul. [Sageli (rohkem kui 21 päeval kuus)]")


vt_lai_sagedustabel <- tee_skalaarkysimuste_lai_sagedustabel(list_vt, "\\s*,\\s*(?![^()]*\\))") 


vt_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(vt_lai_sagedustabel[[1]], "Ajatempel")


vt_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(vt_pikk_sagedustabel, vt_lai_sagedustabel[[2]])


joonis(vt_sagedustabel_summadega, 
       "Näitajad", 
       "Vaimse tervise näitajad viimase kuu jooksul",
       alapealkiri = paste(vt_lai_sagedustabel[[2]], collapse = "\n"),
       y_veerg = "n") + scale_x_discrete(labels= gsub("\\(.*?\\)", "", vt_lai_sagedustabel[[2]]))

#geom_text(aes(label = scales::percent(n / sum(n))), position = position_fill(vjust = 0.5))

\(~\)

2.1.3 Sotsiaalse tervise näitajad

Jooniselt on näha, et tulemused on enamjaolt Tervisemudeliga kooskõlas. Ülemiste linnakus veedetakse vana aega ja üritustel ei osaleta kunagi või osaletakse harva. Siiani tehakse kaugtööd. Töökaaslastega suheldakse sageli.

list_st <- list("Sotsiaalne tervis: Palun hinda järgmiste tegevuste sagedust viimase kuu jooksul. [Mitte kunagi]", 
                "Sotsiaalne tervis: Palun hinda järgmiste tegevuste sagedust viimase kuu jooksul. [Harva (kuni 7 päeval kuus)]",
                "Sotsiaalne tervis: Palun hinda järgmiste tegevuste sagedust viimase kuu jooksul. [Vahel (kuni 14 päeval kuus)]",
                "Sotsiaalne tervis: Palun hinda järgmiste tegevuste sagedust viimase kuu jooksul. [Sageli (rohkem kui 21 päeval kuus)]")


st_lai_sagedustabel <- tee_skalaarkysimuste_lai_sagedustabel(list_st, "\\s*,\\s*(?![^()]*\\))") 


st_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(st_lai_sagedustabel[[1]], "Ajatempel")

st_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(st_pikk_sagedustabel, st_lai_sagedustabel[[2]])




joonis(st_sagedustabel_summadega, 
       "Näitajad", 
       "Sotsiaalse tervise näitajad viimase kuu jooksul",
       alapealkiri = paste(st_lai_sagedustabel[[2]], collapse = "\n"),
       y_veerg = "n") + scale_x_discrete(labels= gsub("\\(.*?\\)", "", st_lai_sagedustabel[[2]]))

\(~\)

\(~\)

2.2 Tervisenäitajate korrelatsioonid

Regulaarse unegraafikuga inimeste tervisenäitajad on paremad ja üle 5 tunni päevas ekraani ees olijad on vähem aktiivsed.

Ületunnid ja tööstress on omavahel seotud: Ületundide tegijad kogevad pigem rohkem tööstressi ja tööstressi kogejad kogevad pigem rohkem ärevuse või depressiooni sümptomeid.

Hooseisund võib vaimse tervise näitajaid parandada: Hooseisundis töötajad tegelevad pigem rohkem enesetäiendamisega, kogevad pigem vähem tööstessi ja ärevuse või depressioone sümptome ning võivad harvem ületunde teha.

Linnaku üritustel osalejad on seltsivamad: nad veedavad pigem rohkem linnakus aega ja suhtlevad töökaaslastega.

Vanuserühmad vajavad erinevat tüüpi tuge:

• Vanuserühm 18-30 vajaks rohkem vaimse ja sotsiaalse tervisega seonduvat tuge.

• Vanuserühm 30-40 vajaks rohkem töökeskkonnaga seonduavt tuge.

• Vanuserühm 40-50 vajaks rohkem füüsilise ja sotsiaalse tervisega seonduavt tuge.

• Vanuserühm 50-60 vajaks rohkem töökeskkonna ja füüsilise tervisega seonduvat tuge.

• Vanuserühm 60-70 vajaks rohkem vaimse tervisega seonduavt tuge.

Tervisenäitajad erinevad valdkonniti:

-Riigiteenistuse, halduse, sotsiaalsfääri, tervishoidu valdkonna töötajad võivad enesetäiendamisega rohkem tegeleda, kuid nende muud tervisenäitajad võivad halvemad olla.

• Tööstuse, energeetika, ehituse valdkonnad töötajatel on üldiselt head tevrisenäitajad, kuid nad tegelevad pigem harvem enesetäiendamisega.

• Hariduse, teaduse valdkonna töötajad on pigem vähem seltsivad ning neil võivad olla halvemad tööga seonduvad tervisenäitajad.

• Telekommunikatsiooni, infotehnoloogia valdkonna töötajad võisid pigem rohkem hooseisundis töötada, kuid nende füüsilise ja vaisme tervse näitajad võivad halvemad olla.

• Teeninduse, kaubanduse, transpordi valdkonna töötajad võivad olla seltsivamad ja vähem ületunde teha, kuid neil võib rohkem tervisekaebusi olla.

• Panganduse, kindlustuse, kinnisvara valdkonna töötajate tervisenäitjadad on üldiselt head.

2.2.1 Füüsilise tervise näitajate korrelatsioonid

Regulaarse unegraafikuga (Ft4) inimeste tervisenäitajad on paremad: nad liiguvad pigem jalgsi, jalgratta või muu kergliikuriga ühest punktist teise (Ft1; keskmine positiivne seos 0.36) ning on pigem regulaarselt sööjad (Ft6; keskmine positiivne seos 0.3).

Üle 5 tundi päevas ekraani ees olijad (Ft7) on pigem harvem aktiivselt liikujad (Ft3; keskmine negatiivne seos -0.3).

# Skalaarvastused asendatakse numbritega
ft_tunnused_numbritena <- asenda_skalaartunnused_numbritega(ft_lai_sagedustabel[[1]], # df vastustega
                                                            ft_lai_sagedustabel[[2]]) # skalaarvastused
# Luuakse lühendatud veerunimedega sagedustabel
ft_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(ft_tunnused_numbritena,
                        "Ft")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
ft_korrelatsioonitabel <- tee_korrelatsioonitabel(ft_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(ft_korrelatsioonitabel, # Korrelatsioonitabel
                        "Füüsilise tervise näitajate korrelatsioonid", # Joonise pealkiri
                        luhenda_sagedustabeli_veerunimed(ft_tunnused_numbritena,
                        "Ft")[[2]]) # Lühendatud veerunimede ja neile vastavate väärtuste vektor

2.2.2 Vaimse tervise näitajate korrelatsioonid

Ületundide tegijad (Vt1) kogevad pigem sageli tööstressi (Vt2; keskmine positiivne seos 0.63), võivad kogeda rohkem ärevuse või depressiooni sümptomeid (Vt3; nõrk positiivne seos 0.23) ja enesetäiendamisega tegeleda (Vt4; nõrk positiivne seos 0.2)

Tööstressi (Vt2) rohkem kogejatel on pigem rohkem ärevuse või depressioone sümptomeid (Vt3; keskmine positiivne seos 0.53).

Hooseisundis töötajad (Vt5) tegelevad pigem rohkem enesetäiendamisega (Vt4; keskmine positiivne seos 0.34), kogevad pigem vähem tööstessi (Vt2; keskmine negatiivne seos -0.32) ja ärevuse või depressioone sümptome (Vt3; keskmine negatiivne seos -0.3) ning võivad harvem ületunde teha (Vt1; nõrk negatiivne seos -0.24).

# Skalaarvastused asendatakse numbritega
vt_tunnused_numbritena <- asenda_skalaartunnused_numbritega(vt_lai_sagedustabel[[1]], # df vastustega
                                                            vt_lai_sagedustabel[[2]]) # skalaarvastused


# Luuakse lühendatud veerunimedega sagedustabel
vt_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(vt_tunnused_numbritena,
                        "Vt")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
vt_korrelatsioonitabel <- tee_korrelatsioonitabel(vt_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(vt_korrelatsioonitabel, # Korrelatsioonitabel
                        "Vaimse tervise näitajate korrelatsioonid", # Joonise pealkiri
                        luhenda_sagedustabeli_veerunimed(vt_tunnused_numbritena,
                        "Vt")[[2]]) # Lühendatud veerunimede ja neile vastavate väärtuste vektor

2.2.3 Sotsiaalse tervise näitajate korrelatsioonid

Ülemiste linnaku üritustel osalejad (St4) veedavad pigem rohkem linnakus aega (St3; keskmine positiivne seos 0.49) ja suhtlevad pigem rohkem töökaaslastega (St2; keskmine positiivne seos 0.42).

# Skalaarvastused asendatakse numbritega
st_tunnused_numbritena <- asenda_skalaartunnused_numbritega(st_lai_sagedustabel[[1]], # df vastustega
                                                            st_lai_sagedustabel[[2]]) # skalaarvastused

# Luuakse lühendatud veerunimedega sagedustabel
st_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(st_tunnused_numbritena,
                        "St")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
st_korrelatsioonitabel <- tee_korrelatsioonitabel(st_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(st_korrelatsioonitabel, # Korrelatsioonitabel
                        "Sotsiaalse tervise näitajate korrelatsioonid", # Joonise pealkiri
                        luhenda_sagedustabeli_veerunimed(st_tunnused_numbritena,
                        "St")[[2]]) # Lühendatud veerunimede ja neile vastavate väärtuste vektor

2.2.4 Tervisenäitajate korrelatsioonid töötajate vanusega

Ühelgi tervisenäitajal ei ole vanuserühmaga tugevaid seoseid. Vaimse ja sotsiaalse tervise näitajatel on keskmise ja nõrga tugevusega seosed. Füüsilise tervise näitajatel on nõrku seoseid.

Vanuserühm 18-30 vajaks rohkem vaimse ja sotsiaalse tervisega seonduvat tuge. Neil võib olla regulaarsem unegraafik (Ft4; nõrk positiivne seos 0.26), kuid nad kogevad pigem rohkem tööstressi (Vt2; keskmine positiivne seos 0.42), teevad ületunde (Vt1; keskmine positiivne seos 0.37) ja osalevad harvem Ülemiste linnaku üritustel (St4; keskmine negatiivne seos -0.37).

Vanuserühm 30-40 vajaks rohkem töökeskkonnaga seonduvat tuge. Neil on kõige rohkem seosed sotsiaalse tervise näitajatega: nad osalevad pigem rohkem Ülemiste linnaku üritustel (St4; keskmine positiivne seos 0.44) ja veedavad linnakus vaba aaega (St3; keskmine positiivne seos 0.39). Nad võivad rohkem kaugtööd teha (St1; nõrk positiivne seos 0.24) ja üle 5 tunni päevas ekraani ees olla (Ft7; nõrk positiivne seos 0.21).

Vanuserühm 40-50 vajaks rohkem füüsilise ja sotsiaalse tervisega seonduvat tuge. Nad teevad pigem harvem ületunde (Vt1; keskmine negatiivne seos -0.3) ja võivad rohkem töökaaslastega suhelda (St2; nõrk positiivne seos 0.21), kuid võib harvem regulaarselt süüa (Ft6; nõrk negatiivne seos -0.27) ja linnakus vaba aega veeta (St3; nõrk negatiivne seos -0.2) ning rohkem olla tervisekaebusi (Ft2; nõrk positiivne seos 0.21).

Vanuserühm 50-60 vajaks rohkem töökeskkonna ja füüsilise tervisega seonduvat tuge. nad teeb pigem rohkem ületunde (Vt1; keskmine positiivne seos 0.37) ja töötab pigem harvem hooseisundis (Vt5; keskmine negatiivne seos -0.31), võib harvem jalgsi, jalgratta või muu kergliikuriga ühest punktist teise liikuda (Ft1; negatiivne nõrk seos -0.28) ja töökaaslastega suhelda (St2; negatiivne nõrk seos -0.28).

Vanuserühm 60-70 vajaks rohkem vaimse tervisega seonduvat tuge. Nad teeb pigem harvem kaugtööd (St1; keskmine negatiivne seos -0.34) ja kogevad pigem harvem tööstressi (Vt2; keskmine negatiivne seos -0.3), võivad harvem kogeda ärevuse või depressiooni sümptomeid (Vt3; nõrk negatiivne suhe -0.24) ja harvem toidukordade vahel näksida (Ft5; nõrk negatiivne suhe -0.21), kuid tegelevad pigem harvem enesetäiendamisega (Vt4; keskmine negatiivne seos -0.34).

ft_vt_st_koos <- reduce(list(ft_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel), full_join, by = "Ajatempel")

tee_filtreeritud_korrelatsioonimaatriks(ft_vt_st_koos, tootaja_uldandmed, "Tervisenäitajate ja töötajate vanuse korrelatsioonid")

2.2.5 Tervisenäitajate korrelatsioonid ettevõtte andmetega

Ühelgi tervisenäitajal ei ole ettevõtte asukoha, suuruse ega valdkonnaga tugevaid seoseid.

Kodumaiste ettevõtete töötajad võivad rohkem regulaarselt süüa (Ft6; nõrk positiivne seos 0.25), neil võib olla regulaarne unegraafik (Ft4; nõrk positiivne seos 0.24) ja vähem tervisekaebusi (Ft2; nõrk negatiivne seos -0.27), kuid nad võivad tegeleda vähem aktiivse liikumise/trenniga (Ft3; nõrk negatiivne seos -0.25) ja töötada harvem hooseisundis (Vt5; nõrk negatiivne seos -0.22).

Rahvusvaheliste ettevõtete töötajad võivad harvem ärevuse või depressiooni sümptomeid (Vt3; nõrk negatiivne seos -0.27) kogeda, kuid neil võib olla rohkem tervisekaebusi (Ft2; nõrk positiivne seos 0.23).

Mikroettevõtete töötajad võivad rohkem linnaku üritustel osaleda (St4; nõrk positiivne seos 0.27) ja harvem kaugtööd teha (St1; nõrk negatiivne seos -0.22), kuid ka harvem jalgsi, jalgratta või muu kergliikuriga ühest punktist teise liikuda (Ft1; nõrk negatiivne seos -0.29) ja rohkem ärevuse või depressiooni sümptomeid kogeda (Vt3; nõrk positiivne seos 0.21).

Väikeste ettevõtete töötajad võivad rohkem tegeledea aktiivse liikumise/trenniga (Ft3; nõrk positiivne seos 0.22) ja harvem ületunde (Vt1; nõrk negatiivne seos -0.22) teha, kuid nad on pigem rohkem üle 5 tunni päevas ekraani ees (Ft7; keskmine positiivne seos 0.35) ja töötavad pigem vähem hooseisundis (Vt5; keskmine negatiivne seos -0.38) ning neil võib ebaregulaarsem unegraafik (Ft4; nõrk negatiivne seos -0.23) ja söömine olla (Ft6; nõrk negatiivne seos -0.23) ja nad võivad rohkem kaugtööd teha (St1; nõrk positiivne seos 0.22).

Keskmise suurusega ettevõtete töötajad suhtlevad pigem rohkem töökaaslastega (St2; keskmine positiivne seos 0.3) ja võivad harvem ärevuse või depressiooni sümptomeid (Vt3; nõrk negatiivne seos -0.27) kogeda.

Suurte ettevõtete töötajad liiguvad pigem rohkem jalgsi, jalgratta või muu kergliikuriga ühest punktist teise liikuda (Ft1; keskmine positiivne seos 0.32) ja võivad rohkem linnakus vaba aega veeta (St3; nõrk positiivne seos 0.2), kuid kogevad pigem rohkem tööstressi (Vt2; keskmine positiivne seos 0.57), teevad ületunde (Vt1; keskmine positiivne seo 0.37) ja suhtlevad pigem harvem töökaaslastega (St2; keskmine negatiivne seos -0.37), võivad rohkem kogeda ärevuse või depressiooni sümptomeid (Vt3; nõrk positiivne seos 0.26), toidukordade vahel näksida (Ft5; nõrk positiivne seos 0.23) ja võib olla rohkem tervisekaebusi (Ft2; nõrk positiivne seos 0.22).

Riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu valdkonna töötajad võivad rohkem tegeleda enesetäiendamisega (Vt4; nõrk positiivne seos 0.25), kuid neil on pigem ebaregulaarsem unegraafik (Ft4; keskmine negatiivne seos -0.4), nad teevad pigem rohkem kaugtööd (St1; keskmine positiivne seos 0.31) ja näksivad toidukordade vahel (Ft5; keskmine positiivne seos 0.3), võivad rohkem teha ületunde (Vt1; nõrk positiivne seos 0.23) ja vähem tegeleda aktiivse liikumise/trenniga (Ft3; nõrk negatiivne seos -0.2).

Tööstuse, energeetika, ehituse valdkonna töötajad kogesid pigem vähem tööstressi (Vt2; keskmine negatiivne seos -0.43), teevad pigem vähem kaugtööd (St1; keskmine negatiivne seos -0.36) ja näksisid toidukordade vahel (Ft5; keskmine negatiivne seos -0.31), neil võis olla vähem tervisekaebusi (Ft2; nõrk negatiivne seos -0.24), nad võivad vähem üle 5 tunni päevas ekraani ees olla (Ft7; nõrk negatiivne seos -0.24) ja ületunde teha (Vt1; nõrk negatiivne seos -0.24). Seevastu tegeldi pigem vähem enesetäiendamisega (Vt4; keskmine negatiivne seos -0.32).

Hariduse, teaduse valdkonna töötajad suhtlesid pigem vähem töökaaslastega (St2; keskmine negatiivne seos -0.38) ja osalesid pigem vähem linnaku üritustel (St4; keskmine negatiivne seos -0.36), kogesid pigem rohkem tööstressi (Vt2; keskmine positiivne seos 0.32), võivad rohkem ületunde teha (Vt1; nõrk positiivne seos 0.28) ja võivad vähem hooseisundis töötada (Vt5; nõrk negatiivne seos -0.21).

Telekommunikatsiooni, infotehnoloogia valdkonna töötajad võivad pigem rohkem hooseisundis töötada (Vt5; nõrk positiivne seos 0.22), kuid võivad ka rohkem ärevuse või depressiooni sümptomeid (Vt3; nõrk positiivne seos 0.27) kogeda, üle 5 tunni päevas ekraani ees olla (Ft7; nõrk positiivne seos 0.2) ja vähem jalgsi, jalgratta või muu kergliikuriga ühest punktst teise liikuda (Ft1; nõrk negatiivne seos -0.2).

Teeninduse, kaubanduse, transpordi valdkonna töötajad võivad rohkem töökaaslastega suhelda (St2; nõrk positiivne seos 0.23) ja linnaku üritustel osaleda (St4; nõrk positiivne seos 0.23) ning vähem ületunde teha (Vt1; nõrk negatiivne seos -0.24), kuid neil võis olla rohkem tervisekaebusi (Ft2; nõrk positiivne seos 0.29).

Panganduse, kindlustuse, kinnisvara valdkonna töötajad tegelevad pigem rohkem enesetäiendamisega (Vt4; keskmine positiivne seos 0.38), võivad vähem tööstressi (Vt2; nõrk negatiivne seos -0.27) kogeda, üle 5 tunni päevas ekraani ees olla (Ft7; nõrk negatiivne seos -0.24) ning ületunde (Vt1; nõrk negatiivne seos -0.24) ja kaugtööd teha (St1; nõrk negatiivne seos -0.22).

tee_filtreeritud_korrelatsioonimaatriks(ft_vt_st_koos, ettevotte_uldandmed, "Tervisenäitajate ja ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

2.2.6 Ühendatud korrelatsioonimaatriks

Füüsilise, vaimse ja sotsiaalse tervise näitajad

tee_filtreeritud_korrelatsioonimaatriks(ft_luhendatud_veergudega_sagedustabel, merge(vt_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, by = "Ajatempel"), "Füüsilise, vaimse ja sotsiaalse tervise näitajate korrelatsioonid")

\(~\)

\(~\)

2.3 Hobid

2.3.1 Hobide jaotus

Peamised hobid on aktiivne liikumine ja lugemine.

hobid1 <- read_tsv("andmed/kysitlus - Hobid.tsv", show_col_types = FALSE)

hobid_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(hobid1, "Ajatempel")

hobid_pikk_sagedustabel <- hobid_pikk_sagedustabel %>%
  mutate(`Sagedus` = ifelse(!is.na(`Sagedus`), 1, `Sagedus`)) %>%
  drop_na() 


uhendtabel_hobid_uldanded <- merge(hobid_pikk_sagedustabel, df_new_1[, c("Ajatempel", "Ettevõtte suurus", "Ettevõtte tüüp", "Ettevõtte valdkond", "Sugu", "Vanus")], by= "Ajatempel")

hobid_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(hobid_pikk_sagedustabel, NULL)

joonis(hobid_sagedustabel_summadega, "Hobi tüüp", "Hobide jaotus", y_veerg = "n", sisu_veerg = "variable") + theme(axis.text.x = element_blank(),
  axis.text.y = element_blank(),
  axis.ticks = element_blank())

2.3.2 Hobide jaotus vanuserühma järgi

# Hobide ja ettevõtte suuruste jaotuse põhjal dataFramei tegemine
hobid_sugu <- uhendtabel_hobid_uldanded %>%
  count(`Vanus`, `variable`) # Hobide tüüpide loendamine

# joonise tegemine

joonis(hobid_sugu, "Hobi tüüp", "Hobide jaotus vanuserühma järgi", 
       x_veerg = "Vanus", y_veerg = "n", sisu_veerg = "variable",
       xtelg = "Vanuserühm", ytelg = "Esinemiste hulk") 

2.3.3 Hobide jaotus ettevõtte asukoha järgi

# Hobide ja ettevõtte tüüpide jaotuse põhjal dataFramei tegemine
hobid_tyyp <- uhendtabel_hobid_uldanded %>%
  count(`Ettevõtte tüüp`, `variable`) # Hobide tüüpide loendamine

# joonise tegemine
joonis(hobid_tyyp, "Hobi tüüp", "Hobide jaotus ettevõtte asukoha järgi", 
       x_veerg = "Ettevõtte tüüp", y_veerg = "n", sisu_veerg = "variable",
       xtelg = "Ettevõtte tüüp", ytelg = "Esinemiste hulk") + scale_x_discrete(limits=c("Kodumaine ettevõte", "Rahvusvaheline ettevõte", "Ettevõtte tüüpi pole määratud"))

2.3.4 Hobide jaotus ettevõtte suuruse järgi

# Hobide ja ettevõtte suuruste jaotuse põhjal dataFramei tegemine
hobid_suurus <- uhendtabel_hobid_uldanded %>%
  count(`Ettevõtte suurus`, `variable`) # Hobide tüüpide loendamine

# joonise tegemine
joonis(hobid_suurus, "Hobi tüüp", "Hobide jaotus ettevõtte suuruse järgi", 
       alapealkiri = paste(c("Mikroettevõte (< 10 töötajat)", "Väike ettevõte (< 50 töötajat)", "Keskmise suurusega ettevõte (< 250 töötajat)", "Suur ettevõte (> 250 töötajat)"), collapse = "\n"),
       x_veerg = "Ettevõtte suurus", y_veerg = "n", sisu_veerg = "variable",
       xtelg = "Ettevõtte suurus", ytelg = "Esinemiste hulk") + scale_x_discrete(limits=c("Mikroettevõte (< 10 töötajat)", "Väike ettevõte (< 50 töötajat)", "Keskmise suurusega ettevõte (< 250 töötajat)", "Suur ettevõte (> 250 töötajat)", "Ettevõtte suurust pole määratud"), labels=c("Mikroettevõte", "Väike ettevõte", "Keskmise\nsuurusega\nettevõte", "Suur ettevõte", "Ettevõtte suurust\npole määratud"))

2.3.5 Hobide jaotus ettevõtte valdkonna järgi

# Hobide ja ettevõtte suuruste jaotuse põhjal dataFramei tegemine
hobid_ettevotte_valdkond <- uhendtabel_hobid_uldanded %>%
  count(`Ettevõtte valdkond`, `variable`) # Hobide tüüpide loendamine

# joonise tegemine

joonis(hobid_ettevotte_valdkond, "Hobi tüüp", "Hobide jaotus ettevõtte valdkonna järgi", 
       x_veerg = "Ettevõtte valdkond", y_veerg = "n", sisu_veerg = "variable",
       xtelg = "Ettevõtte suurus", ytelg = "Esinemiste hulk") + scale_x_discrete(limits=c("Haridus, teadus", "Pangandus, kindlustus, kinnisvara", "Riigiteenistus, haldus, sotsiaalsfäär, tervishoid", "Teenindus, kaubandus, transport", "Telekommunikatsioon, infotehnoloogia", "Tööstus, energeetika, ehitus"), labels=c("Haridus,\nteadus", "Pangandus,\nkindlustus,\nkinnisvara", "Riigiteenistus,\nhaldus,\nsotsiaalsfäär,\ntervishoid", "Teenindus,\nkaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Tööstus,\nenergeetika,\nehitus"))

\(~\)

\(~\)

\(~\)

2.4 Hobide korrelatsioonid

2.4.1 Hobide korrelatsioonid

Enesearenduslike hobide (H2) harrastajad tegelevad piged rohkem lugemise (H5; keskmine positiivne seos 0.35) ning pere ja sõpradega aja veetmisega (H6; keskmine positiivne seos 0.35) ning võivad rohkem tegeleda aktiivsete tegevustega (H1; nõrk positiivne seos 0.25).

Kultuuri ja meelelahtuse (H3) harrastajad võivad vähem pere ja sõpradega aega veeta (H6; nõrk negatiivne seos -0.21).

# Skalaarvastused asendatakse numbritega
hobid_tunnused_numbritena <- asenda_skalaartunnused_numbritega(hobid1, NULL) # df vastustega

# Luuakse lühendatud veerunimedega sagedustabel
hobid_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(hobid_tunnused_numbritena,
                        "H")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
hobid_korrelatsioonitabel <- tee_korrelatsioonitabel(hobid_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(hobid_korrelatsioonitabel, # Korrelatsioonitabel
                        "Hobide korrelatsioonid", # Joonise pealkiri
                        luhenda_sagedustabeli_veerunimed(hobid_tunnused_numbritena, "H")[[2]]) # Lühendatud veerunimede ja neile vastavate väärtuste vektor

2.4.2 Hobide korrelatsioonid füüsilise tervise näitajatega

Mõned hobid on füüsilise aktiivsuse ja näksimisega seotud:

Lugejad (H5): tegelevad pigem rohkem aktiivse liikumise/trenniga (Ft3; positiivne kesmine seos 0.3), kuid on pigem rohkem toidukordade vahel näksijad (Ft5; positiivne keskmine seos 0.33).

Aktiivsete hobide (H1) harrastajad on tegelevad pigem rohkem aktiivse liikumise/trenniga (Ft3; 0.38), mis annab mõista, et paljud liiguvad seoses oma hobidega. Samuti võivad nad rohkem toidukordade vahel näksida (Ft5; nõrk positiivne seos 0.21), kuid tuleb silmas pidada asjaolu, et aktiivne liikumine suurendab energiavajadust, mistõttu ei pruugi korrelatsioon liikumise ja näksimise vahel antud kontekstis negatiivse tähendusega olla.

Enesearenduslike hobide (H2) harrastajad võivad rohkem toidukordade vahel näksida (Ft5; nõrk positiivne seos 0.27) ja vähem jalgsi, jalgratta või muu kergliikuriga ühest punktst teise liikuda (Ft1; nõrk negatiivne seos -0.21).

Mõned hobid on seotud ka negatiivsete tervisenäitajatega:

Tervisekaebusi (Ft2) on loovate tegevuste harrastajatel pigem rohkem (H4; keskmine positiivne seos 0.55) ning võib olla rohkem ka lugejatel (H5; 0.28).

Pere ja sõpradega aja veetjatel (H6) on pigem ebaregulaarsem unegraafik (Ft4; keskmine negatiivne seos -0.32).

tee_filtreeritud_korrelatsioonimaatriks(hobid_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Hobide ja füüsilise tervise näitajate korrelatsioonid")

2.4.3 Hobide korrelatsioonid vaimse tervise näitajatega

Vaimsed hobid seonduvad eneseäiendamisega: enesetäiendamisega (Vt4) tegelevad pigem rohkem kultuuri ja meelelahtuse harrastajad (H3; keskmine positiivne seos 0.53) ja lugejad (H5; keskmine positiivne seos 0.3).

Vaimse tervise riskitegurite maandamiseks harrastatate teatud hobisid:

Ärevuse või depressiooni sümptomeid (Vt3) kogevad pigem sagaedamini enesearenduslike hobide harrastajad (H2; keskmine positiivne seos 0.44) ja lugejad (H5; keskmine positiivne seos 0.53) ning võivad kogeda rohkem aktiivsete tegevustega tegelejad (H1; nõrk positiivne seos 0.24). Pere ja sõpradega aja veetjad (H6; nõrk negatiivne seos -0.29) võivad neid aga vähem kogeda.

Aktiivsete hobide (H1) harrastajad kogevad pigem rohkem tööstressi (Vt2; keskmine positiivne seos 0.36) ja võivad vähem hooseisundis töötada (Vt5; nõrk negatiivne seos -0.21).

Enesearenduslike hobide (H2) harrastajad kogevad samuti pigem rohkem tööstressi (Vt2; keskmine positiivne seos 0.3).

tee_filtreeritud_korrelatsioonimaatriks(hobid_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Hobide ja vaimse tervise näitajate korrelatsioonid")

2.4.4 Hobide korrelatsioonid sotsiaalse tervise näitajatega

Korrelatsioonianalüüsist ilmneb, et linnakus on tõenäosliselt piisavalt võimalusi seltsimiseks aktiivsetele inimestele ja linnakut tajutakse kohana, kus pere ja sõpradega olla:

Aktiivsete hobide harrastajad (H1) veedavad pigem rohkem linnakus vaba aega (St3; keskmine positiivne seos 0.32) ning võivad rohkem töökaaslastega suhelda (St2; 0.25).

Pere ja sõpradega aja veetjad (H6) osalevad pigem rohkem linnaku üritustel (St4; keskmine positiivne seos 0.45) ja veedavad linnakus vaba ega (St3; keskmine positiivne seos 0.33).

Linnakus võib aga puudust olla kultuuri ja meelelahutuse ning enesearendusega seonduvatest võimalustest:

Kultuuri ja meelelahutuse harrastajad (H3) suhtlevad pigem vähem töökaaslastega (St2; keskmine negatiivne seos -0.42), osalevad pigem vähem linnaku üritustel (St4; keskmine negatiivne seos -0.32) ja võivad vähem linnakus vaba aega veeta (St3; nõrk negatiivne seos -0.2).

Enesearenduslike hobide (H2) harrastajad tegelejad võivad vähem linnakus vaba aega veeta (St3; nõrk positiivne seos 0.25).

tee_filtreeritud_korrelatsioonimaatriks(hobid_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Hobide ja sotsiaalse tervise näitajate korrelatsioonid")

2.4.5 Hobide korrelatsioonid töötajate vanusega

Kuna kõige rohkem on seltsimiseks võimalusi aktiivsete ja sotsiaalsete hobide harrastajatele, ei pruugi linnakus kõigile vanuserühmadele piisavalt võimalusi olla:

Vanusreühmas 18-30 ei ole kindlaid hobisid välja toodud. On mingi võimalus, et tegeldakse rohkem lugemisega (H5; väga nõrk positiivne seos 0.16) ja harrastatakse enesearenduslikke hobisid (H2; väga nõrk positiivne seos 0.14) ning vähem veedetakse pere ja sõpradega aega (H6; väga nõrk negatiivne seos -0.17). Antud vanuserühm vajaks rohkem vaimse ja sotsiaalse tervisega seonduvat tuge (2.2.4), seega neile võiks luua võimalusi sotsiaalsete ja vaimset tevrist toetavate hobidega tegeleda.

Vanusreühm 50-60 harrastab kultuuri ja meelelahutust pigem rohkem (H3; keskmine positiivne seos 0.54) ning võib vähem tegeleda lugemisega (H5; nõrk negatiivne seos -0.23). Antud vanuserühm vajaks rohkem füüsilise tervisega seonduvattuge (2.2.4), seega neile võiks luua võimalusi aktiivsete hobidega tegeleda.

Vanusreühm 60-70 võib vähem tegeleda aktiivsete tegevuste (H1; nõrk negatiivne seos -0.29) ja lugemisega (H5; nõrk negatiivne seos -0.2). Antud vanuserühm vajaks rohkem vaimse tervisega seonduvat tuge (2.2.4), seega neile võiks luua võimalusi vaimset tevrist toetavate hobidega tegeleda.

Mõnele vanuserühmale on linnaus tõenäoliselt piisavalt võimalusi:

Vanusreühm 30-40 tegeleb pigem rohkem enesearenduslike hobidega (H2; keskmine positiivne seos 0.35) ja võib rohkem pere ja sõpradega aega veeta (H6; nõrk positiivne seos 0.26). Antud vanuserühm on kõige sotsiaalsem (maatriks 2.2.4).

Vanusreühm 40-50 tegeleb pigem rohkem loovate tegevustega (H4; nõrk positiivne seos 0.22) ning vähem enesearenduslikke hobisid (H2; keskmine negatiivne seos -0.31) ning kultuuri ja meelelahutust (H3; nõrk negatiivne seos -0.22) harrastada. Antud vanuserühm vajaks rohkem füüsilise tervisega seonduvat tuge (2.2.4), seega neile võiks luua võimalusi aktiivsete hobidega tegeleda.

tee_filtreeritud_korrelatsioonimaatriks(hobid_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Hobide ja töötajate vanuse korrelatsioonid")

2.4.6 Hobide korrelatsioonid ettevõtte andmetega

Kodumaiste ettevõtete töötajad võivad rohkem enesearenduslike hobide harrastajad (H2; nõrk positiivne seos 0.2) tegeleda.

Rahvusvaheliste ettevõtete töötajad võivad vähem enesearenduslike hobide harrastajad (H2; nõrk negatiivne seos -0.21) tegeleda.

Väikeste ettevõtete töötajad võivad vähem loovaid hobisid (H4; nõrk negatiivne seos -0.21) harrastada.

Keskmise suurusega ettevõtete töötajad harrastavad pigem rohkem loovaid hobisid (H4; keskmine positiivne seos 0.33) ning loevad pigem vähem (H5; keskmine negatiivne seos -0.44) võivad vähem enesearenduslikke hobisid harrastada (H2; nõrk negatiivne seos -0.21).

Riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu valdkonna töötajad võivad rohkem aktiivseid (H1; nõrk positiivne seos 0.21) ja enesearenduslikke (H2; nõrk positiivne seos 0.2) hobisid harrastada ning vähem loovaid tegevusi (H4; nõrk negatiivne seos -0.21).

Tööstuse, energeetika, ehituse valdkonna töötajad võivad vähem lugeda (H5; nõrk negatiivne seos -0.29).

Hariduse, teaduse valdkonna töötajad tegelevad pigem rohkem kultuuri ja meelelahtust harrastada (H3; keskmine positiivne seos 0.38) ja võivad vähem pere ja sõpradega aega veeta (H6; nõrk negatiivne seos -0.22).

Telekommunikatsiooni, infotehnoloogia valdkonna töötajad võivad vähem tegeleda aktiivsete tegevustega (H1; nõrk negatiivne seos -0.29).

Teeninduse, kaubanduse, transpordi valdkonna töötajad veedavad pigem rohkem pere ja sõpradega aega (H6; keskmine positiivne seos 0.49) ja võivad vähem tegeleda aktiivsete tegevustega (H1; nõrk positiivne seos 0.25).

Panganduse, kindlustuse, kinnisvara valdkonna töötajad võivad rohkem tegeleda lugemisega (H5; nõrk positiivne seos 0.24)

tee_filtreeritud_korrelatsioonimaatriks(hobid_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Hobide ja ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

2.5 Millistest tervist toetavatest võimalustest hetkel puudust tunned?

2.5.1 Vastused

Peamiselt tuntakse puudust sportimisvõimalustest.

Küsimusele “Kas sa tunned hetkel, et mõni töökeskkonnaga seonduv aspekt vajaks rohkem tähelepanu?” vastati järgmiselt:

• “kommunikatsioon”

• “juhi tähelepanu töötajate vaimsele tervisele”

• “Vähem autosid”
  

• “töökoormus”
  

• “Vaimne ja sotsiaalne tervis”

• “Vaikseid töötamise kohti linnakus võiks isegi rohkem olla nii siseruumides kui väljas. See ehitusmüra ja lennukite toss tegelikult nullib selle hea keskkonna ära.”

• “Töörahu tahaks ehk vähem pidevaid muutuseid töökeskkonnas, töökorralduses, kolleegide vahetumises ja tööülesannete lisandumises-vahetumises, informatsiooni asukohtade paljusus, tööprogrammide pidev muutus.”

ttv <- read_tsv("andmed/kysitlus - Puudus tervist toetavatest võimalustest.tsv", show_col_types = FALSE)

ttv_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(ttv, "Ajatempel")

ttv_pikk_sagedustabel <- ttv_pikk_sagedustabel %>%
  mutate(`Sagedus` = ifelse(!is.na(`Sagedus`), 1, `Sagedus`))

ttv_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(ttv_pikk_sagedustabel, NULL)

uhendtabel_ttv_uldandmed <- merge(ttv_pikk_sagedustabel, df_new_1[, c("Ajatempel", "Ettevõtte suurus", "Ettevõtte tüüp", "Ettevõtte valdkond", "Vanus")], by = "Ajatempel")

joonis(ttv_sagedustabel_summadega, "Võimaluse tüüp", "Millistest tervist toetavatest võimalustest hetkel puudust tunned?", y_veerg = "n", sisu_veerg = "variable") + theme(
  axis.text.x = element_blank())

\(~\)

2.5.2 Vastused ettevõtte asukoha järgi

# Puuduolevate võimaluste ja ettevõtte tüübi jaotuse põhjal sagedustabeli tegemine
puudus_voimalustest_tyyp <- uhendtabel_ttv_uldandmed %>%
  count(`Ettevõtte tüüp`, `variable`)

# Joonise tegemine
joonis(puudus_voimalustest_tyyp, "Võimaluse tüüp", "Millistest tervist toetavatest võimalustest hetkel puudust tunned?", alapealkiri = "Ettevõtte asukoha järgi",
       x_veerg = "Ettevõtte tüüp", y_veerg = "n", sisu_veerg = "variable",
       xtelg = "Ettevõtte asukoht", ytelg = "Esinemiste hulk")

\(~\)

2.5.3 Vastused ettevõtte suuruse järgi

Väikestes ettevõtetes tuntalse peamiselt puudust tervishoiuvõimlaustest ning keskmise suurusega ettevõtetes sportimisvõimalustest. Tulemused on Tervisemudeliga kooskõlas.

# Puuduolevate võimaluste ja ettevõtete suuruste jaotuse põhjal dataframei tegemine
puudus_voimalustest_suurus <- uhendtabel_ttv_uldandmed %>%
  count(`Ettevõtte suurus`, `variable`) # loendamine

# joonise tegemine
joonis(puudus_voimalustest_suurus, "Võimaluse tüüp", "Millistest tervist toetavatest võimalustest hetkel puudust tunned?", alapealkiri = "Ettevõtte suuruse järgi",
       x_veerg = "Ettevõtte suurus", y_veerg = "n", sisu_veerg = "variable",
       xtelg = "Ettevõtte suurus", ytelg = "Esinemiste hulk") + scale_x_discrete(limits=c("Mikroettevõte (< 10 töötajat)", "Väike ettevõte (< 50 töötajat)", "Keskmise suurusega ettevõte (< 250 töötajat)", "Suur ettevõte (> 250 töötajat)", "Ettevõtte suurust pole määratud"), labels=c("Mikroettevõte", "Väike ettevõte", "Keskmise\nsuurusega\nettevõte", "Suur ettevõte", "Ettevõtte suurust\npole määratud"))

\(~\)

2.5.4 Puuduolevate tervist toetavate võimaluste korrelatsioonid

Vaimse tervisega seonduvatest võimalustest puudust tundjad tunnevad pigem vähem füüsilise tervisega seonduvatest võimalustest puudust (keskmine negatiivne seos; -0.33) ja võivad rohkem töökeskkonnaga seonduvatest võimalustest (nõrk positiivne seos; 0.29) puudust tunda.

# Skalaarvastused asendatakse numbritega
ttv_numbritena <- asenda_skalaartunnused_numbritega(ttv, NULL) # df vastustega


# Luuakse lühendatud veerunimedega sagedustabel
ttv_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(ttv_numbritena,
                        "TTV")[[1]]


# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
ttv_korrelatsioonitabel <- tee_korrelatsioonitabel(ttv_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(ttv_korrelatsioonitabel, # Korrelatsioonitabel
                        "Puuduolevate tervist toetavate võimaluste korrelatsioonid", # Joonise pealkiri
                        luhenda_sagedustabeli_veerunimed(ttv_numbritena, "TTV")[[2]]) # Lühendatud veerunimede ja neile vastavate väärtuste vektor

\(~\)

2.5.5 Puuduolevate tervist toetavate võimaluste ja füüsilise tervise näitajate korrelatsioonid

Füüsilise tervisega seonduvatest võimalustest puudust tundjad võivad vähem tegeleda aktiivse liikumise/trenniga (Ft3; nõrk negatiivne seos -0.29) ja neil võib olla vähem tervisekaebusi (Ft2; nõrk negatiivne seos -0.28).

Töökeskkonnaga seonduvatest võimalustest puudust tundjad võivad vähem jalgsi, jalgratta või muu kergliikuriga ühest punktist teise liikuda (Ft1; nõrk negatiivne seos -0.21).

# Korrelatsioonimaatriksi tegemine
tee_filtreeritud_korrelatsioonimaatriks(ttv_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, # Korrelatsioonitabel
                        "Puuduolevate tervist toetavate võimaluste\nja füüsilise tervise näitajate korrelatsioonid") # Joonise pealkiri

\(~\)

2.5.6 Puuduolevate tervist toetavate võimaluste ja vaimse tervise näitajate korrelatsioonid

Füüsilise tervisega seonduvatest võimalustest puudust tundjad võivad vähem kogeda ärevuse või depressiooni sümptomeid (Vt3; nõrk negatiivne seos -0.2), teevad pigem rohkem ületunde (Vt1; keskmine positiivne seos 0.31) ja võivad vähem hooseisundis töötada (Vt5; nõrk negatiivne seos -0.2).

Vaimse tervisega seonduvatest võimalustest puudust tundjad kogevad pigem rohkem tööstressi (Vt2; keskmine positiivne seos 0.3).

Töökeskkonnaga seonduvatest võimalustest puudust tundjatel võivad rohkem enesetäiendamisega tegeleda (Vt4; nõrk positiivne seos 0.2), kogeda tööstressi (Vt2; nõrk positiivne seos 0.21) ja ärevuse või depressiooni sümptomeid (Vt3; nõrk positiivne seos 0.21).

# Korrelatsioonimaatriksi tegemine
tee_filtreeritud_korrelatsioonimaatriks(ttv_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, # Korrelatsioonitabel
                        "Puuduolevate tervist toetavate võimaluste ja vaimse tervise näitajate\nkorrelatsioonid") # Joonise pealkiri

\(~\)

2.5.7 Puuduolevate tervist toetavate võimaluste ja sotsiaalse tervise näitajate korrelatsioonid

Füüsilise tervisega seonduvatest võimalustest puudust tundjad võivad rohkem töökaaslastega suhelda (St2; nõrk positiivne seos 0.24) ning vähem linnakus vaba aega veeta (St3; nõrk negatiivne seos -0.24).

Vaimse tervisega seonduvatest võimalustest puudust tundjatel võivad rohkem linnakus vaba aega veeta (St3; nõrk positiivne seos 0.25).

Töökeskkonnaga seonduvatest võimalustest puudust tundjatel võivad vähem ületunde teha (St1; nõrk negatiivne seos -0.22), pigem vähem töökaaslastega suhelda (St2; keskmine negatiivne seos -0.3) ja võivad vähem linnaku üritustel osaleda (St4; nõrk negatiivne seos -0.25).

# Korrelatsioonimaatriksi tegemine
tee_filtreeritud_korrelatsioonimaatriks(ttv_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, # Korrelatsioonitabel
                        "Puuduolevate tervist toetavate võimaluste\nja sotsiaalse tervise näitajate korrelatsioonid") # Joonise pealkiri

\(~\)

2.5.8 Puuduolevate tervist toetavate võimaluste korrelatsioonid töötajate vanusega

Vanuserühm 40-50 võib vähem töökeskkonnaga seonduvatest võimalustest puudust tunda (TTV3; nõrk negatiivne seos -0.21).

Vanuserühm 50-60 võib rohkem töökeskkonnaga seonduvatest võimalustest puudust tunda (TTV3; nõrk positiivne seos 0.29).

Vanuserühm 60-70 võib rohkem füüsilise tervisega seonduvatest võimalustest puudust tunda (TTV1; nõrk positiivne seos 0.21).

tee_filtreeritud_korrelatsioonimaatriks(ttv_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Puuduolevate tervist toetavate võimaluste\nkorrelatsioonid töötajate vanusega")

\(~\)

2.5.9 Puuduolevate tervist toetavate võimaluste korrelatsioonid ettevõtte andmetega

Kodumaiste ettevõtete töötajad võivad rohkem töökeskkonnaga seonduvatest võimalustest puudust tunda (TTV3; nõrk positiivne seos 0.27).

Mikroettevõtete töötajad võivad vähem füüsilise tervisega seonduvatest võimalustest puudust tunda (TTV1; nõrk negatiivne seos -0.22)

Väikestel ettevõtetel töötajad võivad rohkem füüsilise tervisega seonduvatest võimalustest puudust tunda (TTV1; nõrk positiivne seos 0.25) ja vähem vaimse tervisega seonduvatest võimalustest puudust tunda (TTV2; nõrk negatiivne seos -0.23)

Hariduse, teaduse valdkonna töötajad võivad rohkem vaimse tervisega seonduvatest võimalustest puudust tundaa (TTV2; nõrk positiivne seos 0.23).

Panganduse, kindlustuse, kinnisvara valdkonna töötajad võivad vähem füüsilise tervisega seonduvatest võimalustest puudust tunda (TTV1; nõrk negatiivne seos -0.22).

tee_filtreeritud_korrelatsioonimaatriks(ttv_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Puuduolevate tervist toetavate võimaluste korrelatsioonid ettevõtte andmetega") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

\(~\)

3. Huvi tervist toetavate ürituste aspektide vastu

3.1 Üldised küsimused

3.1.1 Keskkonnamuutuse eeldatav mõju tööstressile

# Ringidiagrammi tegemine
loo_ringdiagramm(kysitlus, 
                 "Kas tunned, et keskkonnamuutus võiks tööstressi vähendada?", 
                 "Kas tunned, et keskkonnamuutus võiks tööstressi vähendada?", 
                 "Arvamus")

3.1.2 Töökeskkonna paindlikkus

# Ringidiagrammi tegemine
loo_ringdiagramm(kysitlus, 
                 "Kas sinu töö on selline, et seda oleks võimalik teha mistahes sobivas internetiühendusega keskkonnas?", 
                 "Tööd on võimalik teha mistahes sobivas internetiühendusega keskkonnas", 
                 "Arvamus")

3.1.3 Üldiste küsimuste korrelatsioonid tervisenäitajatega

Töötajatel, kes tunnevad, et keskkonnamuutus võiks tööstressi vähendada (ÜK1 - Jah), võib olla regulaarsem unegraafik (Ft4; nõrk positiivne seos 0.21) ning nad võivad rohkem ületunde teha (St1; nõrk positiivne seos 0.29), toidukordade vahel näksida (Ft5; nõrk positiivne seos 0.25) ja ületunde teha (Vt1; nõrk positiivne seos 0.28).

Töötajatel, kes tunnevad, et keskkonnamuutus ei võiks tööstressi vähendada (ÜK1 - Ei), võivad olla regulaarsemad sööjad (Ft6; nõrk positiivne seos 0.21), nad on pigem rohkem üle 5 tunni päevas ekraani ees istujad (Ft7; keskmine positiivne seos 0.48) ja võivad olla rohkem toidukordade vahel näksijad (Ft5; nõrk positiivne seos 0.23) ning neil võib olla rohkem tervisekaebusi (Ft2; nõrk positiivne seos 0.27).

Töötajad, kelle töö on selline, mida on võimalik teha mistahes sobiavs internetiühendusega keskkonnas (ÜK2 - Jah), tegelevad pigem rohkem aktiivnse liikumise/trenniga (Ft3; keskmine positiivne seos 0.34) ja teevad vähem ületunde (Vt1; keskmine negatiivne seos -0.39), on ebaregulaarsema unegraafiku (Ft4; nõrk negatiivne seos -0.24) ja söömisega (Ft6; nõrk negatiivne seos -0.26).

Töötajad, kelle töö on selline, mida pole võimalik teha mistahes sobivas internetiühendusega keskkonnas (ÜK2 - Ei) teevad pigem vähem kaugtööd (St1; keskmine negatiivne seos -0.36), suhtlevad pigem vähem töökaaslastega (St2; keskmine negatiivne seos -0.3), tegelevad pigem vähem enesetäiendmamisega (Vt4; keskmine negatiivne seos -0.32) ja võivad vähem linnaku üritustel osaleda (St4; nõrk negatiivne seos -0.25).

Töötjad, kelle töö on selline, mille vastavus keskkonnale oleneb keskkonnast või tööülesandest (ÜK2 - Oleneb) teevad pigem rohkem ületunde (Vt1; keskmine positiivne seos 0.43), võivad vähem aktiivse liikumise/trenniga tegeleda (Ft3; nõrk negatiivne seos -0.29) ja rohkem tööstressi kogeda (Vt2; nõrk positiivne seos 0.24).

uhendatud_uldised_kusimused <- uhendatud_veerud_arvulisteks_tunnusteks(kysitlus[, c("Ajatempel", "Kas tunned, et keskkonnamuutus võiks tööstressi vähendada?", 
                "Kas sinu töö on selline, et seda oleks võimalik teha mistahes sobivas internetiühendusega keskkonnas?")] ) 


colnames(uhendatud_uldised_kusimused) <- c("Ajatempel", "ÜK1 - Jah", "ÜK1 - Ei", "ÜK2 - Jah", "ÜK2 - Oleneb", "ÜK2 - Ei") #TM1 - töövõime
#TM2 - stressitase


tee_filtreeritud_korrelatsioonimaatriks(ft_vt_st_koos, uhendatud_uldised_kusimused, "Üldiste küsimuste korrelatsioonid tervisenäitajatega") + labs(subtitle = paste(c("ÜK1 - Kas tunned, et keskkonnamuutus võiks tööstressi vähendada?", "ÜK2 - Kas sinu töö on selline, et seda oleks võimalik teha mistahes sobivas\ninternetiühendusega keskkonnas?"), collapse = "\n")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

3.1.4 Üldiste küsimuste korrelatsioonid töötajate vanusega

Vanuserühmal 18-30 võib olla selline töö, mida ei ole võimalik mistahes sobivas internetiühendusega keskkonnas teha (ÜK2; nõrk positiivne seos 0.29). Vanuserühmal 60-70 on suure tõenäosusega selline töö, mida ei ole võimalik mistahes sobivas internetiühendusega keskkonnas (ÜK2; positiivne tugev seos; 0.7).

Vanusetühmal 40-50 on pigem selline töö, mida on võimalik mistahes sobivas internetiühendusega keskkonnas teha (ÜK2; keskmine positiivne seos 0.37). Vanuserühma 50-60 puhul võib töö vastavus keskkonnale oleneda tööülesandest või keskkonast (ÜK2; nõrk positiivne seos 0.29).

tee_filtreeritud_korrelatsioonimaatriks(uhendatud_uldised_kusimused, tootaja_uldandmed, "Üldiste küsimuste korrelatsioonid töötajate vanusega") + labs(subtitle = paste(c("ÜK1 - Kas tunned, et keskkonnamuutus võiks tööstressi vähendada?", "ÜK2 - Kas sinu töö on selline, et seda oleks võimalik teha mistahes sobivas\ninternetiühendusega keskkonnas?"), collapse = "\n")) + scale_x_discrete(labels=c("ÜK1\nJah", "ÜK1\nEi", "ÜK2\nJah", "ÜK2\nOleneb", "ÜK2\nEi")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

3.1.5 Üldiste küsimuste korrelatsioonid ettevõtte andmetega

Kodumaiste ettevõtete töötajad tunnevad pigem, et keskkonnamuutus võiks tööstressi vähendada (ÜK1; keskmine positiivne seos 0.49).

Väikeste ettevõtete töötajatel on pigem selline töö, mida on võimalik mistahes sobivas internetiühendusega keskkonnas teha (ÜK2; keskmine positiivne seos 0.6). Keskmise suuresega ettevõtete töötajatel võib olla selline töö, mida on võimalik mistahes sobivas internetiühendusega keskkonnas teha (ÜK2; nõrk positiivne seos 0.24). Suurte ettevõtete töötajate puhul võib töö vastavus keskkonnale oleneda tööülesandest või keskkonast (ÜK2; keskmine positiivne seos 0.33).

Tööstuse, energeetika, ehituse valdkonna töötajad võivad tunda, et keskkonnamuutus võiks tööstressi vähendada (ÜK1; nõrk positiivne seos 0.24) ning neil pigem ei ole selline töö, mida on võimalik mistahes sobivas internetiühendusega keskkonnas teha (ÜK2; keskmine positiivne seos 0.47).

Hariduse, teaduse valdkonna töötajate puhul võib töö vastavus keskkonnale oleneda tööülesandest või keskkonast (ÜK2; nõrk positiivne seos 0.27).

Telekommunikatsiooni, infotehnoloogia valdkonna töötajad võivad tunda, et keskkonnamuutus võiks tööstressi vähendada (ÜK1; nõrk positiivne seos 0.2).

Teeninduse, kaubanduse, transpordi valdkonna töötajatel võib olla selline töö, mida on võimalik mistahes sobivas internetiühendusega keskkonnas teha (ÜK2; nõrk positiivne seos 0.22).

Panganduse, kindlustuse, kinnisvara valdkonna töötajatel on pigem selline töö, mida on võimalik mistahes sobivas internetiühendusega keskkonnas teha (ÜK2; keskmine positiivne seos 0.41).

tee_filtreeritud_korrelatsioonimaatriks(uhendatud_uldised_kusimused, ettevotte_uldandmed, "Üldiste küsimuste korrelatsioonid ettevõtte andmetega") + labs(subtitle = paste(c("ÜK1 - Kas tunned, et keskkonnamuutus võiks tööstressi vähendada?", "ÜK2 - Kas sinu töö on selline, et seda oleks võimalik teha mistahes sobivas\ninternetiühendusega keskkonnas?"), collapse = "\n")) + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + scale_x_discrete(labels=c("ÜK1\nJah", "ÜK1\nEi", "ÜK2\nJah", "ÜK2\nOleneb", "ÜK2\nEi")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

\(~\)

3.2 Tööritriidi aspektide eeldatav mõju tööprotsessile ja korrelatsioonid

3.2.1 Tööritriidi aspektide eeldatav mõju tööprotsessile

Kõige tähtsamateks tööritriidi aspektideks peetalse regulaarsete tööpauside tegemist ning eesmärkide seadmist ja nende täitmise kontrolli. Mõnevõrra tähtsaks valiti kõige rohkem struktureeritud päevakava ning tähtsuselt järgmistena eelmainitud aspektid.

list_tr_aspektid <- list("Palun hinda, millisel määral järgmised tööritriidi aspektid sinu tööprotsessi toetada võivad [Ei mõjuta]", 
                "Palun hinda, millisel määral järgmised tööritriidi aspektid sinu tööprotsessi toetada võivad [Mõnevõrra]",
                "Palun hinda, millisel määral järgmised tööritriidi aspektid sinu tööprotsessi toetada võivad [Olulisel määral]")


#sagedustabel_tr_aspektid <- add_row(sagedustabel_tr_aspektid, Sagedus = "Mõnevõrra", variable = "Muu: Tööülesannete teistega jagamine", value = 1)

#sagedustabel_tr_aspektid <- add_row(sagedustabel_tr_aspektid, Sagedus = "Olulisel määral", variable = "Muu: Kovisioon (kolleegidega ja ülemusega)", value = 1)

# Töötritiidi aspektide tähtsuse hinnangu põhjal sagedustabeli tegemine
tr_aspektid_lai_sagedustabel <- tee_skalaarkysimuste_lai_sagedustabel(list_tr_aspektid, ",\\s*(?=[A-ZÄÖÜ])|,(?=[A-ZÄÖÜ])") 


tr_aspektid_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(tr_aspektid_lai_sagedustabel[[1]], "Ajatempel")

tr_aspektid_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(tr_aspektid_pikk_sagedustabel, tr_aspektid_lai_sagedustabel[[2]])



joonis(tr_aspektid_sagedustabel_summadega, 
       "Tööritriidi aspektid",
       "Tööritriidi aspektide mõju tööprotsessile",
       y_veerg = "n")

3.2.2 Tööritriidi aspektide eeldatava mõju korrelatsioonimaatriks

Töötajad, kelle arvates tööülesannete alaülesanneteks jaotamine (Tr3) nende tööprotsessi toetada võib, arvates on pigem suurem mõju ka eesmärkide seadmisel ja nende täitmise kontrollil (Tr1; keskmine positiivne seos 0.65), regulaarsete tööpauside tegemisel (Tr2; keskmine positiivne seos 0.54), mentorite olemasolu (Tr4; keskmine positiivne seos 0.46) ning struktureeritud päevakava (Tr6; keskmine positiivne seos 0.41).

Töötajad, kelle arvates mentorite olemasolu (Tr4) nende tööprotsessi toetada võib, peavad pigem suurema mõjuga aspektideks ka eesmärkide seadmist ja nende täitmise kontrolli (Tr1; keskmine positiivne seos 0.45) ja võivad kasulikusk pidada ka regulaarsete tööpauside tegemist (Tr2; nõrk positiivne seos 0.28).

Töötajad, kelle arvates eesmärkide seadmine ja nende täitmise kontroll (Tr1) nende tööprotsessi toetada võib, võivad pidada kasulikuks ka regulaarsete tööpauside tegemist (Tr2; nõrk positiivne seos 0.26) ja struktureeritud päevakava (Tr6; nõrk positiivne seos 0.25).

# Skalaarvastused asendatakse numbritega
tr_aspektid_numbritena <- asenda_skalaartunnused_numbritega(tr_aspektid_lai_sagedustabel[[1]], # df vastustega
                                                            tr_aspektid_lai_sagedustabel[[2]]) # skalaarvastused

# Luuakse lühendatud veerunimedega sagedustabel
tr_aspektid_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(tr_aspektid_numbritena,
                        "Tr")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
tr_aspektid_korrelatsioonitabel <- tee_korrelatsioonitabel(tr_aspektid_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(tr_aspektid_korrelatsioonitabel, # Korrelatsioonitabel
                        "Tööritriidi aspektide eeldatava mõju korrelatsioonid", # Joonise pealkiri
                        luhenda_sagedustabeli_veerunimed(tr_aspektid_numbritena,
                        "Tr")[[2]]) # Lühendatud veerunimede ja neile vastavate väärtuste vektor

3.2.3 Tööritriidi aspektide eeldatava mõju ja füüsilise tervise näitajate korrelatsioonimaatriks

Töötajad, kelle arvates eesmärkide seadmine ja nende täitmise kontroll (Tr1) ning tööülesannete alaülesanneteks jaotamine nende tööprotsessi toetada võib, võivad rohkem tegeleda aktiivse liikumise/trenniga (Ft3; Tr1 nõrk positiivne seos 0.23, Tr3 nõrk positiivne seos 0.26), toidukordade vahel näksida (Ft5; Tr1 nõrk positiivne seos 0.21, Tr3 keskmine positiivne seos 0.33) ning vähem jalgsi, jalgratta või muu kergliikuriga ühest punktist teise liikuda (Ft1; Tr1 nõrk negatiivne seos -0.22, Tr3 keskmine negatiivne seos -0.33).

Töötajad, kelle arvates regulaarsete tööpauside tegemine (Tr2) nende tööprotsessi toetada võib, võivad rohkem toidukordade vahel näksida (Ft5; nõrk positiivne seos 0.28).

Töötajad, kelle arvates mentorite olemasolu (Tr4) nende tööprotsessi toetada võib, on pigem rohkem üle 5 tunni päevas ekraani ees (Ft7; keskmine positiivne seos 0.32) ning võivad rohkem olla regulaarse unegraafikuga (Ft4; nõrk positiivne seos 0.26) ja tegeleda aktiivse liikumise/trenniga (Ft3; nõrk positiivne seos 0.23).

Töötajad, kelle arvates piiritletud tööaeg (Tr5) nende tööprotsessi toetada võib, liiguvad pigem rohkem jalgsi, jalgratta või muu kergliikuriga ühest punktist teise (Ft1; keskmine positiivne seos 0.3), võivad rohkem üle 5 tunni päevas ekraani ees (Ft7; nõrk positiivne seos 0.28) ja ebaregulaarse unegraafikuga (Ft4; nõrk negatiivne seos -0.21) olla.

Töötajad, kelle arvates struktureeritud päevakava (Tr6) nende tööprotsessi toetada võib, võivad rohkem olla rgeulraased sööjad (Ft6; nõrk positiivne seos 0.26), neil võivad rohkem olla tervisekaebusi (Ft2; nõrk positiivne seos), ebaregulaarsem unegraafiku (Ft4; nõrk negatiivne seos -0.28) ja vähem jalgsi, jalgratta või muu kergliikuriga ühest punktist teise liikuda (Ft1; nõrk negatiivne seos -0.27).

tee_filtreeritud_korrelatsioonimaatriks(tr_aspektid_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Tööritriidi aspektide eeldatava mõju ja füüsilise tervise näitajate\nkorrelatsioonid")

3.2.4 Tööritriidi aspektide eeldatava mõju ja vaimse tervise näitajate korrelatsioonimaatriks

Töötrateegiaid rakendavatel töötatajatel on paremad vaimse tervise näitajad:

Töötajad, kelle arvates eesmärkide seadmine ja nende täitmise kontroll (Tr1) nende tööprotsessi toetada võib, võivad rohkem tegeleda enesetäiendamisega (Vt4; nõrk positiivne seos 0.27) ja vähem teha ületunde (Vt1; nõrk negatiivne seos -0.21).

Töötajad, kelle arvates tööülesannete alaülesanneteks jaotamine (Tr3) nende tööprotsessi toetada võib, tegelevad pigem rohkem enesetäiendamisega (Vt4; keskmine positiivne seos 0.33).

Töötajad, kelle arvates mentorite olemasolu (Tr4) nende tööprotsessi toetada võib, võivad vähem ületunde teha (Vt1; nõrk negatiivne seos -0.23) ja tööstressi kogeda (Vt2;nõrk negatiivne seos -0.21).

Halvemate vaimse tervisega näitajatega töötajad tunnevad vajadust konkreetsete strateegiate järgi:

Töötajad, kelle arvates tööülesannete alaülesanneteks jaotamine (Tr3) nende tööprotsessi toetada võib võivad rohkem kogeda ärevuse või depressiooni sümptomeid (Vt3; nõrk positiivne seos 0.24).

Töötajad, kelle arvates piiritletud tööaeg (Tr5) nende tööprotsessi toetada võib, töötavad pigem vähem hooseisundis (Vt5; keskmine negatiivne seos -0.43), kogevad pigem rohkem ärevuse või depressiooni sümptomeid (Vt3; keskmine positiivne seos 0.39) ja võivad rohkem kogeda tööstessi (Vt2; nõrk positiivne seos 0.24).

Töötajad, kelle arvates struktureeritud päevakava (Tr6) nende tööprotsessi toetada võib, võivad vähem hooseisundis töötada (Vt5; nõrk negatiivne seos -0.24) ja rohkem ärevuse või depressiooni sümptomeid (Vt3; nõrk positiivne seos 0.22) kogeda.

tee_filtreeritud_korrelatsioonimaatriks(tr_aspektid_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Tööritriidi aspektide eeldatava mõju ja vaimse tervise näitajate\nkorrelatsioonid")

3.2.5 Tööritriidi aspektide eeldatava mõju ja sotsiaalse tervise näitajate korrelatsioonimaatriks

Töötajad, kelle arvates eesmärkide seadmine ja nende täitmise kontroll (Tr1) nende tööprotsessi toetada võib, veedavad pigem rohkem linnakus vaba aega (St3; keskmine positiivne seos 0.3) ja võivad rohkem ületunde teha (St1; nõrk positiivne seos 0.25).

Töötajad, kelle arvates regulaarsete tööpauside tegemine (Tr2) nende tööprotsessi toetada võib, võivad rohkem linnakus vaba aega veeta (St3; nõrk positiivne seos 0.2), aga vähem linnaku üritustel osaleda (St4; nõrk negatiivne seos -0.24).

Töötajad, kelle arvates tööülesannete alaülesanneteks jaotamine (Tr3) nende tööprotsessi toetada võib, võivad rohkem linnakus vaba aega veeta (St3; nõrk positiivne seos 0.2), aga suhtlevad pigem vähem töökaaslastega (St2; töökaaslastegea -0.31) ja võivad rohkem ületunde teha (St1; nõrk positiivne seos 0.24).

Töötajad, kelle arvates struktureeritud päevakava (Tr6) nende tööprotsessi toetada võib, võivad rohkem linnakus vaba aega veeta (St3; nõrk positiivne seos 0.22), aga suhtlevad pigem vähem töökaaslastega (St2; keskmine negatiivne seos -0.48).

tee_filtreeritud_korrelatsioonimaatriks(tr_aspektid_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Tööritriidi aspektide eeldatava mõju ja sotsiaalse tervise näitajate\nkorrelatsioonid")

3.2.6 Tööritriidi aspektide eeldatava mõju ja töötajate vanuse korrelatsioonimaatriks

Vanuserühma 30-40 arvates pigem toetab mentorite olemasolu (Tr4; keskmine positiivne seos 0.31) nende tööprotessi ja võib toetada ka eesmärkide seadmine ja nende täitmise kontroll (Tr1; nõrk positiivne seos 0.21)

Vanusetühma 50-60 arvates pigem ei toeta mentorite olemasolu (Tr4; keskmine negatiivne seos -0.33) ega eesmärkide seadmine ja nende täitmise kontroll (Tr1; keskmine negatiivne seos -0.31) nende tööprotsessi ning ei pruugi toetada rka egulaarsete tööpauside tegemine (Tr2; nõrk negatiivne seos -0.22).

tee_filtreeritud_korrelatsioonimaatriks(tr_aspektid_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Tööritriidi aspektide eeldatava mõju ja töötajate vanuse korrelatsioonid")

3.2.7 Tööritriidi aspektide eeldatava mõju ja ettevõtte andmete korrelatsioonimaatriks

Kodumaiste ettevõtete töötajate arvates võib piiritletud tööaeg (Tr5; keskmine positiivne seos 0.37) nende tööprotsessi pigem toetada.

Rahvusvaheliste ettevõtete töötajate arvates ei pruugi piiritletud tööaeg (Tr5; nõrk negatiivne seos -0.29) nende tööprotsessi toetada.

Mikroettevõtete töötajate arvates regulaarsete tööpauside tegemine (Tr2; keskmine negatiivne seos -0.4) pigem ei toeta nende tööprotsessi ning ei pruugi toetada ka piiritletud tööaeg (Tr5; nõrk negatiivne seos -0.29).

Väikeste ettevõtete töötajate arvates toetavad mentorite olemasolu (Tr4; keskmine positiivne seos 0.42) ja piiritletud tööaeg (Tr5; keskmine positiivne seos 0.32) pigem nende tööprotsessi ning võivad toetada ka tööülesannete alaülesanneteks jaotamine (Tr3; nõrk positiivne seos 0.25) ja regulaarsete tööpauside tegemine (Tr2; nõrk positiivne seos 0.23).

Keskmise suurusega ettevõtete töötajate arvates ei toeta tööülesannete alaülesanneteks jaotamine (Tr3; keskmine negatiivne seos -0.54) mentorite olemasolu (Tr4; keskmine negatiivne seos -0.53), eesmärkide seadmine ja nende täitmise kontroll (Tr1; keskmine negatiivne seos -0.34) ja regulaarsete tööpauside tegemine (Tr2; keskmine negatiivne seos -0.4) pigem nende tööprotsessi.

Suurte ettevõtete töötajate arvates võib piiritletud tööaeg (Tr5; keskmine positiivne seos 0.23) nende tööprotsessi toetada.

Riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu valdkonna töötajate arvates võivad nende tööprotsessi toetada tööülesannete alaülesanneteks jaotamine (Tr3; nõrk positiivne seos 0.22) ja regulaarsete tööpauside tegemine (Tr2; nõrk positiivne seos 0.2).

Tööstuse, energeetika, ehituse valdkonna töötajate arvates ei pruugi regulaarsete tööpauside tegemine (Tr2; nõrk negatiivne seos -0.29) nende tööprotsessi toetada.

Hariduse, teaduse valdkonna töötajate arvates toetab struktureeritud päevakava (Tr6; keskmine positiivne seos 0.31) pigem nende tööprotsessi.

Telekommunikatsiooni, infotehnoloogia valdkonna töötajate arvates ei pruugi regulaarsete tööpauside tegemine (Tr2; nõrk negatiivne seos -0.28) nende tööprotsessi toetada.

Teeninduse, kaubanduse, transpordi valdkonna töötajate arvates pigem ei toeta tööülesannete alaülesanneteks jaotamine (Tr3; nõrk positiivne seos 0.22) ega struktureeritud päevakava (Tr6; keskmine positiivne seos 0.31) nende tööprotsessi ning ei pruugi toetada ka eesmärkide seadmine ja nende täitmise kontroll (Tr1; nõrk negatiivne seos -0.27) ega regulaarsete tööpauside tegemine (Tr2; nõrk negatiivne seos -0.25).

Panganduse, kindlustuse, kinnisvara valdkonna töötajate arvates toetab tööülesannete alaülesanneteks jaotamine (Tr3; nõrk positiivne seos 0.31) pigem nende tööprotsessi ja võib toetada ka regulaarsete tööpauside tegemine (Tr2; nõrk positiivne seos 0.27).

tee_filtreeritud_korrelatsioonimaatriks(tr_aspektid_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Tööritriidi aspektide eeldatava mõju\nja ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

\(~\)

3.3 Tööritriidil osalemise tõenäosust suurendavad tegurid ja korrelatsioonid

3.3.1 Osalemise tõenäosust suurendavad tegurid

Tööritriidil osalemist mõjutavad kõige rohkem tööga seonduvad tegurid.

tr_osalemise_tegurid <- read_tsv("andmed/kysitlus - TR osalemine tegurid.tsv", show_col_types = FALSE)

tr_osalemise_tegurid_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(tr_osalemise_tegurid, "Ajatempel")

tr_osalemise_tegurid_pikk_sagedustabel <- tr_osalemise_tegurid_pikk_sagedustabel %>%
  mutate(`Sagedus` = ifelse(!is.na(`Sagedus`), 1, `Sagedus`))


tr_osalemise_tegurid_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(tr_osalemise_tegurid_pikk_sagedustabel, levels = NULL, kategooriad = TRUE)

#tr_osalemise_tegurid_sagedustabel_summadega
  

joonis(tr_osalemise_tegurid_sagedustabel_summadega, "Teguri tüüp", "Tööritriidil osalemise tõenäosust mõjutavad tegurid", y_veerg = "n", sisu_veerg = "variable")

3.3.2 Osalemise tõenäosust suurendavate tegurite korrelatsioonimaatriks

Peamiselt mõjutavad osalemist korraldamisega seonduvad tegurid:

Kui tööritriidil osalemise tõenäosust mõjutab tööritriidi sisu (TO7), võib olla suurem mõju ka sotsiaalsetel teguritel (TO1; nõrk positiivne seos 0.25), asukohal (TO5; nõrk positiivne seos 0.2) ja sobival ajal (TO6; nõrk positiivne seos 0.2).

Kui tööritriidil osalemise tõenäosust mõjutab tööritriidi asukoht (TO5), on pigem suurem mõju ka osalustasu suurusel (TO2, keskmine positiivne seos 0.36) ja võib olla suurem mõju ka sobival ajal (TO6; nõrk positiivne seos 0.26).

Kui tööritriidil osalemise tõenäosust mõjutab etteteatamine (TO8), võib olla suurem mõju ka sobivusel töögraafikuga (TO3; nõrk positiivne seos 0.25).

# Skalaarvastused asendatakse numbritega
tr_osalemise_tegurid_numbritena <- asenda_skalaartunnused_numbritega(tr_osalemise_tegurid, # df vastustega
                                                            NULL) # skalaarvastused

# Luuakse lühendatud veerunimedega sagedustabel
tr_osalemise_tegurid_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(tr_osalemise_tegurid_numbritena,
                        "TO")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
tr_osalemise_tegurid_korrelatsioonitabel <- tee_korrelatsioonitabel(tr_osalemise_tegurid_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(tr_osalemise_tegurid_korrelatsioonitabel, # Korrelatsioonitabel
                        "Tööritriidil osalemise tõenäosust mõjutavate tegurite korrelatsioonid", 
                        luhenda_sagedustabeli_veerunimed(tr_osalemise_tegurid_numbritena,
                        "TO")[[2]]) # Joonise pealkiri

3.3.3 Tööritriidil osalemise tõenäosust suurendavate tegurite ja füüsilise tervise näitajate korrelatsioonimaatriks

Isikilikud tegurid on seotud positiivsete füüsilise tervise näitajatega:

Kui tööritriidil osalemise tõenäosust mõjutavad sotsiaalsed tegurid (TO1), on töötaja pigem vähem üle 5 tunni päevas ekraani ees (Ft7; keskmine negatiivne seos -0.34), ta võib rohkem aktiivse liikumise/trenniga tegeleda (Ft3; nõrk positiivne seos 0.25), tal võib olla olla regulaarsem unegraafik (Ft4; nõrk positiivne seos 0.25) ja vähem terviseekaebusi (Ft2; nõrk negatiivne seos -0.21).

Kui tööritriidil osalemise tõenäosust mõjutab osalustasu suurus (TO2), võib töötaja rohkem jalgratta või muu kergliikuriga ühest punktist teise liikuda (Ft1; nõrk positiivne seos 0.21).

Kui tööritriidil osalemise tõenäosust mõjutab sobiv aeg (TO6), tegeleb töötaja pigem rohkem aktiivse liikumise/trenniga (Ft3; keskmine positiivne seos 0.36).

Tööga seonduvad tegurid ja etteteatamine on seotud negatiivsete füüsilise tervise näitajatega:

Kui tööritriidil osalemise tõenäosust mõjutab sobivus töögraafikuga (TO3), liigub töötaja pigem vähem jalgratta või muu kergliikuriga ühest punktist teise (Ft1; keskmine negatiivne seos -0.36).

Kui tööritriidil osalemise tõenäosust mõjutab asjaolu, et see ei suurenda töökoormust (TO4), on töötaja pigem rohkem üle 5 tunni päevas ekraani ees (Ft7; keskmine positiivne seos 0.48), võib vähem tegeleda aktiivse liikumise/trenniga (Ft3; nõrk negatiivne seos -0.29) ja tal võib olla ebaregulaarsem unegraafik (Ft4; nõrk negatiivne seos -0.21).

Kui tööritriidil osalemise tõenäosust mõjutab etteteatamine (TO8), on töötaja pigem ebaregulaarsem sööja (Ft6; keskmine negatiivne seos -0.44) ja ebaregulaarsema unegraafikuga (Ft4; keskmine negatiivne seos -0.34) ning tal võib olla rohkem terviseakebusi (Ft2; nõrk positiivne seos 0.22)

Korraldamisega seonduvad teguritest on tööritriidi sisu seotud positiivsete füüsilise tervise näitajatega:

Kui tööritriidil osalemise tõenäosust mõjutab tööritriidi sisu (TO7), näksib töötaja pigem vähem toidukordade vahel (Ft5; keskmine negatiivne seos -0.45), võib olla regulaarsema unegraafikuga (Ft4; nõrk positiivne seos 0.26) ja regulaarsem sööja (Ft6; nõrk positiivne seos 0.25).

tee_filtreeritud_korrelatsioonimaatriks(tr_osalemise_tegurid_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Tööritriidil osalemise tõenäosust mõjutavate tegurite\nja füüsilise tervise näitajate korrelatsioonid")

3.3.4 Tööritriidil osalemise tõenäosust suurendavate tegurite ja vaimse tervise näitajate korrelatsioonimaatriks

Korraldamisega seonduvad teguritest on tööritriidi sisu seotud positiivsete vaimse tervise näitajatega:

Kui tööritriidil osalemise tõenäosust mõjutab tööritriidi sisu (TO7), võib töötaja pigem vähem ärevuse või depressiooni sümptomeid kogeda (Vt3; keskmine negatiivne seos -0.37).

Isikilikest teguritest osalustasu suurus ja tööga seonduvatest teguritest tööritriidil osalemise mõju töökoormusele on seotud negatiivsete vaimse tervise näitajatega:

Kui tööritriidil osalemise tõenäosust mõjutab osalustasu suurus (TO2), teeb töötaja pigem vähem hooseisundis tööd (Vt5; keskmine negatiivne seos -0.39), kogeb pigem rohkem tööstressi (Vt2; keskmine positiivne seos 0.36) ja teeb ületunde (Vt1; keskmine positiivne seos 0.32), tegeleb pigem vähem enesetäiendamisega (Vt4; keskmine negatiivne seos -0.32) ja võib rohkem ärevuse või depressiooni sümptomeid kogeda (Vt3; nõrk positiivne seos 0.21).

Kui tööritriidil osalemise tõenäosust mõjutab asjaolu, et see ei suurenda töökoormust (TO4), võib töötaja pigem rohkem ärevuse või depressiooni sümptomeid (Vt3; keskmine positiivne seos 0.4) ja tööstressi (Vt2; keskmine positiivne seos 0.34) kogeda ning vähem hooseisundis töötada (Vt5; keskmine negatiivne seos -0.3).

Isikilikest teguritest on sotsiaalsed tegurid seotud positiivsete ja negatiivsete vaimse tervise näitajatega: Kui tööritriidil osalemise tõenäosust mõjutavad sotsiaalsed tegurid (TO1), võib töötaja rohkem enesetäiendamisega (Vt4; nõrk positiivne seos 0.21) tegeleda, aga teeb pigem rohkem ületunde (Vt1; keskmine positiivne seos 0.37).

tee_filtreeritud_korrelatsioonimaatriks(tr_osalemise_tegurid_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Tööritriidil osalemise tõenäosust mõjutavate tegurite\nja vaimse tervise näitajate korrelatsioonid")

3.3.5 Tööritriidil osalemise tõenäosust suurendavate tegurite ja sotsiaalse tervise näitajate korrelatsioonimaatriks

Isikilikest teguritest sotsiaalsed tegurid ja korraldamisega seonduvatest teguritest etteteatamine on seotud positiivsete sotsiaalse tervise näitajatega:

Kui tööritriidil osalemise tõenäosust mõjutavad sotsiaalsed tegurid (TO1), suhtleb töötaja pigem rohkem töökaaslastega (St2; keskmine positiivne seos 0.3),

Kui tööritriidil osalemise tõenäosust mõjutab etteteatamine (TO8), osaleb töötaja pigem rohkem linnaku üritustel (St4; keskmine positiivne seos 0.34).

Isikilikest teguritest osalustasu suurus, korraldamisega seonduvad teguritest tööritriidi sisu ja tööga seonduvatest teguritest tööritriidil osalemise mõju töökoormusele on seotud positiivsete ja negatiivsete sotsiaalse tervise näitajatega:

Kui tööritriidil osalemise tõenäosust mõjutab osalustasu suurus (TO2), võib töötaja vähem kaugtööd teha (St1; nõrk negatiivne seos -0.22) ja linnaku üritustel osaleda (St4; nõrk negatiivne seos -0.25).

Kui tööritriidil osalemise tõenäosust mõjutab tööritriidi sisu (TO7), võib töötaja rohkem töökaaslastega suhelda (St2; nõrk positiivne seos 0.22), aga vähem linnaku üritustel osaleda (St4; nõrk negatiivne seos -0.27).

Kui tööritriidil osalemise tõenäosust mõjutab asjaolu, et see ei suurenda töökoormust (TO4), veedab töötaja pigem rohkem linnakus vaba aega (St3; keskmine positiivne seos 0.33), aga võib rohkem teha ka kaugtööd (St1; nõrk positiivne seos 0.2).

tee_filtreeritud_korrelatsioonimaatriks(tr_osalemise_tegurid_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Tööritriidil osalemise tõenäosust mõjutavate tegurite\nja sotsiaalse tervise näitajate korrelatsioonid")

3.3.6 Tööritriidil osalemise tõenäosust suurendavate tegurite ja töötajate vanuse korrelatsioonimaatriks

Vanuserühma 18-30 osalemise tõenäosust suurendab pigem sobivus töögraafikuga (TO3; keskmine positiivne seos 0.52) ning võib suurendada ka sobiv osalustasu suurus (TO2; nõrk positiivne seos 0.29), sotsiaalsed tegurid (TO1; nõrk positiivne seos 0.25) ja sobiv aeg (TO6; nõrk positiivne seos 0.2).

Vanuserühma 30-40 osalemise tõenäosust võib suurendada etteteatamine (TO8; nõrk positiivne seos 0.24) ning vähendada ebasobiv tööritriidi asukoht (TO5; nõrk negatiivne seos -0.23) ja aeg (TO6; nõrk negatiivne seos -0.23) ning sotsiaalsed tegurid (TO1; nõrk positiivne seos -0.21).

Vanuserühma 40-50 osalemise tõenäosust võib vähendada mittesobivus töögraafikuga (TO3; nõrk positiivne seos -0.26) ja ebasobiv osalustasu suurus (TO2; nõrk positiivne seos 0.29).

Vanusetühma 50-60 osalemise tõenäosust võib suurendada sobiv osalustasu suurus (TO2; nõrk positiivne seos 0.29) ja asukoht (TO5; nõrk positiivne seos 0.2).

tee_filtreeritud_korrelatsioonimaatriks(tr_osalemise_tegurid_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Tööritriidil osalemise tõenäosust\nmõjutavate tegurite ja\ntöötajate vanuse korrelatsioonid")

3.3.7 Tööritriidil osalemise tõenäosust suurendavate tegurite ja ettevõtte andmete korrelatsioonimaatriks

Kodumaiste ettevõtete töötajate osalemise tõenäosust võib suurendada sobiv osalustasu suurus (TO2; nõrk positiivne seos 0.27) ja pigem vähendab ebapiisav etteteatamine (TO8; keskmine negatiivne seos -0.32)

Rahvusvaheliste ettevõtete töötajate osalemise tõenäosust võib vähendada mittesobivus töögraafikuga (TO3; nõrk negatiivne seos -0.24).

Mikroettevõtete töötajate osalemise tõenäosust võib suurendada asjaolu, et tööritriidil osalemine ei suurenda töökoormust (TO4; nõrk positiivne seos 0.24).

Väikeste ettevõtete töötajate osalemise tõenäosust võivad suurendada sotsiaalsed tegurid (TO1; nõrk positiivne seos 0.21).

Keskmise suurusega ettevõtete töötajate osalemise tõenäosust võib suurendada sobiv tööritriidi sisu (TO7; nõrk positiivne seos 0.27).

Suurte ettevõtete töötajate osalemise tõenäosust võib vähendada ebasobiv tööritriidi sisu (TO7; nõrk negatiivne seos -0.25) ja ebasobiv tööritriidi asukoht (TO5; nõrk negatiivne seos -0.21).

Riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu valdkonna töötajate osalemise tõenäosust võib suurendada sobivus töögraafikuga (TO3; nõrk positiivne seos 0.26).

Hariduse, teaduse valdkonna töötajate osalemise tõenäosust pigem vähendab ebasobiv tööritriidi asukoht (TO5; keskmine negatiivne seos -0.3).

Telekommunikatsiooni, infotehnoloogia valdkonna töötajate osalemise tõenäosust pigem suurendab asjaolu, et tööritriidil osalemine ei suurenda töökoormust (TO4; keskmine positiivne seos 0.42).

Teeninduse, kaubanduse, transpordi valdkonna töötajate osalemise tõenäosust pigem suurendab sobiv tööritriidi asukoht (TO5; keskmine positiivne seos 0.51), võib suurendada ka etteteatamine (TO8; nõrk positiivne seos 0.27) ja vähendada asjaolu, et tööritriidil osalemine suurendab töökoormust (TO4; nõrk negatiivne seos -0.28).

tee_filtreeritud_korrelatsioonimaatriks(tr_osalemise_tegurid_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Tööritriidil osalemise tõenäosust\nmõjutavate tegurite ja\nettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid"))  + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

3.4 Tööritriidil osalemise eeldatav mõju stressitasemele ja töövõimele ja korrelatsioonid

Enamus töötajaid peavad tööritriidil osalemise mõju töövõimele ja stressitasemele positiivseks. Töötajad peavad mõlemat mõju positiivseks või olematuks.

Mõju töövõimele ja stressitasemele peavad pigem positiivseks paremate tervisenäitajatega inimesed, kes rohkem aega ekraani ees veedavad ning positiivseks võib mõju pidada ka vanuserühm 40-50.

Mõju töövõimele peavad pigem positiivseks ka seltsivamad inimesed. Olematuks võib mõju pidada vanuserühm 50-60.

Mõju stressitasemele võivad pidada võivad positiivseks ka tööstressi rohkem kogevad inimesed. Olematuks pidada seltsivamad inimesed, mikroettevõtete töötajad, üldiselt hea füüsilise tervisega vähem aktiivsed inimesed ja Tööstuse, energeetika, ehituse valdkonna töötajad. Negatiivseks võivad mõju pidada vähem seltsivad inimesed, Hariduse, teaduse valdkonna töötajad, üldiselt hea vaimse tervisega vähem hooseisudnsi töötajad ja vanuserühm 50-60.

3.4.1 Tööritriidil osalemise eeldatav mõju stressitasemele ja töövõimele

# Tööritriidil osalemise mõju hinnangu põhjal sagedustabeli tegemine
sagedustabel_tr_moju <- tee_sagedustabel(kysitlus, 
                list("Milline võiks olla ritriidil osalemise mõju järgmistele näitajatele? [Töövõime]", 
                "Milline võiks olla ritriidil osalemise mõju järgmistele näitajatele? [Stressitase]"), 
                ",\\s*(?=[A-ZÄÖÜ])|,(?=[A-ZÄÖÜ])")

#x  %>% 
#  count(`Milline võiks olla ritriidil osalemise mõju järgmistele näitajatele? [Stressitase]`, `Milline võiks olla ritriidil osalemise mõju järgmistele näitajatele? [Töövõime]`, Vanus, Sugu)

# Joonise tegemine
joonis(sagedustabel_tr_moju,
                "Mõju",
                "Tööritriidil osalemise mõju", NULL, "Näitajad") 

3.4.2 Tööritriidil osalemise eeldatava mõju stressitasemele ja töövõimele korrelatsioonimaatriks

Töötajad, kes tunnevad, et tööritriidil osalemine nende töövõimele (TM1) positiivselt mõjuks, peavad pigem osalemise mõju stressitasemele samuti positiivseks (TM2; keskmine positiivne seos 0.54).

Töötajad, kes tunnevad, et tööritriidil osalemine nende töövõimet (TM1) ei mõjutaks, ei peaks olesalemist pigem mõjusaks ka stressitasemele (TM2; keskmine positiivne seos 0.68).

uhendatud_tr_osalemise_moju_numbritena_kusimused <- uhendatud_veerud_arvulisteks_tunnusteks(kysitlus[, c("Ajatempel", "Milline võiks olla ritriidil osalemise mõju järgmistele näitajatele? [Töövõime]", 
                "Milline võiks olla ritriidil osalemise mõju järgmistele näitajatele? [Stressitase]")] ) 


colnames(uhendatud_tr_osalemise_moju_numbritena_kusimused) <- c("Ajatempel", "TM1 - Positiivne", "TM1 - Mõju puudub", "TM2 - Positiivne", "TM2 - Mõju puudub", "TM2 - Negatiivne") #TM1 - töövõime
#TM2 - stressitase

tr_osalemise_moju_korrelatsioonitabel <- tee_korrelatsioonitabel(uhendatud_tr_osalemise_moju_numbritena_kusimused) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(tr_osalemise_moju_korrelatsioonitabel, # Korrelatsioonitabel
                        "Tööritriidil osalemise tegurite mõju korrelatsioonid") + # Joonise pealkiri
  labs(subtitle = paste(c("TM1 - Tööritriidi eeldatav mõju töövõimele", 
                          "TM2 - Tööritriidi eeldatav mõju stressitasemele"), collapse = "\n")) + scale_x_discrete(labels=c("TM1\nPositiivne", "TM1\nMõju puudub", "TM2\nPositiivne", "TM2\nMõju puudub")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

3.4.3 Tööritriidil osalemise eeldatava mõju stressitasemele ja töövõimele ning füüsilise tervise näitajate korrelatsioonimaatriks

Tööritriidi mõju töövõimele ja stressitasemele peavad positiivseks paremate tervisenäitajatega inimesed, kes rohkem aega ekraani ees veedavad:

Töötajatel, kes tunnevad, et tööritriidil osalemine nende töövõimele (TM1) positiivselt mõjuks, on pigem vähem tervisekaebusi (Ft2; keskmine negatiivne seos -0.38) ning võib olla regulaarsem unegraafik (Ft4; nõrk positiivne seos 0.22), aga nad võivad olla rohkem üle 5 tunni päevas ekraani ees (Ft7; nõrk positiivne seos 0.24).

Töötajated, kes tunnevad, et tööritriidil osalemine nende stressitasemele (TM2) positiivselt mõjuks, võivad rohkem jalgsi, jalgratta või muu kergliikuriga ühest punktist teise liikuda (Ft1; nõrk positiivne seos 0.29), aga ka rohkem üle 5 tundi päevas ekraani ees olla (Ft7; nõrk positiivne seos 0.28).

Tööritriidi mõju stressitasemele peavad olematuks inimesed, kelle üldine füüsiline tervis on hea, aga kes on vähem aktiivsed:

Töötajated, kes tunnevad, et tööritriidil osalemine nende stressitasemele (TM2) negatiivselt mõjuks, näksivad toidukordade vahel pigem vähem (Ft5; keskmine negatiivne seos -0.31) ja neil võib olla vähem tervisekaebusi (Ft2; nõrk negatiivne seos -0.24), aga nad võivad vähem jalgsi, jalgratta või muu kergliikuriga ühest punktist teise liikuda (Ft1; nõrk positiivne seos -0.29).

tee_filtreeritud_korrelatsioonimaatriks(uhendatud_tr_osalemise_moju_numbritena_kusimused, ft_luhendatud_veergudega_sagedustabel, "Tööritriidil osalemise eeldatava mõju \nja füüsilise tervise näitajate korrelatsioonid") + scale_x_discrete(labels=c("TM1\nPos", "TM1\nMõju\npuudub", "TM2\nPos", "TM2\nMõju\npuudub", "TM2\nNeg")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

3.4.4 Tööritriidil osalemise eeldatava mõju stressitasemele ja töövõimele ning vaimse tervise näitajate korrelatsioonimaatriks

Tööritriidi mõju stressitasemele peavad positiivseks tööstressi rohkem kogevad inimesed:

Töötajated, kes tunnevad, et tööritriidil osalemine nende stressitasemele (TM2) positiivselt mõjuks, võivad rohkem tööstressi kogeda (Vt2; nõrk positiivne seos 0.21).

Tööritriidi mõju stressitasemele peavad negatiivseks inimesed, kelle üldine vaimne tervis on hea, kuid kes võivad vähem hooseisunids töötada:

Töötajated, kes tunnevad, et tööritriidil osalemine nende stressitasemele (TM2) negatiivselt mõjuks, kogevad pigem vähem ärevuse ja depressiooni sümptome (Vt3; keskmine negatiivne seos -0.34), kuid võivad vähem hooseisundis töötada (Vt5; nõrk negatiivne seos -0.21).

tee_filtreeritud_korrelatsioonimaatriks(uhendatud_tr_osalemise_moju_numbritena_kusimused, vt_luhendatud_veergudega_sagedustabel, "Tööritriidil osalemise eeldatav mõju \nja vaimse tervise näitajate korrelatsioonid") + scale_x_discrete(labels=c("TM1\nPos", "TM1\nMõju\npuudub", "TM2\nPos", "TM2\nMõju\npuudub", "TM2\nNeg")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

3.4.5 Tööritriidil osalemise eeldatava mõju stressitasemele ja töövõimele ning sotsiaalse tervise näitajate korrelatsioonimaatriks

Tööritriidi mõju töövõimele peavad positiivseks seltsivamad inimesed: Töötajatel, kes tunnevad, et tööritriidil osalemine nende töövõimele (TM1) positiivselt mõjuks, suhtlevad pigem rohkem töökaaslastega (St2; keskmine positiivne seos 0.3).

Tööritriidi mõju stressitasemele peavad olematuks seltsivamad inimesed: Töötajated, kes tunnevad, et tööritriidil osalemine nende stressitasemele (TM2) negatiivselt mõjuks, võivad rohkem linnakus vaba aega veeta (St3; nõrk positiivne seos 0.25) ja linnaku üritustel osaleda (St4; nõrk positiivne seos 0.2).

Tööritriidi mõju stressitasemele peavad negatiivseks vähem seltsivad inimesed:Töötajated, kes tunnevad, et tööritriidil osalemine nende stressitasemele (TM2) negatiivselt mõjuks, teevad pigem rohkem kaugtööd (St1; keskmine positiivne seos 0.34) ning võivad vähem linnaku üritustel osaleda (St4; nõrk negatiivne seos -0.25).

tee_filtreeritud_korrelatsioonimaatriks(uhendatud_tr_osalemise_moju_numbritena_kusimused, st_luhendatud_veergudega_sagedustabel, "Tööritriidil osalemise eeldatav mõju \nja sotsiaalse tervise näitajate korrelatsioonid") + scale_x_discrete(labels=c("TM1\nPos", "TM1\nMõju\npuudub", "TM2\nPos", "TM2\nMõju\npuudub", "TM2\nNeg")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

3.4.6 Tööritriidil osalemise eeldatava mõju stressitasemele ja töövõimele ning töötajate vanuse korrelatsioonimaatriks

Vanuserühm 40-50 võib mõju töövõimele (TM1; nõrk positiivne seos 0.21) ja stressitasemele (TM2; nõrk positiivne seos 0.22) rohkem positiivseks pidada.

Vanuserühm 50-60 võib mõju töövõimele rohkem olematuks (TM1; nõrk positiivne seos 0.29) ja mõju stressitasemele (TM2; nõrk positiivne seos 0.29) negatiivseks pidada.

tee_filtreeritud_korrelatsioonimaatriks(uhendatud_tr_osalemise_moju_numbritena_kusimused, tootaja_uldandmed, "Tööritriidil osalemise eeldatav mõju\nja töötajate vanuse korrelatsioonid") + scale_x_discrete(labels=c("TM1\nPos", "TM1\nMõju\npuudub", "TM2\nPos", "TM2\nMõju\npuudub", "TM2\nNeg")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

3.4.7 Tööritriidil osalemise eeldatava mõju stressitasemele ja töövõimele ning ettevõtte andmete korrelatsioonimaatriks

Mikroettevõtete töötajad võivad rohkem leida, et tööritriidil osalemisel puudub mõju stressitasemele (TM2; nõrk positiivne seos 0.29).

Tööstuse, energeetika, ehituse valdkonna töötajad võivad rohkem leida, et tööritriidil osalemisel puudub mõju stressitasemele (TM2; nõrk positiivne seos 0.29).

Hariduse, teaduse valdkonna töötajad võivad rohkem leida, et tööritriidil osalemise mõju stressitasemele on negatiivne (TM2; nõrk positiivne seos 0.29).

tee_filtreeritud_korrelatsioonimaatriks(uhendatud_tr_osalemise_moju_numbritena_kusimused, ettevotte_uldandmed, "Tööritriidil osalemise eeldatav mõju\nja ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + scale_x_discrete(labels=c("TM1\nPos", "TM1\nMõju\npuudub", "TM2\nPos", "TM2\nMõju\npuudub", "TM2\nNeg")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\) \(~\)

\(~\)

3.5 Huvi erinevate interaktiivse lõunapausi veetmise viiside vastu

3.5.1 Huvi erinevate interaktiivse lõunapausi veetmise viiside vastu

Kõige suuremat huvi tuntakse restoranikülastuse, ühise pikniku ja rahvusvahelise toidu ühise valmistamise vastu.

list_lp_viisid <- list("Palun hinda, millisel määral järgmised lõunapausi veetmise viisid sind huvitaksid [Ei ole huvitatud]", 
                "Palun hinda, millisel määral järgmised lõunapausi veetmise viisid sind huvitaksid [Olen mõnevõrra huvitatud]",
                "Palun hinda, millisel määral järgmised lõunapausi veetmise viisid sind huvitaksid [Olen väga huvitatud]")



# Lõunapausi veetmise viiside vastu tuntava huvi põhjal sagedustabeli tegemine
lp_viisid_lai_sagedustabel <- tee_skalaarkysimuste_lai_sagedustabel(list_lp_viisid, ",\\s*(?=[A-ZÄÖÜ])|,(?=[A-ZÄÖÜ])") 


lp_viisid_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(lp_viisid_lai_sagedustabel[[1]], "Ajatempel")

lp_viisid_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(lp_viisid_pikk_sagedustabel, lp_viisid_lai_sagedustabel[[2]])

# Joonise tegemine
joonis(lp_viisid_sagedustabel_summadega,
      "Lõunapausi veetmise viisid",
      "Huvi lõunapausi veetmise viiside vastu", 
       y_veerg = "n") 

3.5.2 Interaktiivse lõunapausi veetmise viiside vastu tuntava huvi korrelatsioonimaatriks

Ühisest piknikust (Lp2) huvitujad tunnevad pigem suuremat huvi ka rahvusvahelise toidu valmistamisest (Lp3; keskmine positiivne seos 0.52) ja restoranikülastusest (Lp4; keskmine positiivne seos 0.44). Rahvusvahelise toidu ühisel valmistamisest (Lp3) huvitujad võivad tunda suuremat huvi restoranikülastusest (Lp4; nõrk positiivne seos 0.25).

# Skalaarvastused asendatakse numbritega
lp_viisid_numbritena <- asenda_skalaartunnused_numbritega(lp_viisid_lai_sagedustabel[[1]], # df vastustega
                                                            lp_viisid_lai_sagedustabel[[2]]) # skalaarvastused

# Luuakse lühendatud veerunimedega sagedustabel
lp_viisid_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(lp_viisid_numbritena,
                        "Lp")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
lp_viisid_korrelatsioonitabel <- tee_korrelatsioonitabel(lp_viisid_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(lp_viisid_korrelatsioonitabel, # Korrelatsioonitabel
                        "Lõunapausi veetmise viiside vastu tuntava huvi korrelatsioonid", # Joonise pealkiri
                        luhenda_sagedustabeli_veerunimed(lp_viisid_numbritena,
                        "Lp")[[2]]) # Lühendatud veerunimede ja neile vastavate väärtuste vektor

3.5.3 Interaktiivse lõunapausi veetmise viiside vastu tuntava huvi ja füüsilise tervise näitajate korrelatsioonimaatriks

Enamasti huvituvad interaktiivse lõunapausi veemtise viisidest paremate füüsilise tervise näitajatega inimesed:

Töötajad, kes huvituvad kogukondlikust arutelust töökeskkonna parandamiseks (Lp1), võivad rohkem üle 5 tunni päevas ekraani ees olla (Ft7; nõrk positiivne seos 0.25) ja vähem jalgsi, jalgratta või muu kergliikuriga ühest punktist teise liikuda (Ft1; nõrk negatiivne seos -0.23) ning neil on pigem vähem tervisekaebusi (Ft2; keskmine negatiivne seos -0.32).

Töötajad, kes huvituvad ühisest piknikust (Lp2), on pigem regulaarse unegraafikuga (Ft4; keskmine positiivne seos 0.37) ja liiguvad rohkem jalgsi, jalgratta või muu kergliikuriga ühest punktist teise (Ft1; keskmine positiivne seos 0.36) ning võivad olla regulaarselt sööjad (Ft6; nõrk positiivne seos 0.24)

Töötajad, kes huvituvad rahvusvahelise toidu ühisel valmistamisest (Lp3), võivad rohkem toidukordade vahel näksida (Ft5; nõrk positiivne seos 0.22).

Töötajad, kes huvituvad restoranikülastusest (Lp4), võivad olla regulaarse unegraafikuga (Ft4; nõrk positiivne seos 0.21) ja neil on pigem vähem terviseakebusi (Ft2; keskmine negatiivne seos -0.37).

tee_filtreeritud_korrelatsioonimaatriks(lp_viisid_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Lõunapausi veetmise viiside vastu tuntava huvi\nja füüsilise tervise näitajate korrelatsioonid")

3.5.4 Interaktiivse lõunapausi veetmise viiside vastu tuntava huvi ja vaimse tervise näitajate korrelatsioonimaatriks

Töötajad, kes huvituvad ühisest piknikust (Lp2), võivad rohkem hooseisundis töötada (Vt5; nõrk positiivne seos 0.24).

Töötajad, kes huvituvad rahvusvahelise toidu ühisel valmistamisest (Lp3), kogevad pigem rohkem ärevuse või depressiooni sümptomeid (Vt3; keskmine positiivne seos 0.31) ja tegelevad enesetäiendamisega (Vt4; keskmine positiivne seos 0.3) ning võivad rohkem tööstessi kogeda (Vt2; nõrk positiivne seos 0.27).

Töötajad, kes huvituvad restoranikülastusest (Lp4), võivad vähem tööstessi kogeda (Vt2; nõrk negatiivne seos -0.28).

tee_filtreeritud_korrelatsioonimaatriks(lp_viisid_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Lõunapausi veetmise viiside vastu tuntava huvi ja vaimse tervise näitajate\nkorrelatsioonid")

3.5.5 Interaktiivse lõunapausi veetmise viiside vastu tuntava huvi ja sotsiaalse tervise näitajate korrelatsioonimaatriks

Töötajad, kes huvituvad ühisest piknikust (Lp2), rahvusvahelise toidu ühisest valmistamisest (Lp3) ja restoranikülastusest (Lp4), võivad rohkem linnaku üritustel osaleda (St4; Lp2 nõrk positiivne seos 0.28, Lp3 nõrk positiivne seos 0.27, Lp4 nõrk positiivne seos 0.2).

Töötajad, kes huvituvad ühisest piknikust (Lp2) ja restoranikülastusest (Lp4) , suhtlevad pigem rohkem töökaaslastega (St2; Lp2 keskmine positiivne seos 0.38 ja Lp4 keskmine positiivne seos 0.36).

Töötajad, kes huvituvad ühisest piknikust (Lp2), võivad rohkem linnakus vaba aega veeta (St3; nõrk positiivne seos 0.22).

tee_filtreeritud_korrelatsioonimaatriks(lp_viisid_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Lõunapausi veetmise viiside vastu tuntava huvi ja sotsiaalse tervise näitajate\nkorrelatsioonid")

3.5.6 Interaktiivse lõunapausi veetmise viiside vastu tuntava huvi ja töötajate vanuse korrelatsioonimaatriks

Vanuserühm 30-40 huvitub pigem restoranikülastusest (Lp4; keskmine positiivne seos 0.44), ühisest piknikust (Lp2; keskmine positiivne seos 0.43) ja rahvusvahelise toidu ühisest valmistamisest (Lp3; keskmine positiivne seos 0.38).

Vanuserühm 40-50 ühisest piknikust pigem vähem (Lp2; keskmine negatiivne seos -0.3).

Vanuserühm 50-60 huvitub restoranikülastusest (Lp4; keskmine negatiivne seos -0.43) ja ühisest piknikust (Lp2; keskmine negatiivne seos -0.3) pigem vähem.

Vanuserühm 60-70 võib huvituda ühisest piknikust rohkem (Lp2; nõrk positiivne seos 0.23) ja rahvusvahelise toidu ühisest valmistamisest vähem (Lp3; nõrk negatiivne seos -0.25).

tee_filtreeritud_korrelatsioonimaatriks(lp_viisid_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Interaktiivse lõunapausi veetmise viiside vastu tuntava huvi\nja töötajate vanuse korrelatsioonid")

3.5.7 Interaktiivse lõunapausi veetmise viiside vastu tuntava huvi ja ettevõtte andmete korrelatsioonimaatriks

Kodumaiste ja väikeste ettevõtete ning riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu ja teeninduse, kaubanduse, transpordi valdkonna töötajad huvituvad interakttivse lõunapausi veemtise viisidest rohkem:

Kodumaiste ettevõtete töötajad võivad ühisest piknikust (Lp2; nõrk positiivne seos 0.28) ja restoranikülastusest (Lp4; nõrk positiivne seos 0.2) rohkem huvituda.

Väikeste ettevõtete töötajad huvituvad kogukondlikust arutelust töökeskkonna parandamiseks pigem rohkem (Lp1; keskmine positiivne seos 0.55) ja võivad vähem huvituda ühisest piknikust (Lp2; nõrk negatiivne seos -0.22).

Riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu valdkonna töötad on ühisest piknikust (Lp2; keskmine positiivne seos 0.42), restoranikülastusest (Lp4; keskmine positiivne seos 0.39) ja rahvusvahelise toidu ühisest valmistamisest (Lp3; keskmine positiivne seos 0.3) pigem rohkem huvitatud.

Teeninduse, kaubanduse, transpordi valdkonna töötajad on rahvusvahelise toidu ühisest valmistamisest pigem rohkem huvitatud (Lp3; keskmine positiivne seos 0.3).

Rahvusvaheliste, keskmise suurusega ja suurte ettevõtete ning tööstuse, energeetika, ehituse valdkonna ja hariduse, teaduse valdkonna töötajad huvituvad interakttivse lõunapausi veemtise viisidest rohkem:

Rahvusvaheliste ettevõtete töötajad võivad kogukondlikust arutelust töökeskkonna parandamiseks vähem huvituda (Lp1; nõrk negatiivne seos -0.23).

Keskmise suurusega ettevõtete töötajad huvituvad kogukondlikust arutelust töökeskkonna parandamiseks pigem vähem (Lp1; keskmine negatiivne seos -0.36).

Suurte ettevõtete töötajad võivad restoranikülastusest vähem huvituda (Lp4; nõrk negatiivne seos -0.29)

Tööstuse, energeetika, ehituse valdkonna töötajad on rahvusvahelise toidu ühisest valmistamisest pigem vähem huvitatud (Lp3; keskmine negatiivne seos -0.37).

Hariduse, teaduse valdkonna töötajad on (Lp4; keskmine negatiivne seos -0.36) ja (Lp2; keskmine negatiivne seos -0.34) pigem vähem huvitatud ning võivad vähem huvituda ka rahvusvahelise toidu ühisest valmistamisest (Lp3; nõrk negatiivne seos -0.27).

tee_filtreeritud_korrelatsioonimaatriks(lp_viisid_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Interaktiivse lõunapausi veetmise viiside vastu\ntuntava huvi ja ettevõtte andmete\nkorrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

\(~\)

3.6 Interaktiivsel lõunapausil osalemise tõenäosust suurendavad tegurid ja korrelatsioonid

3.6.1 Osalemise tõenäosust suurendavad tegurid

Interaktiivsel lõunapausil osalemist mõjutavad erinevad isiklikud, töö ja korrldamisega seotud tegurid.

lp_osalemise_tegurid <- read_tsv("andmed/kysitlus - LP osalemine tegurid.tsv", show_col_types = FALSE)


lp_osalemise_tegurid_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(lp_osalemise_tegurid, "Ajatempel")

lp_osalemise_tegurid_pikk_sagedustabel <- lp_osalemise_tegurid_pikk_sagedustabel %>%
  mutate(`Sagedus` = ifelse(!is.na(`Sagedus`), 1, `Sagedus`))


lp_osalemise_tegurid_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(lp_osalemise_tegurid_pikk_sagedustabel, levels = NULL, kategooriad = TRUE)
  

joonis(lp_osalemise_tegurid_sagedustabel_summadega, "Teguri tüüp", "Interaktiivsel lõunapausil osalemise tõenäosust mõjutavad tegurid", y_veerg = "n", sisu_veerg = "variable")

3.6.2 Osalemise tõenäosust suurendavate tegurite korrelatsioonimaatriks

Kui osalemise tõenäosust mõjutavad sotsiaalsed tegurid (LO1), on pigem suurem mõju ka lõunapausi sisul (LO8; keskmine positiivne seos 0.45) ja väiksem mõju võib olla sobivusel töögraafikuga (LO1; nõrk negatiivne seos -0.29).

Kui osalemise tõenäosust mõjutab osalustasu suurus (LO2), on pigem suurem mõju ka lõunapausi toimumiskohal (LO5; keskmine positiivne seos 0.36).

Kui osalemise tõenäosust mõjutab aja sobivus (LO6), võib olla suurem mõju ka etteteatamisel (LO7; nõrk positiivne seos 0.26).

# Skalaarvastused asendatakse numbritega
lp_osalemise_tegurid_numbritena <- asenda_skalaartunnused_numbritega(lp_osalemise_tegurid, # df vastustega
                                                            NULL) # skalaarvastused

# Luuakse lühendatud veerunimedega sagedustabel
lp_osalemise_tegurid_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(lp_osalemise_tegurid_numbritena,
                        "LO")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
lp_osalemise_tegurid_korrelatsioonitabel <- tee_korrelatsioonitabel(lp_osalemise_tegurid_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(lp_osalemise_tegurid_korrelatsioonitabel, # Korrelatsioonitabel
                        "Interaktiivsel lõunapausil osalemise tõenäosust mõjutavate tegurite\nkorrelatsioonid", luhenda_sagedustabeli_veerunimed(lp_osalemise_tegurid_numbritena,
                        "LO")[[2]]) # Joonise pealkiri

3.6.3 Interaktiivsel lõunapausil osalemise tõenäosust suurendavate tegurite ja füüsilise tervise näitajate korrelatsioonimaatriks

Jalgsi, jalgratta või muu kergliikuriga ühest punktist teise liikujate (Ft1) osalemist mõjutab osalustasu suurus pigem rohkem (LO2; keskmine positiivne seos 0.31) ning vähem võivad mõjutada lõunapausi sisu (LO8; nõrk negatiivne seos -0.29), toimumiskoht (LO5; nõrk negatiivne seos -0.2) ja sobiv aeg (LO6; nõrk negatiivne seos -0.2).

Aktiivsete liikujate (Ft3) osalemist mõjutab sobivus lõunapausi sisu pigem rohkem (LO8; keskmine positiivne seos 0.33), rohkem võivad mõjutada ka sotsiaalsed tegurid (LO1; positiivne seos 0.22) ja vähem sobivus töögraafikuga (LO3; nõrk negatiivne seos -0.29).

Toidukordade vahel näksijate (Ft5) osalemist võib sobivus töögraafikuga rohkem mõjutada (LO3; nõrk positiivne seos 0.24).

Üle 5 tunni päevas ekraani ees olijate (Ft7) osalemist mõjutab sobivus töögraafikuga pigem rohkem (LO3; keskmine positiivne seos 0.38) ja sotsiaalsed tegurid (LO1; keskmine negatiivne seos -0.54) pigem vähem, rohkem võib mõjutada ka asjaolu, et osalemine ei mõju töökoormust (LO4; nõrk positiivne seos 0.2) ja vähem lõunapausi sisu (LO8 nõrk negatiivne seos -0.24).

Regulaarse unegraafikuga (Ft4) töötajate mõjutavad sobiv aeg (LO6; keskmine negatiivne seos -0.34) ja etteteatamine (LO7; keskmine negatiivne seos -0.34) pigem vähem ja vähem võib mõjutada ka sobivus töögraafikuga (LO3; nõrk negatiivne seos -0.22).

Regulaarsete sööjate (Ft6) osalemist mõjutab etteteatamine pigem vähem (LO7; keskmine negatiivne seos -0.44).

Tervisekaebustega (Ft2): töötajate osalemist võib etteteatamine rohkem (LO7; nõrk positiivne seos 0.2) ning sotsiaalsed tegurid (LO1; nõrk negatiivne seos -0.26) ja lõunapausi toimumiskoht (LO5; nõrk negatiivne seos -0.2) vähem mõjutada.

tee_filtreeritud_korrelatsioonimaatriks(lp_osalemise_tegurid_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Interaktiivsel lõunapausil osalemise tõenäosust mõjutavate tegurite\nja füüsilise tervise näitajate korrelatsioonid")

3.6.4 Interaktiivsel lõunapausil osalemise tõenäosust suurendavate tegurite ja vaimse tervise näitajate korrelatsioonimaatriks

Tööstressi ja ärevuse või depressiooni sümptomite kogejate ja hooseisundis töötajate osalemist mõjutavad tööga seonduvad tegurid rohkem:

Tööstressi kogejate (Vt2) osalemist võivad sobivus töögraafikuga (LO3; nõrk positiivne seos 0.28) ja osalustasu suurus pigem rohkem mõjutada (LO2; nõrk positiivne seos 0.21).

Ärevuse või depressiooni sümptomite kogejate (Vt3) osalemist mõjutavad tööga seonduvad tegurid: osalemist mõjutab sobivus töögraafikuga pigem rohkem (LO3; keskmine positiivne seos 0.5) ja rohkem võib mõjutada ka asjaolu, et osalemine ei mõju töökoormust (LO4; nõrk positiivne seos 0.27).

Hooseisundis töötajate (Vt5) osalemist võib asjaolu, et osalemine ei mõju töökoormust, rohkem mõjutada (LO4; nõrk positiivne seos 0.22), pigem vähem mõjutavad sobivus töögraafikuga (LO3; keskmine negatiivne seos -0.4) ja lõunapausi sisu (LO8; keskmine negatiivne seos -0.39) ja vähem võib mõjutada ka osalustasu suurus (LO2; nõrk negatiivne seos -0.21).

Ületundide tegijate (Vt1) osalemist mõjutavad sotsiaalsed tegurid (LO1; keskmine positiivne seos 0.49) ja lõunapausi sisu (LO8; keskmine positiivne seos 0.46) pigem rohkem.

Enesetäiendamistegevuste (Vt4) harrastajate osalemist võib toimumiskoht (LO5; nõrk positiivne seos 0.25) rohkem mõjutada.

tee_filtreeritud_korrelatsioonimaatriks(lp_osalemise_tegurid_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Interaktiivsel lõunapausil osalemise tõenäosust mõjutavate tegurite\nja vaimse tervise näitajate korrelatsioonid")

3.6.5 Interaktiivsel lõunapausil osalemise tõenäosust suurendavate tegurite ja sotsiaalse tervise näitajate korrelatsioonimaatriks

Peamine mõjutegur on sobivus töögraafikuga (LO3): see võib kaugtöö tegijate (St1; nõrk positiivne seos 0.29) ja linnakus vaba aja veetjate (St3; nõrk positiivne seos 0.25) osalemist rohkem mõjutada ja töökaaslastega suhtlejate osalemist pigem vähem (St2; keskmine negatiivne seos -0.42).

Seltsivamate inimeste osalemist mõjutavad isiklikud ja korradusega seonduvad tegurid: töökaaslastega suhtlejate (St2) osalemist võivad sotsiaalsed tegurid rohkem mõjutada (LO1; nõrk positiivne seos 0.2), linnakus vaba aja veetjate (St3) osalemist mõjutab pigem rohkem sobiv aeg (LO6; keskmine positiivne seos 0.37) ja linnaku üritustel osalejate (St4) osalemist ettetatamine (LO7; keskmine positiivne seos 0.34).

tee_filtreeritud_korrelatsioonimaatriks(lp_osalemise_tegurid_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Interaktiivsel lõunapausil osalemise tõenäosust mõjutavate tegurite\nja sotsiaalse tervise näitajate korrelatsioonid")

3.6.6 Interaktiivsel lõunapausil osalemise tõenäosust suurendavate tegurite ja töötajate vanuse korrelatsioonimaatriks

Enamasti mõjutavad osalemist osalustasu suurus, tegevuse sisu, sotsiaalsed tegurid ja asukoht.

Vanuserühmade 18-30 osalemist võivad osalustasu suurus (LO2; nõrk positiivne seos 0.29), sotsiaalsed tegurid (LO1; nõrk positiivne seos 0.21) ja toimumiskoht (LO5; nõrk positiivne seos 0.2) rohkem mõjutada.

Vanuserühma 30-40 osalemist võib ettetatamine rohkem mõjutada (LO7; nõrk positiivne seos 0.24).

Vanuserühma 30-40 osalemist võib asjaolu, et osalemine ei mõju töökoormust, rohkem mõjutada (LO4; nõrk positiivne seos 0.23) ja vähem võivad mõjutada sobivus töögraafikuga (LO3; nõrk negatiivne seos -0.22) ja osalustasu suurus (LO2; nõrk positiivne seos -0.21).

Vanuserühma 50-60 osalemist mõjutab sobivus töögraafikuga pigem rohkem (LO3; keskmine positiivne seos 0.3) ning rohkem võivad mõjutada ka lõunapausi sisu (LO8; nõrk positiivne seos 0.29), sotsiaalsed tegurid (LO1; nõrk positiivne seos 0.21) ja sobiv aeg (LO6; nõrk positiivne seos 0.2).

tee_filtreeritud_korrelatsioonimaatriks(lp_osalemise_tegurid_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Interaktiivsel lõunapausil osalemise tõenäosust\nmõjutavate tegurite ja\ntöötajate vanuse korrelatsioonid")

3.6.7 Interaktiivsel lõunapausil osalemise tõenäosust suurendavate tegurite ja ettevõtte andmete korrelatsioonimaatriks

Rahvusvaheliste ja keskmise suurusega ettevõtete töötajate osalemist mõjutab sobiv aeg pigem rohkem (LO6; keskmine positiivne seos 0.36, keskmine positiivne seos 0.61), rohkem võivad mõjutada ka sotsiaalsed tegurid (LO1; mõlemal nõrk positiivne seos 0.21) ja vähem sobivus töögraafikuga (LO3; mõlemal nõrk negatiivne seos -0.26).

Kodumaiste ettevõtete töötajate osalemist mõjutab sobivus töögraafikuga pigem rohkem (LO3; keskmine positiivne seos 0.34) ning vähem sobiv aeg (LO6; keskmine negatiivne seos -0.32) ja ettetatamine (LO7; keskmine negatiivne seos -0.32).

Mikroettevõtete töötajate osalemist mõjutab suure tõenäosusega asjaolu, et osalemine ei mõjuta töökoormust (LO4; tugev positiivne seos 0.7).

Väikeste ettevõtete töötajate osalemist mõjutab toimumiskoht pigem rohkem (LO5; keskmine positiivnne seos 0.31) ja võib rohkem mõjutada ka sobivus töögraafikuga (LO3; nõrk positiivne seos 0.27).

Suurte ettevõtete töötajate osalemist võib rogkem mõjutada sobivus töögraafikuga (LO3; nõrk positiivne seos 0.23) ning vähem toimumiskoht (LO5; nõrk negatiivne seos -0.21) ja sobiv aeg (LO6; nõrk negatiivne seos -0.21).

Riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu valdkonna töötajate osalemist võib toimumiskoht rohkem mõjutada (LO5; nõrk positiivne seos 0.26).

Telekommunikatsiooni, infotehnoloogia valdkonna töötajate osalemist mõjutab kindlasti asjaolu, et osalemine ei mõjuta töökoormust (LO4; väga tugev positiivne seos 1).

Teeninduse, kaubanduse, transpordi valdkonna töötajate osalemist võib ettetatamine rohkem mõjutada (LO7; nõrk positiivne seos 0.27).

tee_filtreeritud_korrelatsioonimaatriks(lp_osalemise_tegurid_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Interaktiivsel lõunapausil osalemise tõenäosust\nmõjutavate tegurite ja\nettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

3.7 Interaktiivse lõunapausi eeldatav mõju stressitasemele ja töövõimele ja korrelatsioonid

3.7.1 Oletatav mõju

# Lõunapausil osalemise mõju hinnangu põhjal sagedustabeli tegemine
sagedustabel_lp_moju <- tee_sagedustabel(kysitlus, 
                list("Milline võiks olla interaktiivsel lõunapausil osalemise mõju järgmistele näitajatele? [Töövõime]", 
                "Milline võiks olla interaktiivsel lõunapausil osalemise mõju järgmistele näitajatele? [Stressitase]"), 
                ",\\s*(?=[A-ZÄÖÜ])|,(?=[A-ZÄÖÜ])")

# Joonise tegemine
joonis(sagedustabel_lp_moju,
                "Mõju",
                "Interaktiivsel lõunapausil osalemise mõju", NULL, "Näitajad") 

3.7.2 Interaktiivsel lõunapausil osalemise eeldatava mõju stressitasemele ja töövõimele korrelatsioonimaatriks

Töötajad, kes tunnevad, et interaktiivsel lõunapausil osalemine nende töövõimele (LpM1) positiivselt mõjuks, peavad pigem osalemise mõju stressitasemele samuti positiivseks (LpM2; keskmine positiivne seos 0.48) ning ei leia kindlasti, et mõju puuduks (LpM2; väga tugev seos 1).

Töötajad, kes tunnevad, et interaktiivsel lõunapausil osalemine nende töövõimet (LpM1) ei mõjutaks, ei peaks olesalemist pigem mõjusaks ka stressitasemele (LpM2; keskmine positiivne seos 0.54).

uhendatud_lp_osalemise_moju_numbritena_kusimused <- uhendatud_veerud_arvulisteks_tunnusteks(kysitlus[, c("Ajatempel", "Milline võiks olla interaktiivsel lõunapausil osalemise mõju järgmistele näitajatele? [Töövõime]", 
                "Milline võiks olla interaktiivsel lõunapausil osalemise mõju järgmistele näitajatele? [Stressitase]")] ) 



colnames(uhendatud_lp_osalemise_moju_numbritena_kusimused) <- c("Ajatempel", "LpM1 - Positiivne", "LpM1 - Mõju puudub", "LpM2 - Positiivne", "LpM2 - Mõju puudub", "LpM2 - Negatiivne") #TM1 - töövõime
#TM2 - stressitase

lp_osalemise_moju_korrelatsioonitabel <- tee_korrelatsioonitabel(uhendatud_lp_osalemise_moju_numbritena_kusimused) 
# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(lp_osalemise_moju_korrelatsioonitabel, # Korrelatsioonitabel
                        "Interaktiivsel lõunapausil osalemise tegurite mõju korrelatsioonid") + # Joonise pealkiri
  labs(subtitle = paste(c("LpM1 - Interaktiivse lõunapausi eeldatav mõju töövõimele", 
                          "LpM2 - Interaktiivse lõunapausi eeldatav mõju stressitasemele"), collapse = "\n")) + scale_x_discrete(labels=c("LpM1\nPositiivne", "LpM1\nMõju puudub", "LpM2\nPositiivne", "LpM2\nMõju puudub")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

3.7.3 Interaktiivsel lõunapausil osalemise eeldatava mõju stressitasemele ja töövõimele ning füüsilise tervise näitajate korrelatsioonimaatriks

Interaktiivse lõunapausi mõju töövõimele peavad positiivseks paremate tervisenäitajatega inimesed:

Töötajad, kes tunnevad, et interaktiivsel lõunapausil osalemine nende töövõimele (LPM1) positiivselt mõjuks, on pigem regulaarse unegraafikuga (Ft4; keskmine positiivne seos 0.33), nad võivad rohkem jalgsi, jalgratta või muu kergliikuriga ühest punktist teise liikuda (Ft1; nõrk positiivne seos 0.21) ja neil võib vähem tervisekaebusi olla (Ft2; nõrk negatiivne seos -0.28).

Interaktiivse lõunapausi mõju stressitasemele peavad positiivseks vähem inimesed:

Töötajated, kes tunnevad, et interaktiivsel lõunapausil osalemine nende stressitasemele (LpM2) positiivselt mõjuks, võivad vähem aktiivselt liikuda/treenida (Ft3; nõrk negatiivne seos -0.25).

Mõned peavad interaktiivse lõunapausi mõju mõju stressitasemele ka olematuks või negatiivseks:

Töötajated, kes tunnevad, et interaktiivsel lõunapausil osalemine nende stressitasemele (LpM2) mõju ei oleks, võivad rohkem aktiivselt liikuda/treenida (Ft3; nõrk positiivne seos 0.2) ja vähem jalgsi, jalgratta või muu kergliikuriga ühest punktist teise liikuda (Ft1; nõrk negatiivne seos -0.23).

Töötajated, kes tunnevad, et interaktiivsel lõunapausil osalemine nende stressitasemele (LpM2) negatiivselt mõjuks, võivad toidukordade vahel rohkem näksida (Ft5; nõrk positiivne seos 0.24) ja rohkem jalgsi, jalgratta või muu kergliikuriga ühest punktist teise liikuda (Ft1; nõrk positiivne seos 0.21).

tee_filtreeritud_korrelatsioonimaatriks(uhendatud_lp_osalemise_moju_numbritena_kusimused, ft_luhendatud_veergudega_sagedustabel,  "Interaktiivsel lõunapausil osalemise eeldatav mõju stressitasemele\nja töövõimele ning füüsilise tervise näitajate korrelatsioonid") + scale_x_discrete(labels=c("LpM1\nPos", "LpM1\nMõju puudub", "LpM2\nPos", "LpM2\nMõju puudub", "LpM2\nNeg")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

3.7.4 Interaktiivsel lõunapausil osalemise eeldatava mõju stressitasemele ja töövõimele ning vaimse tervise näitajate korrelatsioonimaatriks

Interaktiivse lõunapausi mõju stressitasemele peavad negatiivsemaks paremate vaimse tevrise näitajatega töötajad: enesetäiendamisega tegelejad peavad mõju pigem negativiseks (Vt4; keskmine positiivne seos 0.38) ning ka hooseisundis töötajad võivad mõju negatiivseks pidada (Vt5; nõrk positiivne seos 0.221).

tee_filtreeritud_korrelatsioonimaatriks(uhendatud_lp_osalemise_moju_numbritena_kusimused, vt_luhendatud_veergudega_sagedustabel, "Interaktiivsel lõunapausil osalemise eeldatav mõju stressitasemele\nja töövõimele ning vaimse tervise näitajate korrelatsioonid") + scale_x_discrete(labels=c("LpM1\nPos", "LpM1\nMõju puudub", "LpM2\nPos", "LpM2\nMõju puudub", "LpM2\nNeg")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

3.7.5 Interaktiivsel lõunapausil osalemise eeldatava mõju stressitasemele ja töövõimele ning sotsiaalse tervise näitajate korrelatsioonimaatriks

Ületundide tegijad (St1) ei pea mõju töövõimele (LpM1; keskmine positiivne seos 0.3) ega stressitasemele (LpM2; nõrk positiivne seos 0.2) oluliseks.

Mõju stressitasemele (LpM2) ei peeat üldiselt negatiivseks: töökaaslastega suhtlejad võivad mõju pigem positiivseks pidada (St2; nõrk negatiivne seos -0.21), rohkem linnakus vaba aja veetjate arvates mõju puudub (St3; nõrk positiivne seos 0.25) ja linnaku üritustel osalejate arvates võib mõju positiivne olla (St4; nõrk positiivne seos 0.21).

tee_filtreeritud_korrelatsioonimaatriks(uhendatud_lp_osalemise_moju_numbritena_kusimused, st_luhendatud_veergudega_sagedustabel, "Interaktiivsel lõunapausil osalemise eeldatav mõju stressitasemele\nja töövõimele ning sotsiaalse tervise näitajate korrelatsioonid") + scale_x_discrete(labels=c("LpM1\nPos", "LpM1\nMõju puudub", "LpM2\nPos", "LpM2\nMõju puudub", "LpM2\nNeg")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

3.7.6 Interaktiivsel lõunapausil osalemise eeldatava mõju stressitasemele ja töövõimele ning töötajate vanuse korrelatsioonimaatriks

Vanuserühm 30-40 võib mõju stressitasemele negatiivseks pidada (LpM2; nõrk positiivne seos 0.26).

Vanuserühm 40-50 võib mõju stressitasemele positiivseks pidada (LpM2; nõrk positiivne seos 0.27).

Vanuserühm 50-60 peab mõju stressitasemele pigem olematuks (LpM2; keskmine positiivne seos 0.3).

tee_filtreeritud_korrelatsioonimaatriks(uhendatud_lp_osalemise_moju_numbritena_kusimused, tootaja_uldandmed, "Interaktiivsel lõunapausil osalemise eeldatav mõju stressitasemele ja töövõimele\nning töötajate vanuse korrelatsioonid") + scale_x_discrete(labels=c("LpM1\nPos", "LpM1\nMõju puudub", "LpM2\nPos", "LpM2\nMõju puudub", "LpM2\nNeg")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

3.7.7 Interaktiivsel lõunapausil osalemise eeldatava mõju stressitasemele ja töövõimele ning ettevõtte andmete korrelatsioonimaatriks

Väikeste ettevõtete töötajad võivad rohkem leida, et mõju töövõimele on positiivne (LpM1; nõrk positiivne seos 0.23) ja peavad mõju stressitasemele pigem positiivseks (LpM2; keskmine positiivne seos 0.32).

Mikroettevõtete töötajad võivad rohkem leida, et mõju stressitasemele puudub (LpM2; nõrk positiivne seos 0.2).

Keskmise suurusega ettevõtete töötajad võivad rohkem leida, et mõju töövõimele puudub (LpM1; nõrk positiivne seos 0.25) ja peavad mõju stressitasemele pigem olematuks (LpM2; keskmine positiivne seos 0.32).

Rahvusvaheliste ettevõtete töötajad võivad rohkem leida, et mõju töövõimele puudub (LpM1; nõrk positiivne seos 0.25).

Tööstuse, energeetika, ehituse valdkonna Mikroettevõtete töötajad võivad rohkem leida, et mõju stressitasemele puudub (LpM2; nõrk positiivne seos 0.2).

Suurte ettevõtete töötajad võivad rohkem leida, et mõju stressitasemele on negatiivne (LpM2; nõrk positiivne seos 0.29).

Hariduse, teaduse valdkonna töötajad võivad mõju stressitasemele rohkem puuduvaks (LpM2; nõrk positiivne seos 0.21) või negatiivseks pidada (LpM2; nõrk positiivne seos 0.2).

tee_filtreeritud_korrelatsioonimaatriks(uhendatud_lp_osalemise_moju_numbritena_kusimused, ettevotte_uldandmed, "Interaktiivsel lõunapausil osalemise eeldatav mõju stressitasemele ja töövõimele\nning ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + scale_x_discrete(labels=c("LpM1\nPos", "LpM1\nMõju puudub", "LpM2\nPos", "LpM2\nMõju puudub", "LpM2\nNeg")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

3.8 Seminaride või töötubade vastu tuntava huvi korrelatsioonid

Korrelastioone tervisenäirtajatega vaadatakse tervisenäitajate esinemissageduse järgi.

3.8.1 Seminaride või töötubade vastu tuntav huvi

Kõige suuremat huvi pakkuvad teemad on stressiga toimetulek ja selle maandamine, vaimse ja füüsilise tervise toetamine. Mõnevõrra ollakse huvitatud tööstrateegiatest, tervislike harjumuste loomisest ja kujundamisest, ajaplaneerimisest, enesejuhtimisest, harjumuste loomisest ja hoidmisest.

list_seminarid_tootoad <- list("Palun hinda, millisel määral järgmised harivad seminarid või töötoad sind tööritriidil või lõunapausil osaledes huvitaksid [Ei ole huvitatud]", 
                "Palun hinda, millisel määral järgmised harivad seminarid või töötoad sind tööritriidil või lõunapausil osaledes huvitaksid [Olen mõnevõrra huvitatud]",
                "Palun hinda, millisel määral järgmised harivad seminarid või töötoad sind tööritriidil või lõunapausil osaledes huvitaksid [Olen väga huvitatud]")



# Seminaride ja töötubade vastu tuntava huvi põhjal sagedustabeli tegemine
seminarid_tootoad_lai_sagedustabel <- tee_skalaarkysimuste_lai_sagedustabel(list_seminarid_tootoad, ",\\s*(?=[A-ZÄÖÜ])|,(?=[A-ZÄÖÜ])") 


seminarid_tootoad_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(seminarid_tootoad_lai_sagedustabel[[1]], "Ajatempel")

seminarid_tootoad_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(seminarid_tootoad_pikk_sagedustabel, seminarid_tootoad_lai_sagedustabel[[2]])

# Joonise tegemine
joonis(seminarid_tootoad_sagedustabel_summadega,
      "Seminarid ja töötoad",
      "Huvi seminaride või töötubade vastu", 
       y_veerg = "n") 

3.8.2 Seminaride või töötubade vastu tuntava huvi korrelatsioonimaatriks

Ajaplaneerimisest (S/T1) huvitujad on suurema tõenäosusega huvitatud ka enesejuhtimisest (S/T2; tugev positiivne seos 0.76) ja pigem huvitatud ka tervislike harjumuste loomisest ja kujundamisest (S/T6; keskmine positiivne seos 0.66), tööstrateegiatest (S/T3; nõrk keskmine seos 0.54), stessiga toimetulekust ja selle maandamisest (S/T4; keskmine positiivne seos 0.54) ning vaimse ja füüsilise tervise toetamisest (S/T7; keskmine positiivne seos 0.43).

Enesejuhtimisest (S/T2) huvitujad on suurema tõenäosusega huvitatud ka stessiga toimetulekust ja selle maandamisest (S/T4; tugev positiivne seos 0.77) ja pigem huvitatud ka vaimse ja füüsilise tervise toetamisest (S/T7; keskmine positiivne seos 0.64), tööstrateegiatest (S/T3; nõrk keskmine seos 0.59), tervislike harjumuste loomisest ja kujundamisest (S/T6; keskmine positiivne seos 0.59) ja võivad olla huvitatud ka eneseväljendusoskustest (S/T5; nõrk positiivne seos 0.26) ja harjumuste loomisest ja hoidmisest (S/T8; nõrk positiivne seos 0.24).

Tööstrateegiatest (S/T3) huvitujad on pigem huvitatud ka vaimse ja füüsilise tervise toetamisest (S/T7; keskmine positiivne seos 0.52), tervislike harjumuste loomisest ja kujundamisest (S/T6; keskmine positiivne seos 0.5), stessiga toimetulekust ja selle maandamisest (S/T4; keskmine positiivne seos 0.43) ja harjumuste loomisest ja hoidmisest (S/T8; keskmine positiivne seos 0.3).

Stessiga toimetulekust ja selle maandamisest (S/T4) huvitujad on pigem huvitatud ka vaimse ja füüsilise tervise toetamisest (S/T7; keskmine positiivne seos 0.69), tervislike harjumuste loomisest ja kujundamisest (S/T6; keskmine positiivne seos 0.44) ja eneseväljendusoskustest (S/T5; keskmine positiivne seos 0.43)ning võivad olla rohkem huvitatud ka harjumuste loomisest ja hoidmisest (S/T8; nõrk positiivne seos 0.28).

Eneseväljendusoskustest (S/T5) huvitujad on suurema tõenäosusega huvitatud ka harjumuste loomisest ja hoidmisest (S/T8; tugev positiivne seos 0.76) ja võivad olla huvitatud ka vaimse ja füüsilise tervise toetamisest (S/T7; keskmine positiivne seos 0.36).

Vaimse ja füüsilise tervise toetamisest (S/T7) huvitujad on pigem huvitatud ka tervislike harjumuste loomisest ja kujundamisest (S/T6; keskmine positiivne seos 0.6) ja harjumuste loomisest ja hoidmisest (S/T8; keskmine positiivne seos 0.6).

# Skalaarvastused asendatakse numbritega
seminarid_tootoad_numbritena <- asenda_skalaartunnused_numbritega(seminarid_tootoad_lai_sagedustabel[[1]], # df vastustega
                                                            seminarid_tootoad_lai_sagedustabel[[2]]) # skalaarvastused

# Luuakse lühendatud veerunimedega sagedustabel
seminarid_tootoad_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(seminarid_tootoad_numbritena,
                        "S/T")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
seminarid_tootoad_korrelatsioonitabel <- tee_korrelatsioonitabel(seminarid_tootoad_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(seminarid_tootoad_korrelatsioonitabel, # Korrelatsioonitabel
                        "Seminaride või töötubade vastu tuntava huvi korrelatsioonid", # Joonise pealkiri
                        luhenda_sagedustabeli_veerunimed(seminarid_tootoad_numbritena,
                        "S/T")[[2]]) # Lühendatud veerunimede ja neile vastavate väärtuste vektor

3.8.3 Seminaride või töötubade vastu tuntava huvi ja füüsilise tervise näitajate korrelatsioonimaatriks

Huvi on suurem aktiivsetel liikujatel, toidukordade vahel näksijatel ja rohkema ega ekraani eest veetjatel:

Aktiivsed liikujad (Ft3) tunnevad rohkem huvi: nad on pigem rohkem huvitatud ajaplaneerimisest (S/T1; keskmine positiivne seos 0.42), enesejuhtimisest (S/T2; keskmine positiivne seos 0.48), tööstrateegiatest (S/T3; nõrk positiivne seos 0.25), stessiga toimetulekust ja selle maandamisest (S/T4; keskmine positiivne seos 0.31), tervislike harjumuste loomisest ja kujundamisest (S/T6; keskmine positiivne seos 0.45) ja vaimse ja füüsilise tervise toetamisest (S/T7; keskmine positiivne seos 0.41).

Toidukordade vahel näksijad (Ft5) võivad rohkem huvituda ajaplaneerimisest (S/T1; nõrk positiivne seos 0.24) ning tervislike harjumuste loomisest ja kujundamisest (S/T6; nõrk positiivne seos 0.2) ja vähem stressiga toimetulekust ja selle maandamisest (S/T4; nõrk negatiivne seos -0.24).

Üle 5 tunni päevas ekraani ees olijad (Ft7) võivad olla rohkem huvitatud harjumuste loomisest ja hoidmisest (S/T8; nõrk positiivne seos 0.25) ning ajaplaneerimisest (S/T1; nõrk positiivne seos 0.2).

Huvi on väiksem jalgsi või kergliikuriga liikujatel ja tervisekaebustega inimestel:

Jalgsi, jalgratta või muu kergliikuriga liikujad (Ft1) võivad olla vähem huvitatud ajaplaneerimisest (S/T1; nõrk negatiivne seos -0.24), enesejuhtimisest (S/T2; nõrk negatiivne seos -0.21), stessiga toimetulekust ja selle maandamisest (S/T4; nõrk negatiivne seos-0.2) ja vaimse ja füüsilise tervise toetamisest (S/T7; nõrk negatiivne seos -0.2).

Tervisekaebustega (Ft2) töötajad võivad enesejuhtimisest (S/T2; nõrk negatiivne seos -0.27), stressiga toimetulekust ja selle maandamisest (S/T4; nõrk negatiivne seos -0.24), tervislike harjumuste loomisest ja kujundamisest (S/T6; nõrk negatiivne seos -0.22) ning vaimse ja füüsilise tervise toetamisest (S/T7; nõrk negatiivne seos -0.21) vähem huvituda.

tee_filtreeritud_korrelatsioonimaatriks(seminarid_tootoad_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Seminaride või töötubade vastu tuntava huvi\nja füüsilise tervise näitajate korrelatsioonid")

3.8.3 Seminaride või töötubade vastu tuntava huvi ja vaimse tervise näitajate korrelatsioonimaatriks

Positiivsed vaimse tervise näitajad võivad vahel olla seotud väiksema huviga:

Enesetäiendamisega (Vt4) tegelejad on pigem rohkem huvitatud tervislike harjumuste loomisest ja kujundamisest (S/T6;keskmine positiivne seos 0.35) ja pigem vähem eneseväljendusoskustest (S/T5; keskmine negatiivne seos -0.32), nad võivad olla rohkem huvitatud tööstrateegiatest (S/T3; nõrk positiivne seos 0.27) ja vähem stressiga toimetulekust ja selle maandamisest (S/T4; nõrk negatiivne seos -0.21).

Hooseisundis töötajad (Vt5) on pigem vähem huvitatud vaimse ja füüsilise tervise toetamisest (S/T7; keskmine negatiivne seos -0.42) ja võivad olla vähem huvitatud stressiga toimetulekust ja selle maandamisest (S/T4; nõrk negatiivne seos -0.26).

Negatiivsed vaimse tervise näitajad on seotud suurema huviga:

Ületundide tegijad (Vt1) ja tööstressi kogejad (Vt2) on pigem rohkem huvitatud ajaplaneerimisest (S/T1; Vt1 keskmine positiivne seos 0.32, Vt2 keskmine positiivne seos 0.31) ja enesejuhtimisest (S/T2; Vt1 nõrk positiivne seos 0.29, keskmine positiivne seos 0.39) ning võivad olla rohkem huvitatud tööstrateegiatest (S/T3; Vt1 nõrk positiivne seos 0.29, Vt2 nõrk positiivne seos 0.26), stessiga toimetulekust ja selle maandamisest (S/T4; Vt1 nõrk positiivne seos 0.26, Vt2 nõrk positiivnne seos 0.24) ja vaimse ja füüsilise tervise toetamisest (S/T7; Vt1 nõrk positiivne seos 0.21, Vt2 nõrk positiivne seos 0.24).

Ärevuse või depressiooni sümptomite kogejad (Vt3) on pigem rohkem huvitatud harjumuste loomisest ja hoidmisest (S/T8; keskmine positiivne seos 0.2) ning võivad olla rohkem huvitatud ajaplaneerimisest (S/T1; nõrk positiivne seos 0.27), enesejuhtimisest (S/T2; nõrk positiivne seos 0.26), tervislike harjumuste loomisest ja kujundamisest (S/T6; nõrk positiivne seos 0.22) ning vaimse ja füüsilise tervise toetamisest (S/T7; nõrk positiivne seos 0.2).

tee_filtreeritud_korrelatsioonimaatriks(seminarid_tootoad_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Seminaride või töötubade vastu tuntava huvi ja vaimse tervise näitajate\nkorrelatsioonid")

3.8.5 Seminaride või töötubade vastu tuntava huvi ja sotsiaalse tervise näitajate korrelatsioonimaatriks

Linnaku üritustel osalejad (St4) tunnevad pakutud võimalustest väiksemat huvi: nad huvituvad stressiga toimetulekust ja selle maandamisest pigem vähem (S/T4; keskmine negatiivne seos -0.3) ning võivad vähem huvituda ka eneseväljendusoskustest (S/T5; nõrk negatiivne seos -0.2).

Töökaaslastega suhtlemine ja linnakus vaba aja veetmine on seotud suurema huviga:

Töökaaslastega suhtlejad (St2) võivad eneseväljendusoskustest rohkem huvituda (S/T5; nõrk positiivne seos 0.23).

Linnakus vaba aja veetjatel (St3) huvituvad eneseväljendusoskustest (S/T5; keskmine positiivne seos 0.31) ja vaimse ja füüsilise tervise toetamisest (S/T7; keskmine positiivne seos 0.32) pigem rohekm ning võivad rohkem huvituda ka harjumuste loomisest ja hoidmisest (S/T8; nõrk positiivne seos 0.29).

Kaugtöö tegijatel (St1) võivad tööstrateegiatest (S/T3; nõrk positiivne seos 0.23) ning tervislike harjumuste loomisest ja kujundamisest (S/T6; nõrk positiivne seos 0.2) rohkem huvituda.

tee_filtreeritud_korrelatsioonimaatriks(seminarid_tootoad_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Seminaride või töötubade vastu tuntava huvi ja sotsiaalse tervise näitajate\nkorrelatsioonid")

3.8.6 Seminaride või töötubade vastu tuntava huvi ja töötajate vanuse korrelatsioonimaatriks

Vanuserühm 18-40 tunneb suuremat huvi:

Vanuserühm 18-30 huvitub eneseväljendusoskustest pigem rohkem (S/T5; keskmine positiivne seos 0.3) ning ka enesejuhtimisest (S/T2; nõrk positiivne seos 0.26), harjumuste loomisest ja hoidmisest (S/T8; nõrk positiivne seos 0.23) ja ajaplaneerimisesr (S/T1; nõrk positiivne seos 0.2) rohkem huvituda.

Vanuserühm 30-40 võib tööstrateegiatest (S/T3; nõrk positiivne seos 0.26) ja vaimse ja füüsilise tervise toetamisest (S/T7; nõrk positiivne seos 0.26) rohkem huvituda.

Vanuserühm 40-70 tunneb väiksemat huvi:

Vanuserühm 40-50 huvitub vaimse ja füüsilise tervise toetamisest (S/T7; keskmine negatiivne seos -0.34) ja tööstrateegiatest (S/T3; keskmine negatiivne seos -0.31) pigem vähem ning võib vähem huvituda ka stessiga toimetulekust ja selle maandamisest (S/T4; nõrk negatiivne seos -0.28) ja ajaplaneerimisest (S/T1; nõrk negatiivne seos -0.24).

Vanuserühm 50-60 huvitub eneseväljendusoskustest pigem vähem (S/T5; keskmine negatiivne seos -0.3) ja võib vähem huvituda ka harjumuste loomisest ja hoidmisest (S/T8; nõrk negatiivne seos -0.2).

Vanuserühm 60-70 võib ajaplaneerimisest vähem huvituda (S/T1; nõrk negatiivne seos -0.29).

tee_filtreeritud_korrelatsioonimaatriks(seminarid_tootoad_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Seminaride või töötubade vastu tuntava huvi ja töötajate vanuse korrelatsioonid")

3.8.7 Seminaride või töötubade vastu tuntava huvi ja ettevõtte andmete korrelatsioonimaatriks

Töötajad mikroettevõtetes, riigiametites ja IKT-sektoris tunnevad suuremat huvi:

Mikroettevõtete töötajad tööstrateegiatest pigem rohkem (S/T3; keskmine positiivne seos 0.35) ja võivad tunda suuremat huvi ka enesejuhtimise (S/T2; nõrk positiivne seos 0.28) vastu.

Riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu valdkonna töötajad võivad tunda suuremat huvi tervislike harjumuste loomise ja kujundamise (S/T6; nõrk positiivnne seos 0.27), tööstrateegiate (S/T3; nõrk positiivne seos 0.26), ajaplaneerimise (S/T1; nõrk positiivne seos 0.25) ja eneseväljendusoskuste (S/T5; nõrk positiivne seos 0.23) vastu.

Telekommunikatsiooni, infotehnoloogia valdkonna töötajad võivad tunda suuremat huvi tööstrateegiate (S/T3; nõrk negatiivne seos -0.22) ja ajaplaneerimise (S/T1; nõrk positiivne seos 0.22) vastu.

Töötajad väikestes ettevõtetes ja tööstuses, energeetika ja ehituses tunnevad mõne asja vastu suuremat huvi ja mõne vastu väiksemat:

Väikeste ettevõtete töötajad huvituvad tervislike harjumuste loomisest ja kujundamisest (S/T6; keskmine positiivne seos 0.44) ja ajaplaneerimisest (S/T1; keskmine positiivne seos 0.31) pigem rohkem, võivad tunda suuremat huvi vaimse ja füüsilise tervise toetamisest (S/T7; nõrk positiivne seos 0.26) ja väiksemat huvi eneseväljendusoskustest (S/T5; nõrk negatiivne seos -0.23).

Tööstuse, energeetika, ehituse valdkonna töötajad võivad huvituda rohkem eneseväljendusoskustest (S/T5; nõrk positiivne seos 0.28), stessiga toimetulekust ja selle maandamisest (S/T4; nõrk positiivne seos 0.22) ning vaimse ja füüsilise tervise toetamisest (S/T7; nõrk positiivne seos 0.22) ja väiksemat huvi ajaplaneerimisest (S/T1; nõrk negatiivne seos -0.23).

Töötajad rahvusvahelistes ja keskmise suurusega ettevõtetes ning teeninduses, kaubanduses, transpordis ja panganduses, kindlustuses, kinnisvaras tunnevad väiksemat huvi**:

Rahvusvaheliste ettevõtete töötajad huvituvad harjumuste loomisest ja hoidmisest (S/T8; keskmine negatiivne seos -0.41) ning eneseväljendusoskustest (S/T5; keskmine negatiivne seos -0.41) pigem vähem ja võivad tunda väiskemat huvi stessiga toimetuleku ja selle maandamisest (S/T4; nõrk negatiivne seos -0.21).

Keskmise suurusega ettevõtete töötajad tunnevad pigem väiksemat huvi ajaplaneerimisest (S/T1; keskmine negatiivne seos -0.54), tervislike harjumuste loomisest ja kujundamisest (S/T6; keskmine negatiivne seos -0.46) ning stessiga toimetulekusst ja selle maandamisest (S/T4; keskmine negatiivne seos -0.43) ning enesejuhtimisest (S/T2; keskmine negatiivne seos -0.39) ja võivad tunda väiksemat huvi vaimse ja füüsilise tervise toetamisest (S/T7; nõrk negatiivne seos -0.25).

Teeninduse, kaubanduse, transpordi valdkonna töötajad võivad eneseväljendusoskustest (S/T5; nõrk negatiivne seos -0.22) ning harjumuste loomise ja hoidmisest (S/T8; nõrk negatiivne seos -0.21) vähem huvituda.

Panganduse, kindlustuse, kinnisvara valdkonna töötajad huvituvad enesejuhtimisest (S/T2; keskmine negatiivne seos -0.34) ja stessiga toimetulekust ja selle maandamisest (S/T4; keskmine negatiivne seos -0.34) pigem vähem ning võivad tunda väiksemat huvi tööstrateegiatest (S/T3; nõrk negatiivne seos -0.28), eneseväljendusoskustest (S/T5; nõrk negatiivne seos -0.28) ja ajaplaneerimisest (S/T1; nõrk negatiivne seos -0.23).

tee_filtreeritud_korrelatsioonimaatriks(seminarid_tootoad_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Seminaride või töötubade vastu tuntava huvi\nja ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\) \(~\)

\(~\)

\(~\)

3.9 Puhketegevuste vastu tuntava huvi korrelatsioonid

3.9.1 Puhketegevuste vastu tuntav huvi

Kõige suuremat huvi pakkuvad puhketegevused on kultuurielamused, loomingulised tegevused ja matkad. Mõnevõrra ollakse huvitatud spaast või muust lõõgastavast tegevusest, ekskursioonidest, keha ja vaimu ühendavast füüsilisest liikumisest ja festivalikülastusest.

list_puhketegevused <- list("Palun hinda, millisel määral järgmised puhketegevused sind tööritriidil või lõunapausil osaledes huvitaksid [Ei ole huvitatud]", 
                "Palun hinda, millisel määral järgmised puhketegevused sind tööritriidil või lõunapausil osaledes huvitaksid [Olen mõnevõrra huvitatud]",
                "Palun hinda, millisel määral järgmised puhketegevused sind tööritriidil või lõunapausil osaledes huvitaksid [Olen väga huvitatud]")

# Puhketegevuste vastu tuntava huvi põhjal sagedustabeli tegemine
puhketegevused_lai_sagedustabel <- tee_skalaarkysimuste_lai_sagedustabel(list_puhketegevused, ",\\s*(?=[A-ZÄÖÜ])|,(?=[A-ZÄÖÜ])") 

puhketegevused_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(puhketegevused_lai_sagedustabel[[1]], "Ajatempel")

puhketegevused_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(puhketegevused_pikk_sagedustabel, puhketegevused_lai_sagedustabel[[2]])

# Joonise tegemine
joonis(puhketegevused_sagedustabel_summadega,
      "Puhketegevused",
      "Huvi tööritriidil või lõunapausil toimuvate puhketegevuste vastu", 
       y_veerg = "n") 

3.9.2 Puhketegevuste vastu tuntava huvi korrelatsioonimaatriks

Spaast või muust lõõgastavast tegevusest (Pu1) huvitujad huvitusid pigem rohkem ekskursioonidest (Pu5; keskmine positiivne seos 0.5) ja võivad rohkem huvituda ka kultuurielamustest (Pu7; nõrk positiivne seos 0.29), festivalidest (Pu2; nõrk positiivne seos 0.26) ja matkadest (Pu6; nõrk positiivne seos 0.26), ning keha ja vaimu ühendavast füüsilisest liikumisest (Pu4; nõrk positiivne seos 0.2).

Loomingulistest tegevustest (Pu3) huvitujad võivad rohkem huvituda keha ja vaimu ühendavatest füüsilisest liikumisest (Pu4; nõrk positiivne seos 0.26), ekskursioonidest (Pu5; nõrk positiivne seos 0.26), kultuurielamustest (Pu7; nõrk positiivne seos 0.23) ja matkadest (Pu6; nõrk positiivne seos 0.21).

Matkadest (Pu6) huvitujad huvitusid pigem rohkem ekskursioonidest (Pu5; keskmine positiivne seos 0.37) ja kultuurielamustest (Pu7; keskmine positiivne seos 0.36) ning võivad rohkem huvituda ka keha ja vaimu ühendavast füüsilisest liikumisest (Pu4; nõrk positiivne seos 0.23).

Kultuurielamustest (Pu7) huvitujad huvitusid pigem rohkem festivalidest (Pu2; keskmine positiivne seos 0.46).

# Skalaarvastused asendatakse numbritega
puhketegevused_numbritena <- asenda_skalaartunnused_numbritega(puhketegevused_lai_sagedustabel[[1]], # df vastustega
                                                            puhketegevused_lai_sagedustabel[[2]]) # skalaarvastused

# Luuakse lühendatud veerunimedega sagedustabel
puhketegevused_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(puhketegevused_numbritena,
                        "Pu")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
puhketegevused_korrelatsioonitabel <- tee_korrelatsioonitabel(puhketegevused_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(puhketegevused_korrelatsioonitabel, # Korrelatsioonitabel
                        "Puhketegevuste vastu tuntava huvi korrelatsioonid", # Joonise pealkiri
                        luhenda_sagedustabeli_veerunimed(puhketegevused_numbritena,
                        "Pu")[[2]]) # Lühendatud veerunimede ja neile vastavate väärtuste vektor

3.9.3 Puhketegevuste vastu tuntava huvi ja füüsilise tervise näitajate korrelatsioonimaatriks

Aktiivsed liikujad (Ft3) on pigem rohkem huvitatud keha ja vaimu ühendavast füüsilisest liikumisest (Pu4; keskmine positiivne seos 0.45) ja võivad olla rohkem huvitatud matkadest (Pu6; nõrk positiivne seos 0.24).

Toidukordade vahel näksijaid (Ft5) huvitab pigem avastamine ja tegemine: nad on pigem rohkem huvitatud ekskursioonidest (Pu5; keskmine positiivne seos 0.45) ja matkadest (Pu6; keskmine positiivne seos 0.33) ning võivad olla rohkem huvitatud loomingulistest tegevustest (Pu3; nõrk positiivne seos 0.23) ja vähem festivalidest (Pu2; nõrk negatiivne seos -0.27).

Regulaarsemad sööjad (Ft6) võivad olla rohkem huvitatud festivalidest (Pu2; nõrk positiivne seos 0.28) ja ekskursioonidest (Pu5; nõrk positiivne seos 0.2).

Üle 5 tunni päevas ekraani ees olijad (Ft7) võivad olla rohkem huvitatud kultuurielamustest (Pu7; nõrk positiivne seos 0.26), ekskursioonidest (Pu5; nõrk positiivne seos 0.22) ja spaast või muust lõõgastavast tegevusest (Pu1; nõrk positiivne seos 0.2)

Jalgsi, jalgratta või muu kergliikuriga liikujad (Ft1) võivad olla rohkem huvitatud spaast või muust lõõgastavast tegevusest (Pu1; nõrk positiivne seos 0.28).

Tervisekaebustega (Ft2) töötajad ei ole kehalistest puhketegevustest huvitatud: nad võivad olla rohkem huvitatud loomingulistest tegevustest (Pu3; nõrk positiivne seos 0.2) ja vähem huvitatud festivalidest (Pu2; nõrk negatiivne seos -0.24), keha ja vaimu ühendavast füüsilisest liikumisest (Pu4; nõrk negatiivne seos -0.24) ja spaast või muust lõõgastavast tegevusest (Pu1; nõrk negatiivne seos -0.21)

tee_filtreeritud_korrelatsioonimaatriks(puhketegevused_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Puhketegevuste vastu tuntava huvi ja füüsilise tervise näitajate\nkorrelatsioonid")

3.9.4 Puhketegevuste vastu tuntava huvi ja vaimse tervise näitajate korrelatsioonimaatriks

Positiivsed vaimse tervise näitajad võivad vahel olla seotud suurema huviga aktiivsete puhketegevuste vastu:

Enesetäiendamisega (Vt4) tegelejad on pigem rohkem huvitatud matkadest (Pu6; keskmine positiivne seos 0.44) ja pigem väehem loomingulistest tegevustest (Pu3; keskmine negatiivne seos -0.37).

Hooseisundis töötajad (Vt5) võivad olla rohkem huvitatud keha ja vaimu ühendavast füüsilisest liikumisest (Pu4; nõrk positiivne seos 0.22) ja ekskursioonidest (Pu5; nõrk positiivne seos 0.22).

Positiivsed vaimse tervise näitajad võivad vahel olla seotud suurema huviga vaimu kosutavate puhketegevuste vastu:

Tööstressi kogejad (Vt2) võivad olla rohkem huvitatud spaast või muust lõõgastavast tegevusest (Pu1; nõrk positiivne seos 0.25).

Ärevuse või depressiooni sümptomite kogejad (Vt3) võivad olla matkadest rohkem huvitatud (Pu6; nõrk positiivne seos 0.2).

Kültuurielamuste (Pu7) kogemiseks on vaja vaimset jõudlust: nendest tunnevad pigem väiksemat huvi hooseisundis töötajad (Vt5; keskmine negatiivne seos -0.35) ja võivad tunda ka ületundide tegijad (Vt1; nõrk negatiivne seos -0.21).

tee_filtreeritud_korrelatsioonimaatriks(puhketegevused_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Puhketegevuste vastu tuntava huvi ja vaimse tervise näitajate\nkorrelatsioonid")

3.9.5 Puhketegevuste vastu tuntava huvi ja sotsiaalse tervise näitajate korrelatsioonimaatriks

Töökaaslastega suhtlejad (St2) huvituvad matkadest pigem rohkem (Pu6; keskmine positiivne seos 0.33) ja võivad olla rohkem huvitatud spaast või muust lõõgastavast tegevusest (Pu1; nõrk positiivne seos 0.25), keha ja vaimu ühendavast füüsilisest liikumisest (Pu4; nõrk positiivne seos 0.23), loomingulistest tegevustest (Pu3; nõrk positiivne seos 0.21) ja kultuurielamustest (Pu7; nõrk positiivne seos 0.21).

Linnakus vaba aja veetjad (St3) huvituvad matkadest, (Pu6; keskmine positiivne seos 0.39), spaast või muust lõõgastavast tegevusest (Pu1; keskmine positiivne seos 0.37), loomingulistest tegevustest (Pu3; keskmine positiivne seos 0.34) ja kultuurielamustesst (Pu7; keskmine positiivne seos 0.32) pigem rohkem ja võivad olla rohkem huvitatud ka ekskursioonidest (Pu5; nõrk positiivne seos 0.27) ja festivalidest (Pu2; nõrk positiivne seos 0.22)

Kaugtöö tegijad (St1) huvituvad ekskursioonidest (Pu5; keskmine positiivne seos 0.37) ja matkadest (Pu6; keskmine positiivne seos 0.32) pigem rohkem.

Linnaku üritustel osalejad (St4) huvituvad matkadest pigem rohkem (Pu6; keskmine positiivne seos 0.47) ja võivad olla rohkem huvitatud kultuurielamustest (Pu7; nõrk positiivne seos 0.22).

tee_filtreeritud_korrelatsioonimaatriks(puhketegevused_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Puhketegevuste vastu tuntava huvi ja sotsiaalse tervise näitajate\nkorrelatsioonid")

3.9.6 Puhketegevuste vastu tuntava huvi ja töötajate vanuse korrelatsioonimaatriks

Mõned vanuserühmad tunnevad teatud puhketegevuste vastu suuremat huvi:

Vanuserühm 18-30 võib tunda suuremat huvi loomingulistest tegevustest (Pu3; nõrk positiivne seos 0.23) ja spaast või muust lõõgastavast tegevusest (Pu1; nõrk negatiivne seos 0.2).

Vanuserühm 30-40 huvitub kultuurielamustest (Pu7; keskmine positiivne seos 0.36) ja matkadest (Pu6; keskmine positiivne seos 0.31) pigem rohkem ja võib tunda suuremat huvi keha ja vaimu ühendava füüsilise liikumise (Pu4; nõrk positiivne seos 0.28) ja ekskursioonidest (Pu5; nõrk positiivne seos 0.28).

Vanuserühm 50-60 võib tunda suuremat huvi festivalidest (Pu2; nõrk positiivne seos 0.23).

Mõned vanuserühmad tunnevad teatud puhketegevuste vastu väiksemat huvi:

Vanuserühm 18-30 tunneb pigem väiksemat huvi kultuurielamuste (Pu7; keskmine negatiivne seos -0.41) ja matkade (Pu6; keskmine negatiivne seos -0.33) vastu.

Vanuserühm 40-50 tunneb pigem väiksemat huvi festivalidest (Pu2; keskmine negatiivne seos -0.34) ja võib tunda väiksemat huvi ka ekskursioonidest (Pu5; nõrk negatiivne seos -0.25) ja spaast või muu lõõgastavast tegevusest (Pu1; nõrk negatiivne seos -0.24).

Vanuserühm 50-60 tunneb pigem väiksemat huvi keha ja vaimu ühendavast füüsilisest liikumisest (Pu4; keskmine negatiivne seos -0.39) ja võib tunda väiksemat huvi ka loomingulistest tegevustest (Pu3; nõrk negatiivne seos -0.21).

Vanuserühm 60-70 võib tunda väiksemat huvi matkadest (Pu6; nõrk negatiivne seos -0.28).

tee_filtreeritud_korrelatsioonimaatriks(puhketegevused_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Puhketegevustee vastu tuntava huvi ja töötajate vanuse korrelatsioonid")

3.9.7 Puhketegevuste vastu tuntava huvi ja ettevõtte andmete korrelatsioonimaatriks

Töötajad kodumaistes ettevõtetes, mikroettevõtetes ja tööstuses, energeetika ja ehituses tunnevad puhketegevuste vastu väiksemat huvi:

Kodumaiste ettevõtete töötajad huvituvad spaast või muust lõõgastavast tegevusest (Pu1; keskmine negatiivne seos -0.36) ja võivad vähem huvituda ekskursioonidest (Pu5; nõrk negatiivne seos -0.25) ja loomingulistest tegevustest (Pu3; nõrk negatiivne seos -0.23).

Mikroettevõtete töötajad ekskursioonidest pigem vähem (Pu5; keskmine negatiivne seos -0.38).

Tööstuse, energeetika, ehituse valdkonna töötajad huvituvad ekskursioonidest pigem vähem (Pu5; keskmine negatiivne seos -0.38) ja võivad vähem huvituda ka matkadest (Pu6; nõrk negatiivne seos -0.23).

Töötajad rahvusvahelistes ettevõtetets, riigiametites ja teeninduses, kaubanduses, transpordis tunnevad suuremat huvi eksursioonide ja matkade vastu:

Rahvusvaheliste ettevõtete töötajad huvituvad ekskursioonidest pigem rohkem (Pu5; keskmine positiivne seos 0.32) ja võivad huvituda rohkem ka matkadest (Pu6; nõrk positiivne seos 0.29).

Riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu valdkonna huvituvad matkadest (Pu6; keskmine positiivne seos 0.36) ja ekskursioonidest (Pu5; keskmine positiivne seos 0.35) pigem rohkem

Teeninduse, kaubanduse, transpordi valdkonna töötajad matkadest (Pu6; nõrk positiivne seos 0.21) ja ekskursioonidest (Pu5; nõrk positiivne seos 0.21) rohkem huvituda.

Töötajad rahvusvahelistes ettevõtetetes (nõrk positiivne seos 0.23) ja riigiametites (nõrk positiivne seos 0.25) spaast või muust lõõgastavast tegevusest (Pu1) rohkem huvituda.

Hariduse, teaduse valdkonna töötajad huvituvad festivalidest pigem rohkem (Pu2; keskmine positiivne seos 0.32) ja loomingulistest tegevustest pigem vähem (Pu3; keskmine negatiivne seos -0.35) ning ka matkadest vähem huvituda (Pu6; nõrk negatiivne seos -0.28).

Festivalidest (Pu2) huvituvad rahvusvaheliste ettevõtete töötajad pigem vähem (keskmine negatiivne seos -0.32) ning võivad vähem huvituda ka teeninduse, kaubanduse, transpordi (nõrk negatiivne seos -0.29) ja panganduse, kindlustuse, kinnisvara (nõrk negatiivne seos -0.28) valdkondade töötajad.

Väikeste ettevõtete töötajad võivad ekskursioonidest (Pu5; nõrk positiivne seos 0.27) ja keskmise suurusega ettevõtete töötajad kultuurielamustest (Pu7; nõrk positiivne seos 0.21) rohkem huvituda.

tee_filtreeritud_korrelatsioonimaatriks(puhketegevused_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Puhketegevustee vastu tuntava huvi\nja ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

3.10 Toitlustuse aspektide vastu tuntava huvi korrelatsioonid

3.10.1 Toitlustuse aspektide vastu tuntav huvi

Kõige tähtsamad aspektid toitlustuse juures on maitseelamused ja tervislike valikute olemasolu. Mõnevõrra tähtsaks peetakse ka supertoite ja vaimset jõudlust toetavaid toite ning mahedat ja kohalikku toitu.

# Totilustuse aspektide tähtsuse põhjal sagedustabeli tegemine
list_toitlustus <- list("Palun hinda, kui tähtsad on sinu jaoks toitlustuse juures järgmised aspektid [Ei ole tähtis]", 
                "Palun hinda, kui tähtsad on sinu jaoks toitlustuse juures järgmised aspektid [Mõnevõrra tähtis]",
                "Palun hinda, kui tähtsad on sinu jaoks toitlustuse juures järgmised aspektid [Väga tähtis]")


# Puhketegevuste vastu tuntava huvi põhjal sagedustabeli tegemine
toitlustus_lai_sagedustabel <- tee_skalaarkysimuste_lai_sagedustabel(list_toitlustus, ",\\s*(?=[A-ZÄÖÜ])|,(?=[A-ZÄÖÜ])") 



toitlustus_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(toitlustus_lai_sagedustabel[[1]], "Ajatempel")

toitlustus_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(toitlustus_pikk_sagedustabel, toitlustus_lai_sagedustabel[[2]])


toitlustus_sagedustabel_summadega[15, 3] <- toitlustus_sagedustabel_summadega[15, 3] + 1 # 1 muu vastus 


# Joonise tegemine
joonis(toitlustus_sagedustabel_summadega,
      "Toitlustuse aspektid",
      "Toitlustuse aspektide tähtsus", 
      NULL,
       y_veerg = "n") 

\(~\)

\(~\)

3.10.2 Toitlustuse aspektide vastu tuntava huvi korrelatsioonimaatriks

Eritoidu (To1) olemasolust huvitujad tunnevad pigem suuremat huvi ka mahedast ja kohaliku toidust (To4; keskmine positiivne seos 0.53), supertoitudest ja vaimset jõudlust toetavast toidust (To3; keskmine positiivne seos 0.46) ja tervislikest valikutest (To5; keskmine positiivne seos 0.44).

Supertoitudest ja vaimset jõudlust toetavast toidust (To3) huvitujad tunnevad pigem huvi ka mahedast ja kohalikust toidust (To4; keskmine positiivne seos 0.35) ja tervislikest valikutest (To5; keskmine positiivne seos 0.35) ning võivad huvituda ka maitseelamustest (To2; nõrk positiivne seos 0.26).

Mahedast ja kohalikust toidust (To4) huvitujad tunnevad suurema tõenäosusega huvi pigem ka tervislikest valikutest (To5; keskmine positiivne seos 0.64) ja võivad pigem huvituda ka supertoitudest ja vaimset jõudlust toetavast toidust (To3; keskmine positiivne seos 0.35).

# Skalaarvastused asendatakse numbritega
toitlustus_numbritena <- asenda_skalaartunnused_numbritega(toitlustus_lai_sagedustabel[[1]], # df vastustega
                                                            toitlustus_lai_sagedustabel[[2]]) # skalaarvastused

# Luuakse lühendatud veerunimedega sagedustabel
toitlustus_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(toitlustus_numbritena,
                        "To")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
toitlustus_korrelatsioonitabel <- tee_korrelatsioonitabel(toitlustus_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(toitlustus_korrelatsioonitabel, # Korrelatsioonitabel
                        "Toitlustuse aspektide vastu tuntava huvi korrelatsioonid", # Joonise pealkiri
                        luhenda_sagedustabeli_veerunimed(toitlustus_numbritena,
                        "To")[[2]]) # Lühendatud veerunimede ja neile vastavate väärtuste vektor

3.10.3 Toitlustuse aspektide vastu tuntava huvi ja füüsilise tervise näitajate korrelatsioonimaatriks

Posiitvsete füüsilise tervise näitajatega töötajaid huvitavad toitlustuse aspektid vähem:

Aktiivsed liikujad (Ft3) on pigem rohkem huvitatud maitseelamustest (To2; keskmine positiivne seos 0.38) ning supertoitudest ja vaimset jõudlust toetavast toidust (To3; keskmine positiivne seos 0.32).

Jalgsi, jalgratta või muu kergliikuriga liikujad (Ft1) võivad olla rohkem huvitatud tervislikest valikutest (To5; nõrk positiivne seos 0.21) ja vähem supertoitudest ja vaimset jõudlust toetavast toidust (To3; nõrk negatiivne seos -0.22)

Negatiivsete füüsilise tervise näitajatega töötajaid huvitavad toitlustuse aspektid vähem:

Toidukordade vahel näksijad (Ft5) on pigem vähem huvitatud eritoidu (To1; keskmine positiivnne seos 0.33) olemasolust.

Üle 5 tunni päevas ekraani ees olijad (Ft7) võivad olla vähem huvitatud mahedast ja kohalikust toidust (To4; nõrk negatiivne seos -0.26) ja tervislikest valikutest (To5; nõrk negatiivne seos -0.26).

Tervisekaebustega (Ft2) töötajad võivad olla vähem huvitatud tervislikest valikutest (To5; nõrk negatiivne seos -0.24).

tee_filtreeritud_korrelatsioonimaatriks(toitlustus_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Toitlustuse aspektide vastu tuntava huvi ja füüsilise tervise näitajate\nkorrelatsioonid")

3.10.4 Toitlustuse aspektide vastu tuntava huvi ja vaimse tervise näitajate korrelatsioonimaatriks

Hooseisund võib toitumisvalikuid negatiivselt mõjutada: Hooseisundis töötajad (Vt5) võivad olla vähem huvitatud mahedast ja kohalikust toidust (To4; nõrk negatiivne seos -0.26).

Enesetäiendamisega (Vt4) tegelejad võivad olla rohkem huvitatud tervislikest valikutest (To5; nõrk positiivne seos 0.25) ja eritoidu (To1; nõrk positiivne seos 0.2) olemasolust.

Negatiivsed vaimse tervise näitajad suurendavad huvi tervist toetava toitumise vastu:

Ületundide tegijad (Vt1) võivad olla rohkem huvitatud eritoidu (To1; nõrk positiivne seos 0.21) olemasolust ning mahedast ja kohalikust toidust (To4; nõrk positiivne seos 0.21).

Tööstressi kogejad (Vt2) võivad olla rohkem huvitatud maitseelamustest (To2; nõrk positiivne seos 0.28), supertoitudest ja vaimset jõudlust toetavast toidust (To3; nõrk positiivne seos 0.28) ja eritoidu (To1; nõrk positiivne seos 0.24) olemasolust.

Ärevuse või depressiooni sümptomite kogejad (Vt3) on pigem rohkem huvitatud supertoitudest ja vaimset jõudlust toetavast toidust (To3; keskmine positiivne seos 0.4) ja võivad olla rohkem huvitatud eritoidu (To1; nõrk positiivne seos 0.25) olemasolust.

tee_filtreeritud_korrelatsioonimaatriks(toitlustus_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Toitlustuse aspektide vastu tuntava huvi ja vaimse tervise näitajate\nkorrelatsioonid")

3.10.5 Toitlustuse aspektide vastu tuntava huvi ja sotsiaalse tervise näitajate korrelatsioonimaatriks

Töökaaslastega suhtlejatel (St2) on pigem rohkem huvitatud tervislikest valikutest (To5; keskmine positiivne seos 0.31) ja võivad olla rohkem huvitatud maitseelamustest (To2; nõrk positiivne seos 0.28) ning mahedast ja kohalikust toidust (To4; nõrk positiivne seos 0.21).

Linnakus vaba aja veetjatel (St3) on pigem rohkem huvitatud eritoidu (To1; keskmine positiivne seos 0.31) olemasolust ja võivad olla rohkem huvitatud supertoitudest ja vaimset jõudlust toetavatest toitudest (To3; nõrk positiivne seos 0.24).

Linnaku üritustel osalejad (St4) võivad olla rohkem huvitatud eritoidu (To1; nõrk positiivne seos 0.2) olemasolust.

Kaugtöö tegijad (St1) võivad olla tervislikest valikutest vähem huvitatud (To5; nõrk negatiivne seos -0.21).

tee_filtreeritud_korrelatsioonimaatriks(toitlustus_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Toitlustuse aspektide vastu tuntava huvi ja sotsiaalse tervise näitajate\nkorrelatsioonid")

3.10.6 Toitlustuse aspektide vastu tuntava huvi ja töötajate vanuse korrelatsioonimaatriks

Vanuserühm 30-50 tunneb toitlustuse aspektide vastu suuremat huvi:

Vanuserühm 30-40 võib olla rohkem huvitatud eritoidu (To1; nõrk positiivne seos 0.2) olemasolust.

Vanuserühm 40-50 võib olla rohkem huvitatud maitseelamustest (To2; nõrk positiivne seos 0.29), mahedast ja kohalikust toidust (To4; nõrk positiivne seos 0.21) ning tervislikest valikutest (To5; nõrk positiivne seos 0.21).

Vanuserühm 50-70 tunneb toitlustuse aspektide vastu väiksemat huvi:

Vanuserühm 50-60 võib olla vähem huvitatud maitseelamustest (To2; nõrk negatiivne seos -0.28).

Vanuserühm 60-70 võib olla vähem huvitatud supertoitudest ja vaimset jõudlust toetavatest toitudest (To1; nõrk negatiivne seos -0.26).

tee_filtreeritud_korrelatsioonimaatriks(toitlustus_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Toitlustuse aspektide vastu tuntava huvi ja töötajate vanuse korrelatsioonid")

3.10.7 Toitlustuse aspektide vastu tuntava huvi ja ettevõtte andmete korrelatsioonimaatriks

Rahvusvaheliste ettevõtete töötajad huvituvad pigem rohkem mahedast ja kohalikust toidust (To4; keskmine positiivne seos 0.4) ja võivad rohkem huvituda eritoidu (To1; nõrk positiivne seos 0.2) olemasolust.

Mikroettevõtete, väiksete ja keskmise suurusega ettevõtete töötajad ei huvitu väga toitlustuse aspektidest:

Mikroettevõtete töötajad võivad rohkem huvituda supertoitudest ja vaimset jõudlust toetavast toidust (To3; nõrk positiivne seos 0.22), huvituvad pigem vähem mahedast ja kohalikust toidust (To4; keskmine negatiivne seos -0.39) ja võivad vähem huvituda tervislikest valikutest (To5; nõrk negatiivne seos -0.25) ja eritoidu (To1; nõrk negatiivne seos -0.2) olemasolust.

Väikeste ettevõtete töötajad võivad vähem huvituda maitseelamustest (To2; nõrk negatiivne seos -0.23) ja keskmise suurusega ettevõtete töötajad eritoidu (To1; nõrk negatiivne seos -0.21) olemasolust.

Tööstuse, energeetika, ehituse valdkonna töötajad võivad vähem huvituda tervislikest valikutest (To5; nõrk negatiivne seos -0.24), mahedast ja kohalikust toidust (To4; nõrk negatiivne seos -0.21) ja eritoidu (To1; nõrk negatiivne seos -0.2) olemasolust.

Panganduse, kindlustuse, kinnisvara valdkonna töötajad võivad maitseeleamustest *(To2; nõrk negatiivne seos -0.27) ja telekommunikatsiooni, infotehnoloogia valdkonna** töötajad mahedast ja kohalikust toidust (To4; nõrk negatiivne seos -0.27) vähem huvituda.

Tervislikest valikutest (To5)* võivad rohkem huvituda valdkondade “Riigiteenistus, haldus, sotsiaalsfäär, tervishoid” (nõrk positiivne seos 0.28) ja “Pangandus, kindlustus, kinnisvara” (nõrk positiivne seos 0.23) töötajad.

Teeninduse, kaubanduse, transpordi valdkonna töötajad võivad rohkem huvituda supertoitudest ja vaimset jõudlust toetavast toidust (To3; nõrk positiivne seos 0.27) ja eritoidu (To1; nõrk positiivne seos 0.26) olemasolust.

tee_filtreeritud_korrelatsioonimaatriks(toitlustus_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Toitlustuse aspektide vastu tuntava huvi\nja ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

\(~\)

4. Huvi eraldiseisvate ürituste vastu

4.1 Tervislikule toitumisele suunatud tegevuste vastu tuntava huvi korrelatsioonid

4.1.1 Tervislikule toitumisele suunatud tegevuste vastu tuntav huvi

Enamus vastajaid on ühistest kokkamistest, meisterkoka töötoast ja tervisliku toitumise põhitõdede koolitusest mõnevõrra huvitatud.

# Toitumisega seonduvate tegevuste vastu tuntava huvi põhjal sagedustabeli tegemine
list_toitumine_tegevused <- list("Palun hinda, millisel määral järgmised tervislikule toitumisele suunatud tegevused sind huvitaksid [Ei ole huvitatud]", 
                "Palun hinda, millisel määral järgmised tervislikule toitumisele suunatud tegevused sind huvitaksid [Olen mõnevõrra huvitatud]",
                "Palun hinda, millisel määral järgmised tervislikule toitumisele suunatud tegevused sind huvitaksid [Olen väga huvitatud]")




# Toitumisega seonduvate tegevuste vastu tuntava huvi põhjal sagedustabeli tegemine
toitumine_tegevused_lai_sagedustabel <- tee_skalaarkysimuste_lai_sagedustabel(list_toitumine_tegevused, ",\\s*(?=[A-ZÄÖÜ])|,(?=[A-ZÄÖÜ])") 


toitumine_tegevused_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(toitumine_tegevused_lai_sagedustabel[[1]], "Ajatempel")

toitumine_tegevused_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(toitumine_tegevused_pikk_sagedustabel, toitumine_tegevused_lai_sagedustabel[[2]])


# Joonise tegemine
joonis(toitumine_tegevused_sagedustabel_summadega,
      "Tegevused",
      "Huvi tervislikule toitumisele suunatud tegevuste vastu", 
      NULL,
       y_veerg = "n") 

4.1.2 Tervislikule toitumisele suunatud tegevuste vastu tuntava huvi korrelatsioonimaatriks

Ühistest kokkamistest (ToT1) ja tervisliku toitumsie põhitõdede koolitusest (Tot4) huvitujad huvitusid pigem ka intuitiivse söömise (Tot2; Tot1 keskmine positiivne seos 0.45 ja Tot4 keskmine positiivne seos 0.34) ja meisterkoka (Tot3; Tot1 keskmine positiivne seos 0.38 ja Tot4 keskmine positiivne seos 0.42) töötubadest. Ühistest kokkamistest (ToT1) huvitujad huvitusid pigem ka tervisliku toitumise põhitõdede koolitusest (Tot4; keskmine positiivne seos 0.37).

Intuitiivse söömise töötoast (Tot2) huvitujad huvitusid pigem ka meisterkoka (Tot3; keskmine positiivne seos 0.49) töötoast.

# Skalaarvastused asendatakse numbritega
toitumine_tegevused_numbritena <- asenda_skalaartunnused_numbritega(toitumine_tegevused_lai_sagedustabel[[1]], # df vastustega
                                                            toitumine_tegevused_lai_sagedustabel[[2]]) # skalaarvastused

# Luuakse lühendatud veerunimedega sagedustabel
toitumine_tegevused_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(toitumine_tegevused_numbritena,
                        "ToT")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
toitumine_tegevused_korrelatsioonitabel <- tee_korrelatsioonitabel(toitumine_tegevused_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(toitumine_tegevused_korrelatsioonitabel, # Korrelatsioonitabel
                        "Tervislikule toitumisele seotud tegevuste vastu tuntava huvi korrelatsioonid", # Joonise pealkiri
                        luhenda_sagedustabeli_veerunimed(toitumine_tegevused_numbritena,
                        "ToT")[[2]]) # Lühendatud veerunimede ja neile vastavate väärtuste vektor

4.1.3 Tervislikule toitumisele suunatud tegevuste vastu tuntava huvi ja füüsilise tervise näitajate korrelatsioonimaatriks

Töötubade vastu on suurem huvi aktiivsematel tootajatel ja rohkem kui ekraani ees olijatel:

Jalgsi, jalgratta või muu kergliikuriga liikujad (Ft1) ja aktiivsed liikujad/treenijad (Ft3) on pigem huvitatud ühistest kokkamistest (ToT1; Ft1 keskmine positiivne seos 0.42 ja Ft3 keskmine positiivne seos 0.32) ja intuitiivse söömise töötoast (Tot2; Ft1 keskmine positiivne seos 0.31 ja Ft3 keskmine positiivne seos 0.3)

Aktiivsed liikujad (Ft3) on pigem huvitatud ka meisterkoka töötoast (Tot3; keskmine positiivne seos 0.42) ja tervisliku toitumise põhitõdede koolitusest (Tot4; keskmine positiivne seos 0.38).

Tervisekaebustega (Ft2) töötajad on pigem huvitatud ühistest kokkamistest (ToT1; keskmine positiivne seos 0.38) ja intuitiivse söömise töötoast (Tot2; keskmine positiivne seos 0.33).

Regulaarse unegraafikuga (Ft4) töötajad võivad olla rohkem huvitatud intuitiivse söömise töötoast (Tot2; nõrk positiivne seos 0.24).

Üle 5 tunni päevas ekraani ees olijad (Ft7) võivad olla rohkem huvitatud ühistest kokkamistest (ToT1; nõrk positiivne seos) ning intuitiivse söömise (Tot2; nõrk positiivne seos 0.27) ja meisterkoka (Tot3; nõrk positiivne seos 0.2) töötubadest.

tee_filtreeritud_korrelatsioonimaatriks(toitumine_tegevused_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Tervislikule toitumisele suunatud tegevuste vastu tuntava huvi\nja füüsilise tervise näitajate\nkorrelatsioonid")

4.1.4 Tervislikule toitumisele suunatud tegevuste vastu tuntava huvi ja vaimse tervise näitajate korrelatsioonimaatriks

Hooseisund võib vähendada huvi kokkamise vastu: Hooseisundis töötajad (Vt5) võivad olla vähem huvitatud ühistest kokkamistest (ToT1; nõrk negatiivne seos -0.27).

Tööstress võib suurendada huvi ühiskondlike toitumisega seonduvate tegevuste vastu: Tööstressi kogejad (Vt2) on pigem rohkem huvitatud meisterkoka töötoast (Tot3; keskmine positiivne seos 0.31) ja võivad olla rohkem huvitatud ühistest kokkamistest (ToT1; nõrk positiivne seos 0.25).

tee_filtreeritud_korrelatsioonimaatriks(toitumine_tegevused_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Tervislikule toitumisele suunatud tegevuste vastu tuntava huvi\nja vaimse tervise näitajate\nkorrelatsioonid")

4.1.5 Tervislikule toitumisele suunatud tegevuste vastu tuntava huvi ja sotsiaalse tervise näitajate korrelatsioonimaatriks

Seltsivus võib huvi töötubade vastu suurendada:

Töökaaslastega suhtlejad (St2) võivad olla rohkem huvitatud tervisliku toitumise põhitõdede koolitusest (Tot4; nõrk positiivne seos 0.26).

Linnakus vaba aja veetjatel (St3) võivad olla rohkem huvitatud ühistest kokkamistest (ToT1; nõrk positiivne seos 0.23).

Kaugtöö tegijad (St1) võivad olla vähem huvitatud intuitiivse söömise töötoast (Tot2; nõrk negatiivne seos -0.22).

tee_filtreeritud_korrelatsioonimaatriks(toitumine_tegevused_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Tervislikule toitumisele suunatud tegevuste vastu tuntava huvi\nja sotsiaalse tervise näitajate\nkorrelatsioonid")

4.1.6 Tervislikule toitumisele suunatud tegevuste vastu tuntava huvi ja töötajate vanuse korrelatsioonimaatriks

Vanuserühm 18-30 tunneb toitumise aspektide vastu suuremat huvi: nad on pigem rohkem huvitatud meisterkoka töötoast (Tot3; keskmine positiivne seos 0.47) ja võivad olla rohkem huivtataud ka intuitiivse söömise töötoast (Tot2; nõrk positiivne seos 0.2).

Vanuserühm 50-70 tunneb toitumise aspektide vastu väiksemat huvi:

Vanuserühm 50-60 on pigem vähem huvitatud meisterkoka töötoast (Tot3; keskmine negatiivne seos -0.34).

Vanuserühm 60-70 võib olla vähem huvitatud meisterkoka töötoast (Tot3; nõrk negatiivne seos -0.29) ja tervisliku toitumise põhitõdede koolitusest (Tot4; nõrk negatiivne seos -0.21).

tee_filtreeritud_korrelatsioonimaatriks(toitumine_tegevused_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Tervislikule toitumisele suunatud tegevuste vastu tuntava huvi\nja töötajate vanuse korrelatsioonid")

4.1.7 Tervislikule toitumisele suunatud tegevuste vastu tuntava huvi ja ettevõtte andmete korrelatsioonimaatriks

Töötubade vastu on suurem huvi rahvusvahelistes, suurtes ja väikestes ettevõtetes ning valdkonnas “Teenindus, kaubandus, transport”:

Rahvusvaheliste ettevõtete töötajad võivad rohkem huvituda ühistest kokkamistest (ToT1; nõrk positiivne seos 0.28).

Väikeste ettevõtete töötajad huvituvad pigem rohkem tervisliku toitumise põhitõdede koolitusest (ToT4; keskmine positiivne seos 0.34).

Suurte ettevõtete töötajad võivad rohkem huvituda ühistest kokkamistest (ToT1; nõrk positiivne seos 0.2).

Teeninduse, kaubanduse, transpordi valdkonna töötajad huvituvad pigem rohkem ühistest kokkamistest (ToT1; keskmine positiivne seos 0.31) ja võivad rohkem huvituda tervisliku toitumise põhitõdede koolitusest (ToT4; nõrk positiivne seos 0.24) ja intuitiivse söömise töötoast (Tot2; nõrk positiivne seos 0.22).

Töötubade vastu on väiksem huvi kodumaistes, mikro- ja keskise suurusega ettevõtetes ning valdkondades “Tööstus, energeetika, ehitus” ja “Pangandus, kindlustus, kinnisvara”:

Kodumaiste ettevõtete töötajad huvituvad pigem vähem ühistest kokkamistest (ToT1; keskmine negatiivne seos -0.33) ja võivad vähem huvituda ka meisterkoka (ToT3; nõrk negatiivne seos -0.27) ja intuitiivse söömise (Tot2; nõrk negatiivne seos -0.21) töötubadest.

Mikroettevõtete töötajad võivad vähem huvituda ühistest kokkamistest (ToT1; nõrk negatiivne seos -0.29).

Keskmise suurusega ettevõtete töötajad huvituvad pigem vähem tervisliku toitumise põhitõdede koolitusest (ToT4; keskmine negatiivne seos -0.41) ja võivad huvituda vähem ka meisterkoka töötoast (Tot3; nõrk negatiivne seos -0.21).

Tööstuse, energeetika, ehituse valdkonna töötajad võivad vähem huvituda meisterkoka töötoast (ToT3; nõrk negatiivne seos -0.23).

Panganduse, kindlustuse, kinnisvara valdkonna töötajad võivad vähem huvituda intuitiivse söömise (Tot2; nõrk negatiivne seos -0.27) ja meisterkoka (Tot3; nõrk negatiivne seos -0.23) töötubadest.

tee_filtreeritud_korrelatsioonimaatriks(toitumine_tegevused_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Tervislikule toitumisele suunatud tegevuste vastu\ntuntava huvi ja ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

4.2 Tervislikule toitumisele suunatud tegevustes osalemise tõenäosust mõjutavad tegurid ja korrelatsioonid

4.2.1 Tervislikule toitumisele suunatud tegevustes osalemise tõenäosust mõjutavad tegurid

toitumine_osalemise_tegurid <- read_tsv("andmed/kysitlus - toitumine osalemine tegurid.tsv", show_col_types = FALSE)


toitumine_osalemise_tegurid_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(toitumine_osalemise_tegurid, "Ajatempel")

toitumine_osalemise_tegurid_pikk_sagedustabel <- toitumine_osalemise_tegurid_pikk_sagedustabel %>%
  mutate(`Sagedus` = ifelse(!is.na(`Sagedus`), 1, `Sagedus`))


toitumine_osalemise_tegurid_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(toitumine_osalemise_tegurid_pikk_sagedustabel, levels = NULL, kategooriad = TRUE)
  

joonis(toitumine_osalemise_tegurid_sagedustabel_summadega, "Teguri tüüp", "Tervislikule toitumisele suunatud tegevustes osalemise tõenäosust mõjutavad tegurid", y_veerg = "n", sisu_veerg = "variable")

4.2.2 Tervislikule toitumisele suunatud tegevustes osalemise tõenäosust mõjutavate tegurite korrelatsioonid

Mõjutegurteks peetakse ettetatamist, sobivust töögraafikuga, sisu ja sobivat aega:

Kui tegevustes osalemist mõjutavad sotsiaalsed tegurid (ToO1), on pigem suurem mõju ka sisul (ToO7; keskmine positiivne seos 0.43) ja võib olla suurem mõju ka etteteatamisel (ToO8; nõrk positiivne seos 0.2).

Kui tegevustes osalemist mõjutab osalustasu suurus (ToO2), võib olla suurem mõju sobivusel töögraafikuga (ToO3; nõrk positiivne seos 0.2) ja etteteatamisel (ToO8; nõrk positiivne seos 0.2) ja väiksem mõju sobival ajal (ToO6; nõrk negatiivne seos -0.25).

Kui tegevustes osalemist mõjutab sobivus töögraafikuga (ToO3), võib olla suurem mõju etteteatamisel (ToO8; nõrk positiivne seos 0.26) ja väiksem mõju sobival ajal (ToO7; nõrk negatiivne seos -0.21).

Kui tegevustes osalemist mõjutab sisu (ToO7), võib olla suurem mõju etteteatamisel (ToO8; nõrk positiivne seos 0.2).

# Skalaarvastused asendatakse numbritega
toitumine_osalemise_tegurid_numbritena <- asenda_skalaartunnused_numbritega(toitumine_osalemise_tegurid, NULL)
                                                                         

# Luuakse lühendatud veerunimedega sagedustabel
toitumine_osalemise_tegurid_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(toitumine_osalemise_tegurid_numbritena,
                        "ToO")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
toitumine_osalemise_tegurid_korrelatsioonitabel <- tee_korrelatsioonitabel(toitumine_osalemise_tegurid_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(toitumine_osalemise_tegurid_korrelatsioonitabel, # Korrelatsioonitabel
                        "Tervislikule toitumisele suunatud tegevustes osalemise tõenäosust\nmõjutavad tegurite korrelatsioonid", luhenda_sagedustabeli_veerunimed(toitumine_osalemise_tegurid_numbritena,
                        "ToO")[[2]]) # Joonise pealkiri

4.2.3 Tervislikule toitumisele suunatud tegevustes osalemise tõenäosust mõjutavate tegurite ja füüsilise tervise näitajate korrelatsioonimaatriks

Aktiivsete liikujate (Ft3) osalemist võib osalustasu suurus rohkem (ToO2; nõrk positiivne seos 0.29) ja sobivus töögraafikuga (ToO3; nõrk negatiivne seos -0.2) vähem mõjutada.

Regulaarse unegraafikuga (Ft4) töötajate osalemist võivad rohkem mõjutada sotsiaalsed tegurid (ToO1; nõrk positiivne seos 0.26) ja sisu (ToO7; nõrk positiivne seos 0.26), pigem vähem mõjutavad sobivus töögraafikuga (ToO3; keskmine negatiivne seos -0.34) ja osalustasu suurus (ToO2; keskmine negatiivne seos -0.33) ning vähem võib mõjutada ka etteteatamine (VtO8; nõrk negatiivne seos -0.21).

Üle 5 tunni päevas ekraani ees olijate (Ft7) osalemist mõjutab pigem rohkem sobivus töögraafikuga (ToO3; keskmine positiivne seos 0.36), rohkem võivad mõjutada ka asukoht (ToO5; nõrk positiivne seos 0.29) ja sobiv aeg (ToO6; nõrk positiivne seos 0.28) ning sotsiaalsed tegurid mõjutavad pigem vähem (ToO1; keskmine negatiivne seos -0.35).

Regulaarsete sööjate (Ft6) osalemist võib sobiv aeg rohkem mõjutada (VtO7; nõrk positiivne seos 0.25) ja etteteatamine mõjutab pigem vähem (VtO8; keskmine negatiivne seos -0.44).

Toidukordade vahel näksijate (Ft5) osalemist võivad etteteatamine (VtO8; nõrk negatiivne seos -0.25) ja sobiv aeg (VtO7; nõrk negatiivne seos -0.21) vähem mõjutada.

Tervisekaebustega (Ft2): töötajate osalemist mõjutavad sotsiaalsed tegurid (ToO1; keskmine negatiivne seos -0.35) ja sobivus töögraafikuga (ToO3; keskmine negatiivne seos -0.3) pigem vähem ja vähem võib mõjutada ka sisu (ToO7; nõrk negatiivne seos -0.26).

Jalgsi, jalgratta või muu kergliikuriga liikujate osalemist võib asukoht rohkem (ToO5; nõrk positiivne seos 0.21) ning sotsiaalsed tegurid (ToO1; nõrk negatiivne seos -0.21), sisu (ToO7; nõrk negatiivne seos -0.21) ja etteteatamine mõjutab pigem vähem (VtO8; nõrk negatiivne seos -0.2) vähem mõjutada.

tee_filtreeritud_korrelatsioonimaatriks(toitumine_osalemise_tegurid_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Tervislikule toitumisele suunatud tegevuste vastu tuntava huvi\nja füüsilise tervise näitajate\nkorrelatsioonid")

4.2.4 Tervislikule toitumisele suunatud tegevustes osalemise tõenäosust mõjutavate tegurite ja vaimse tervise näitajate korrelatsioonimaatriks

Ületundide tegijate (Vt1) osalemist mõjutavad sotsiaalsed tegurid pigem rohkem (ToO1; keskmine positiivne seos 0.37) ja rohkem võib mõjutada ka sisu (ToO7; nõrk positiivne seos 0.27).

Tööstressi kogejate (Vt2) osalemist mõjutab sobiv aeg pigem rohkem (ToO6; keskmine positiivne seos 0.33).

Ärevuse või depressiooni sümptomite kogejate (Vt3) osalemist mõjutab osalustasu suurus pigem rohkem (ToO2; keskmine positiivne seos 0.3) ning vähem võivad mõjutada sotsiaalsed tegurid (ToO1; nõrk negatiivne seos -0.23) ja sisu (ToO7; nõrk negatiivne seos -0.23).

Enesetäiendamistegevuste (Vt4) harrastajate osalemist mõjutab sisu pigem rohkem (ToO7; keskmine positiivne seos 0.3) ja osalustasu suurus pigem vähem (ToO2; keskmine negatiivne seos -0.34).

Hooseisundis töötajate (Vt5) osalemist mõjutab osalustasu suurus pigem vähem (ToO2; keskmine negatiivne seos -0.31) ja vähem võivad mõjutada ka sobiv aeg (ToO6; nõrk negatiivne seos -0.28) ja asukoht (ToO5; nõrk negatiivne seos -0.21).

tee_filtreeritud_korrelatsioonimaatriks(toitumine_osalemise_tegurid_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Tervislikule toitumisele suunatud tegevuste vastu tuntava huvi\nja vaimse tervise näitajate\nkorrelatsioonid")

4.2.5 Tervislikule toitumisele suunatud tegevustes osalemise tõenäosust mõjutavate tegurite ja sotsiaalse tervise näitajate korrelatsioonimaatriks

Kaugtöö tegijate (St1) osalemist mõjutab sobivus töögraafikuga pigem rohkem (ToO3; keskmine positiivne seos 0.43).

Töökaaslastega suhtlejate (St2) osalemist võivad sotsiaalsed tegurid (ToO1; nõrk positiivne seos 0.21), osalustasu suurus (ToO2; nõrk positiivne seos 0.21) ja sisu (ToO7; nõrk positiivne seos 0.21) rohkem mõjutada ning sobiv aeg mõjutab pigem vähem(ToO6; keskmine negatiivne seos -0.33).

Linnakus vaba aja veetjate (St3) osalemist mõjutab sobivus töögraafikuga pigem rohkem (ToO3; keskmine positiivne seos 0.37), rohkem võib mõjutada ka osalustasu suurus (ToO2; nõrk positiivne seos 0.25) ning vähem mõjutavad sotsiaalsed tegurid (ToO1; nõrk negatiivne seos -0.27) ja sisu (ToO7; nõrk negatiivne seos -0.27).

Linnaku üritustel osalejate (St4) osalemist võib osalustasu suurus rohkem mõjutada (ToO2; nõrk positiivne seos 0.2) ning sotsiaalsed tegurid (ToO1; keskmine negatiivne seos -0.37) ja sobiv aeg (ToO6; keskmine negatiivne seos -0.33) mõjutavad pigem vähem.

tee_filtreeritud_korrelatsioonimaatriks(toitumine_osalemise_tegurid_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Tervislikule toitumisele suunatud tegevuste vastu tuntava huvi\nja sotsiaalse tervise näitajate\nkorrelatsioonid")

4.2.6 Tervislikule toitumisele suunatud tegevustes osalemise tõenäosust mõjutavate tegurite ja töötajate vanuse korrelatsioonimaatriks

Vanuserühma 18-30 osalemist mõjutavad sotsiaalsed tegurid pigem rohkem (VtO1; keskmine positiivne seos 0.43).

Vanuserühma 30-40 osalemist võib sobivus töögraafikuga rohkem (ToO3; nõrk positiivne seos 0.24) ning sotsiaalsed tegurid (VtO1; nõrk negatiivne seos -0.27) ja sisu (ToO7; nõrk negatiivne seos -0.27) vähem mõjutada.

Vanuserühma 40-50 osalemist võivad sobiv aeg (ToO6; nõrk negatiivne seos -0.22) ja asukoht (ToO5; nõrk negatiivne seos -0.21) vähem mõjutada.

Vanuserühma 50-60 osalemist võivad asukoht (ToO5; nõrk positiivne seos 0.29) ja etteteatamine (ToO8; nõrk positiivne seos 0.2) rohkem mõjutada.

tee_filtreeritud_korrelatsioonimaatriks(toitumine_osalemise_tegurid_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Tervislikule toitumisele suunatud tegevuste vastu tuntava huvi\nja töötajate vanuse korrelatsioonid")

4.2.7 Tervislikule toitumisele suunatud tegevustes osalemise tõenäosust mõjutavate tegurite ja ettevõtte andmete korrelatsioonimaatriks

Rahvusvaheliste ettevõtete töötajate osalemist võib osalustasu suurus rohkem mõjutada (ToO2; nõrk positiivne seos 0.25), pigem vähem mõjutab sobiv aeg (ToO6; keskmine negatiivne seos -0.35) ja vähem võib mõjutada ka sisu (ToO7; nõrk negatiivne seos -0.21).

Kodumaiste ettevõtete töötajate osalemist võivad sotsiaalsed tegurid (ToO1; nõrk positiivne seos 0.2) ja (ToO7; nõrk positiivne seos 0.2) rohkem mõjutada.

Väikeste ettevõtete töötajate osalemist mõjutab asukoht pigem rohkem (ToO5; keskmine positiivne seos 0.45), rohkem võib mõjutada ka osalustasu suurus (ToO2; nõrk positiivne seos 0.21) nign vähem võivad mõjutada sotsiaalsed tegurid (ToO1; nõrk negatiivne seos -0.23) ja sisu (ToO7; nõrk negatiivne seos -0.23).

Keskmise suurusega ettevõtete töötajate osalemist võib sisu rohkem mõjutada (ToO7; nõrk positiivne seos 0.25).

Suurte ettevõtete töötajate osalemist võib sobiv aeg rohkem (ToO6; nõrk positiivne seos 0.22) ja sisu vähem (ToO7; nõrk negatiivne seos -0.25) mõjutada.

Riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu valdkonna töötajate osalemist võivad sobivus töögraafikuga (ToO3; nõrk positiivne seos 0.26), sotsiaalsed tegurid (ToO1; nõrk positiivne seos 0.2) ja sisu rohkem (ToO7; nõrk positiivne seos 0.2) ning sobiv aeg (ToO6; nõrk negatiivne seos -0.21) vähem mõjutada.

Hariduse, teaduse valdkonna töötajate osalemist mõjutab sobiv aeg pigem rohkem (ToO6; keskmine positiivne seos 0.42) ja vähem võib mõjutada asukoht (ToO5; nõrk negatiivne seos -0.24).

Teeninduse, kaubanduse, transpordi valdkonna töötajate osalemist mõjutavad asukoht (ToO5; keskmine positiivne seos 0.41) ja osalustasu suurus (ToO2; keskmine positiivne seos 0.39) pigem rohkem.

tee_filtreeritud_korrelatsioonimaatriks(toitumine_osalemise_tegurid_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Tervislikule toitumisele suunatud tegevuste vastu\ntuntava huvi ja ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

4.3 Füüsilise liikumisega seotud tegevuste vastu tuntava huvi korrelatsioonid

4.3.1 Füüsilise liikumisega seotud tegevuste vastu tuntav huvi

Enamus vastajaid on pausivõimlemistest, liikumisharjumuste loomise töötoast, tantsuteraapiast, hommikuvõimlemistest, liikumise teraapilist mõju selgitavatest töötubadest ja liikumisharjumuste loomise töötoast mõnevõrra huvitatud.

# Füüsilist tervist toetavate tegevuste vastu tuntava huvi põhjal sagedustabeli tegemine
list_liikumine_tegevused <- list("Palun hinda, millisel määral järgmised liikumisega seotud tegevused sind huvitaksid [Ei ole huvitatud]", 
                "Palun hinda, millisel määral järgmised liikumisega seotud tegevused sind huvitaksid [Olen mõnevõrra huvitatud]",
                "Palun hinda, millisel määral järgmised liikumisega seotud tegevused sind huvitaksid [Olen väga huvitatud]")


# Füüsilist tervist toetavate tegevuste vastu tuntava huvi põhjal sagedustabeli tegemine
liikumine_tegevused_lai_sagedustabel <- tee_skalaarkysimuste_lai_sagedustabel(list_liikumine_tegevused, ",\\s*(?=[A-ZÄÖÜÕ])|,(?=[A-ZÄÖÜÕ])") 


liikumine_tegevused_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(liikumine_tegevused_lai_sagedustabel[[1]], "Ajatempel")

liikumine_tegevused_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(liikumine_tegevused_pikk_sagedustabel, liikumine_tegevused_lai_sagedustabel[[2]])


# Joonise tegemine
joonis(liikumine_tegevused_sagedustabel_summadega,
      "Tegevused",
      "Huvi liikumisega seotud tegevuste vastu",
       y_veerg = "n") 

4.3.2 Füüsilise liikumisega seotud tegevuste vastu tuntava huvi korrelatsioonimaatriks

Hommikuvõimlemisest (LiT2) huvitujad tundisd pigem suuremat huvi ka pausivõimlemistest (LiT5; keskmine positiivne seos 0.51), liikumisharjumuste loomise töötoast (LiT3; keskmine positiivne seos 0.45), ühisest tantsimisest/tantsuteraapiast (LiT6; keskmine positiivne seos 0.37), liikumise teraapilist mõju selgitavatest töötubadest (LiT1; keskmine positiivne seos 0.34) ja õhtustest ühistrennidest (LiT4; keskmine positiivne seos 0.34).

Liikumisharjumuste loomise töötoast (LiT3) huvitujad tundisd pigem suuremat huvi ka liikumise teraapilist mõju selgitavatest töötubadest (LiT1; keskmine positiivne seos 0.63) ja pausivõimlemistest (LiT5; keskmine positiivne seos 0.34) ja võivad tunda suuremat huvi ka ühisest tantsimisest/tantsuteraapiast (LiT6; nõrk positiivne seos 0.22).

Ühisest tantsimisest/tantsuteraapiast (LiT6) huvitujad tundisd pigem suuremat huvi ka liikumise teraapilist mõju selgitavatest töötubadest (LiT1; keskmine positiivne seos 0.44).

# Skalaarvastused asendatakse numbritega
liikumine_tegevused_numbritena <- asenda_skalaartunnused_numbritega(liikumine_tegevused_lai_sagedustabel[[1]], # df vastustega
                                                            liikumine_tegevused_lai_sagedustabel[[2]]) # skalaarvastused

# Luuakse lühendatud veerunimedega sagedustabel
liikumine_tegevused_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(liikumine_tegevused_numbritena,
                        "LiT")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
liikumine_tegevused_korrelatsioonitabel <- tee_korrelatsioonitabel(liikumine_tegevused_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(liikumine_tegevused_korrelatsioonitabel, # Korrelatsioonitabel
                        "Liikumisega seotud tegevuste vastu tuntava huvi korrelatsioonid", # Joonise pealkiri
                        luhenda_sagedustabeli_veerunimed(liikumine_tegevused_numbritena,
                        "LiT")[[2]]) # Lühendatud veerunimede ja neile vastavate väärtuste vektor

4.3.3 Füüsilise liikumisega seotud tegevuste vastu tuntava huvi ja füüsilise tervise näitajate korrelatsioonimaatriks

Tervisenäitajad ei mõjuta huvi:

Jalgsi, jalgratta või muu kergliikuriga liikujad (Ft1) ja aktiivsed liikujad/treenijad (Ft3) on pigem rohkem huvitatud õhtustest ühistrennidest (LiT4; keskmine positiivne seos 0.43) ning võivad olla rohkem huvitatud hommikuvõimlemisest (LiT2; nõrk positiivne seos 0.25).

Aktiivsed liikujad (Ft3) võivad olla rohkem huvitatud liikumisharjumuste loomise töötubadest (LiT3; nõrk positiivne seos 0.29) ja pausivõimlemistest (LiT5; nõrk positiivne seos 0.26).

Regulaarse unegraafikuga (Ft4) töötajad on pigem rohkem huvitatud õhtustest ühistrennidest (LiT4; keskmine positiivne seos 0.4) ning võivad olla rohkem huvitatud pausivõimlemistest (LiT5; nõrk positiivne seos 0.27).

Üle 5 tunni päevas ekraani ees olijad (Ft7) on pigem rohkem huvitatud liikumisharjumuste loomise töötubadest (LiT3; keskmine positiivne seos 0.33) ning võivad olla rohkem huvitatud liikumise teraapilist mõju selgitavatest töötubadest (LiT1; nõrk positiivne seos 0.28) ja pausivõimlemistest (LiT5; nõrk positiivne seos 0.2).

Regulaarselt sööjad (Ft6) on pigem rohkem huvitatud õhtustest ühistrennidest (LiT4; keskmine positiivne seos 0.32).

Toidukordade vahel näksijad (Ft5) võivad olla rohkem huvitatud pausivõimlemistest (LiT5; nõrk positiivne seos 0.26).

Ainuke huvi vähendav füüsilise tervise näitaja on tervisekaebused (Ft2): need töötajad võivad olla vähem huvitatud liikumisharjumuste loomise töötubadest (LiT3; nõrk negatiivne seos -0.21).

tee_filtreeritud_korrelatsioonimaatriks(liikumine_tegevused_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Füüsilise liikumisega seotud tegevuste vastu tuntava huvi\nja füüsilise tervise näitajate\nkorrelatsioonid")

4.3.4 Füüsilise liikumisega seotud tegevuste vastu tuntava huvi ja vaimse tervise näitajate korrelatsioonimaatriks

Enesetäiendamisega (Vt4) tegelejad võivad olla rohkem huvitatud hommikuvõimlemisest (LiT2; nõrk positiivne seos 0.24) ja ühisest tantsimisest/tantsuteraapiast (LiT6; nõrk positiivne seos 0.22).

Ärevuse või depressiooni sümptomite kogejad (Vt3) vajavad liikumise suurendamiseks rohkem teadmisi: nad on pigem rohkem huvitatud liikumise teraapilist mõju selgitavatest töötubadest (LiT1; keskmine positiivne seos 0.35) ja võivad olla rohkem huvitatud liikumisharjumuste loomise töötubadest (LiT3; nõrk positiivne seos 0.28).

tee_filtreeritud_korrelatsioonimaatriks(liikumine_tegevused_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Füüsilise liikumisega seotud tegevuste vastu tuntava huvi\nja vaimse tervise näitajate\nkorrelatsioonid")

4.3.5 Füüsilise liikumisega seotud tegevuste vastu tuntava huvi ja sotsiaalse tervise näitajate korrelatsioonimaatriks

Seltsivus võib huvi liikumisharjumuste kohta informatsiooni andavate töötubade vastu suurendada:

Linnakus vaba aja veetjad vajavad liikuvuse suurendamiseks rohkem teadmisi (St3): nad võivad olla rohkem huvitatud liikumise teraapilist mõju selgitavatest töötubadest (LiT1; nõrk positiivne seos 0.27) ja liikumisharjumuste loomise töötubadest (LiT3; nõrk positiivne seos 0.26).

Linnaku üritustel osalejad (St4) on pigem rohkem huvitatud liikumise teraapilist mõju selgitavatest töötubadest (LiT1; keskmine positiivne seos 0.42)

Seltsivus võib huvi praktiliste liikumistöötubade vastu vähendada:

Töökaaslastega suhtlejad (St2) ja linnakus vaba aja veetjad (St3) huvituvuad ühisest tantsimisest/tantsuteraapiast vähem (LiT6; St2 nõrk negatiivne seos -0.2 ja St3 keskmine negatiivne seos -0.36).

Linnaku üritustel osalejad (St4) on pausivõimlemistest (LiT5; keskmine negatiivne seos -0.35) pigem vähem huvitatud .

tee_filtreeritud_korrelatsioonimaatriks(liikumine_tegevused_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Füüsilise liikumisega seotud tegevuste vastu tuntava huvi\nja sotsiaalse tervise näitajate\nkorrelatsioonid")

4.3.6 Füüsilise liikumisega seotud tegevuste vastu tuntava huvi ja töötajate vanuse korrelatsioonimaatriks

Vanuserühm mõjutab huvi liikumisega seonduvate teadmiste vastu:

Vanuserühm 18-30 huvitub liikumise teraapilist mõju selgitavatest töötubadest (LiT1; keskmine negatiivne seos -0.34) pigem vähem.

Vanuserühm 30-40 huvitub liikumise teraapilist mõju selgitavatest töötubadest (LiT1; keskmine positiivne seos 0.44) ja liikumisharjumuste loomise töötubadest (LiT3; keskmine positiivne seos 0.37) pigem rohkem ja võib rohkem huvituda ka õhtustest ühistrennidest (LiT4; nõrk positiivne seos 0.29).

Vanuserühm 40-50 huvitub liikumisharjumuste loomise töötubadest (LiT3; keskmine negatiivne seos -0.33) pigem vähem ja võib vähem huvituda ka liikumise teraapilist mõju selgitavatest töötubadest (LiT1; nõrk negatiivne seos -0.2)

Vanuserühm 50-60 võib ühisest tantsimisest/tantsuteraapiast (LiT6; nõrk positiivne seos 0.26) rohkem huvituda.

tee_filtreeritud_korrelatsioonimaatriks(liikumine_tegevused_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Füüsilise liikumisega seotud tegevuste vastu tuntava huvi\nja töötajate vanuse korrelatsioonid")

4.3.7 Füüsilise liikumisega seotud tegevuste vastu tuntava huvi ja ettevõtte andmete korrelatsioonimaatriks

Töötubade vastu on suurem huvi kodumaistes, väikestes ja suurtes ettevõtetes ning valdkondades “Telekommunikatsioon, infotehnoloogia” ja “Pangandus, kindlustus, kinnisvara”:

Kodumaiste ettevõtete töötajad võivad õhtustest ühistrennidest vähem huvituda (LiT4; nõrk positiivne seos 0.24).

Suurte ettevõtete töötajad võivad õhtustest ühistrennidest rohkem huvituda (LiT4; nõrk positiivne seos 0.27).

Väikeste ettevõtete töötajad huvituvad liikumise teraapilist mõju selgitavatest töötubadest (LiT1; keskmine positiivne seos 0.49), hommikuvõimlemisest (LiT2; keskmine positiivne seos 0.45) ja liikumisharjumuste loomise töötubadest (LiT3; keskmine positiivne seos 0.45) pigem rohkem ja võivad ka ühisest tantsimisest/tantsuteraapiast rohkem huvituda (LiT6; nõrk positiivne seos 0.25).

Telekommunikatsiooni, infotehnoloogia valdkonna töötajad võivad ka ühisest tantsimisest/tantsuteraapiast rohkem huvituda (LiT6; nõrk positiivne seos 0.21).

Panganduse, kindlustuse, kinnisvara valdkonna töötajad huvituvad ühisest tantsimisest/tantsuteraapiast (LiT6; keskmine positiivne seos 0.31) pigem rohkem ja võivad rohkem huvituda ka hommikuvõimlemisest (LiT2; nõrk positiivne seos 0.26).

Töötubade vastu on väiksem huvi rahvusvahelistes, mikro- ja keskise suurusega ettevõtetes ning valdkondades “Haridus, teadus” ja “Tööstus, energeetika, ehitus”:

Rahvusvaheliste ettevõtete töötajad võivad liikumisharjumuste loomise töötubadest (LiT3; nõrk negatiivne seos -0.28) ja õhtustest ühistrennidest (LiT4; nõrk negatiivne seos -0.27) vähem huvituda.

Mikroettevõtete töötajad võivad pausivõimlemistest (LiT5; nõrk negatiivne seos -0.27) ja hommikuvõimlemisest (LiT2; nõrk negatiivne seos -0.21) vähem huvituda.

Keskmise suurusega ettevõtete töötajad huvituvad liikumisharjumuste loomise töötubadest (LiT3; keskmine negatiivne seos -0.38) ja liikumise teraapilist mõju selgitavatest töötubadest (LiT1; keskmine negatiivne seos -0.36) pigem vähem ja võivad vähem huvituda ka pausivõimlemistest (LiT5; nõrk negatiivne seos -0.22).

Hariduse, teaduse valdkonna töötajad võivad liikumise teraapilist mõju selgitavatest töötubadest vähem huvituda (LiT1; nõrk negatiivne seos -0.21)

Tööstuse, energeetika, ehituse valdkonna töötajad võivad ühisest tantsimisest/tantsuteraapiast (LiT6; nõrk negatiivne seos -0.22) ja hommikuvõimlemisest (LiT2; nõrk negatiivne seos -0.21) vähem huvituda.

Riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu valdkonna töötajad võivad liikumisharjumuste loomise töötubadest (LiT3; keskmine negatiivne seos -0.38) rohkem ja ühisest tantsimisest/tantsuteraapiast (LiT6; nõrk negatiivne seos -0.28) vähem huvituda.

tee_filtreeritud_korrelatsioonimaatriks(liikumine_tegevused_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Füüsilise liikumisega seotud tegevuste vastu tuntava huvi\nja ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

4.4 Füüsilise liikumisega seotud tegevustes osalemise tõenäosust mõjutavad tegurid ja korrelatsioonid

4.4.1 Füüsilise liikumisega seotud tegevused

Füüsilise liikumisega seonduvates tegevustes osalemise tõenäosust mõjutavad peamiselt isklikud tegurid.

liikumine_osalemise_tegurid <- read_tsv("andmed/kysitlus - liikumine osalemine tegurid.tsv", show_col_types = FALSE)


liikumine_osalemise_tegurid_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(liikumine_osalemise_tegurid, "Ajatempel")

liikumine_osalemise_tegurid_pikk_sagedustabel <- liikumine_osalemise_tegurid_pikk_sagedustabel %>%
  mutate(`Sagedus` = ifelse(!is.na(`Sagedus`), 1, `Sagedus`))


liikumine_osalemise_tegurid_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(liikumine_osalemise_tegurid_pikk_sagedustabel, levels = NULL, kategooriad = TRUE)
  

joonis(liikumine_osalemise_tegurid_sagedustabel_summadega, "Teguri tüüp", "Liikumisega seotud tegevustes osalemise tõenäosust mõjutavad tegurid", y_veerg = "n", sisu_veerg = "variable")

4.4.2 Füüsilise liikumisega seotud tegevustes osalemise tõenäosust mõjutavate tegurite korrelatsioonid

Kui tegevustes osalemist mõjutab osalustasu suurus (LiO2), on pigem suurem mõju ka asukohal (LiO5; keskmine positiivne seos 0.36) ja etteteatamisel (LiO8; keskmine positiivne seos 0.36) ning suurem mõju võib olla ka sobivusel töögraafikuga (LiO3; nõrk positiivne seos 0.26).

Kui tegevustes osalemist mõjutab sobiv aeg (LiO6), võib olla suurem mõju sisul (LiO7; keskmine positiivne seos 0.3).

Kui tegevustes osalemist mõjutab etteteatamine (LiO8), on pigem suurem mõju ka sobivusel töögraafikuga (LiO3; keskmine positiivne seos 0.36) ning võib olla suurem mõju ka sotsiaalsetel teguritel (LiO1; nõrk positiivne seos 0.24) ja sisul (LiO7; nõrk positiivne seos 0.24).

# Skalaarvastused asendatakse numbritega
liikumine_osalemise_tegurid_numbritena <- asenda_skalaartunnused_numbritega(liikumine_osalemise_tegurid, NULL)
                                                                         

# Luuakse lühendatud veerunimedega sagedustabel
liikumine_osalemise_tegurid_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(liikumine_osalemise_tegurid_numbritena,
                        "LiO")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
liikumine_osalemise_tegurid_korrelatsioonitabel <- tee_korrelatsioonitabel(liikumine_osalemise_tegurid_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(liikumine_osalemise_tegurid_korrelatsioonitabel, # Korrelatsioonitabel
                        "Füüsilise liikumisega seotud tegevustes osalemise tõenäosust\nmõjutavate tegurite korrelatsioonid", luhenda_sagedustabeli_veerunimed(liikumine_osalemise_tegurid_numbritena,
                        "LiO")[[2]]) # Joonise pealkiri

4.4.3 Füüsilise liikumisega seotud tegevustes osalemise tõenäosust mõjutavate tegurite ja füüsilise tervise näitajate korrelatsioonimaatriks

Positiivsete füüsilise tervise näitajatega töötajate osalemist mõjutavad sotsiaalsed tegurid rohkem:

Aktiivsete liikujate (Ft3) osalemist mõjutavad sotsiaalsed tegurid pigem rohkem (LiO1; keskmine positiivne seos 0.33).

Regulaarse unegraafikuga (Ft4) töötajate osalemist võivad sotsiaalsed tegurid rohkem mõjutada (LiO1; nõrk positiivne seos 0.22).

Negatiivsete füüsilise tervise näitajatega töötajate osalemist mõjutavad ajalised tegurid ja asukoht rohkem:

Üle 5 tunni päevas ekraani ees olijate (Ft7) osalemist võivad sobivus töögraafikuga (LiO3; nõrk positiivne seos 0.29) ja sobiv aeg (LiO6; nõrk positiivne seos 0.28) rohkem ning sisu (LiO7; nõrk negatiivne seos -0.22) vähem mõjutada.

Toidukordade vahel näksijate (Ft5) osalemist võivad sobivus töögraafikuga rohkem (LiO3; keksmine positiivne seos 0.3) ja tegevuse sisu vähem (LiO6; keskmine negatiivne seos -0.3) mõjutada.

Tervisekaebustega (Ft2): töötajate osalemist võib asukoht rohkem mõjutada (LiO5; nõrk positiivne seos 0.26), pigem vähem mõjutab osalustasu suurus (LiO2; keskmine negatiivne seos -0.3) ja vähem võib mõjutada ka etteteatamine (LiO8; nõrk negatiivne seos -0.22)

Jalgsi, jalgratta või muu kergliikuriga ühest punktist teise liikujate (Ft1) osalemist võivad etteteatamine (LiO8; nõrk negatiivne seos -0.29) ja sisu (LiO7; nõrk negatiivne seos -0.28) vähem mõjutada.

tee_filtreeritud_korrelatsioonimaatriks(liikumine_osalemise_tegurid_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Füüsilise liikumisega seotud tegevuste vastu tuntava huvi\nja füüsilise tervise näitajate\nkorrelatsioonid")

4.4.4 Füüsilise liikumisega seotud tegevustes osalemise tõenäosust mõjutavate tegurite ja vaimse tervise näitajate korrelatsioonimaatriks

Ületundide tegijate (Vt1) osalemist mõjutavad sisu (LiO7; keskmine positiivne seos 0.49) ja sotsiaalsed tegurid (ToO1; keskmine positiivne seos 0.3) pigem rohkem.

Tööstressi kogejate (Vt2) osalemist mõjutab sisu pigem rohkem (LiO7; keskmine positiivne seos 0.34) ja osalemist võib rohkem mõjutada ka osalustasu suurus (LiO2; nõrk positiivne seos 0.26) ja asukoht (LiO5; nõrk positiivne seos 0.21).

Ärevuse või depressiooni sümptomite kogejate (Vt3) osalemist võivad sisu (LiO7; nõrk positiivne seos 0.28) ja asukoht (LiO5; nõrk positiivne seos 0.21) rohkem ning sotsiaalsed tegurid (ToO1; nõrk negatiivne seos -0.21) vähem mõjutada.

Enesetäiendamistegevuste (Vt4) harrastajate osalemist võivad sobivus töögraafikuga sobivus töögraafikuga (LiO3; nõrk positiivne seos 0.25) ja sisu (LiO7; nõrk positiivne seos 0.22) rohkem mõjutada ning osalustasu suurus mõjutab pigem vähem (LiO2; keskmine negatiivne seos -0.33).

Hooseisundis töötajate (Vt5) osalemist mõjutab sisu pigem vähem (LiO7; keskmine negatiivne seos -0.3) ja vähem võivad mõjutada ka asukoht (LiO5; nõrk negatiivne seos -0.21) ja etteteatamine (LiO8; nõrk negatiivne seos -0.21).

tee_filtreeritud_korrelatsioonimaatriks(liikumine_osalemise_tegurid_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Füüsilise liikumisega seotud tegevustes osalemise tõenäosust mõjutavate tegurite\nja vaimse tervise näitajate\nkorrelatsioonid")

4.4.5 Füüsilise liikumisega seotud tegevustes osalemise tõenäosust mõjutavate tegurite ja sotsiaalse tervise näitajate korrelatsioonimaatriks

Asukoht mõjutab osalemist enamasti vähem:

Kaugtöö tegijate (St1) osalemust mõjutab etteteatamine pigem rohkem (LiO8; keskmine positiivne seos 0.34) ja asukoht võib vähem mõjutada (LiO5; nõrk negatiivne seos -0.22).

Linnaku üritustel osalejate (St4) osalemist võib asukoht vähem mõjutada (LiO5; nõrk negatiivne seos -0.25).

Töökaaslastega suhtlejate (St2) osalemist võivad sotsiaalsed tegurid rohkem mõjutada (LiO1; nõrk positiivne seos 0.24) ja asukoht mõjutab pigem vähem (LiO5; keskmine negatiivne seos -0.52).

tee_filtreeritud_korrelatsioonimaatriks(liikumine_osalemise_tegurid_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Füüsilise liikumisega seotud tegevustes osalemise tõenäosust mõjutavate tegurite\nja sotsiaalse tervise näitajate\nkorrelatsioonid")

4.4.6 Füüsilise liikumisega seotud tegevustes osalemise tõenäosust mõjutavate tegurite ja töötajate vanuse korrelatsioonimaatriks

Enamasti mõjutavad osalemist osalustasu suurus, tegevuse sisu, sotsiaalsed tegurid ja asukoht.

Vanuserühma 18-30 osalemist mõjutavad osalustasu suurus (LiO2; keskmine positiivne seos 0.52) ja sotsiaalsed tegurid (LiO1; keskmine positiivne seos 0.35) pigem rohkem ning rohkem võib mõjutada ka asukoht (LiO5; nõrk positiivne seos 0.29).

Vanuserühma 30-40 osalemist mõjutab sobivus töögraafikuga pigem rohkem (LiO3; keskmine positiivne seos 0.47).

Vanuserühma 40-50 osalemist võib sobiv aeg rohkem mõjutada (LiO6; nõrk positiivne seos 0.22), pigem vähem mõjutavad sotsiaalsed tegurid (LiO1; keskmine negatiivne seos -0.35) ning vähem võivad mõjutada ka osalustasu suurus (LiO2; nõrk negatiivne seos -0.26), sobivus töögraafikuga (LiO3; nõrk negatiivne seos -0.26), asukoht (LiO5; nõrk negatiivne seos -0.21) ja etteteatmine (LiO8; nõrk negatiivne seos -0.21).

Vanuserühma 50-60 osalemist võivad asukoht (LiO5; nõrk positiivne seos 0.29) ja etteteatmine (LiO8; nõrk positiivne seos 0.29) rohkem mõjutada.

tee_filtreeritud_korrelatsioonimaatriks(liikumine_osalemise_tegurid_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Füüsilise liikumisega seotud tegevustes osalemise tõenäosust mõjutavate tegurite\nja töötajate vanuse korrelatsioonid")

4.4.7 Füüsilise liikumisega seotud tegevustes osalemise tõenäosust mõjutavate tegurite ja ettevõtte andmete korrelatsioonimaatriks

Suurte ettevõtete töötajate osalemist võivad mõjutada osalustasu suurus (LiO2; nõrk positiivne seos 0.27) ja sobivus töögraafikuga (LiO3; nõrk positiivne seos 0.27)

Riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu valdkonna töötajate osalemist võib sobivus töögraafikuga rohkem (LiO3; nõrk positiivne seos 0.26) ja sobiv aeg vähem mõjutada (LiO6; nõrk negatiivne seos -0.21).

Peamiseks mõjuteguriks on sobiv aeg:

Rahvusvaheliste ettevõtete töötajate osalemist mõjutab sobiv aeg pigem vähem (LiO6; keskmine negatiivne seos -0.35).

Hariduse, teaduse valdkonna töötajate osalemist mõjutab sobiv aeg pigem rohkem (LiO6; keskmine positiivne seos 0.42).

Telekommunikatsiooni, infotehnoloogia valdkonna töötajate osalemist võib sobiv aeg rohkem mõjutada (LiO6; nõrk positiivne seos 0.29).

Teeninduse, kaubanduse, transpordi valdkonna töötajate osalemist võib sobiv aeg vähem mõjutada (LiO6; nõrk negatiivne seos -0.25).

tee_filtreeritud_korrelatsioonimaatriks(liikumine_osalemise_tegurid_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Füüsilise liikumisega seotud tegevustes osalemise tõenäosust\nmõjutavate tegurite ja ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

\(~\)

4.5 Vaimset tervist toetavate tegevuste vastu tuntava huvi korrelatsioonid

4.5.1 Vaimset tervist toetavate tegevuste vastu tuntav huvi

Üldiselt ollakse kõige rohkem huvitatud vaimse tervise spetsialistide töötubadest. Enamus vastajaid on huvi-või hobiringidest, vaimse tervise spetsialistide töötubadest ning mediteerimisest või muust vaimsest praktikast mõnevõrra huvitatud.

list_vt_tegevused <- list("Palun hinda, millisel määral järgmised vaimset tervist toetavad tegevused või töötoad sind huvitaksid [Ei ole huvitatud]", 
                "Palun hinda, millisel määral järgmised vaimset tervist toetavad tegevused või töötoad sind huvitaksid [Olen mõnevõrra huvitatud]",
                "Palun hinda, millisel määral järgmised vaimset tervist toetavad tegevused või töötoad sind huvitaksid [Olen väga huvitatud]")



# Vaimset tervist toetavate tegevuste vastu tuntava huvi põhjal sagedustabeli tegemine
vt_tegevused_lai_sagedustabel <- tee_skalaarkysimuste_lai_sagedustabel(list_vt_tegevused, ",\\s*(?=[A-ZÄÖÜÕ])|,(?=[A-ZÄÖÜÕ])") 


vt_tegevused_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(vt_tegevused_lai_sagedustabel[[1]], "Ajatempel")

vt_tegevused_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(vt_tegevused_pikk_sagedustabel, vt_tegevused_lai_sagedustabel[[2]])


# Joonise tegemine
joonis(vt_tegevused_sagedustabel_summadega,
      "Tegevused",
      "Huvi vaimset tervist toetavate tegevuste või töötubade vastu",
       y_veerg = "n") 

\(~\)

4.5.2 Vaimset tervist toetavate tegevuste vastu tuntava huvi korrelatsioonimaatriks

Holistilistest koolitustest (VaT1) huvitujad huvituvad mediteerimisest või muust vaimse tervise praktikast (VaT2; keskmine positiivne seos 0.66) ja huvi-/hobiringidest (VaT5; keskmine positiivne seos 0.43) pigem rohkem.

Loomapäevadest (VaT3) huvitujad huvituvad ka mediteerimisest või muust vaimse tervise praktikast (VaT2; keskmine positiivne seos 0.55) ja mediteerimisest või muust vaimse tervise praktikast (VaT2; keskmine positiivne seos 0.39) pigem rohkem ning võivad rohkem huvituda ka vaimse tervise spetsialistide töötubadest (VaT4; nõrk positiivne seos 0.28) ja huvi-/hobiringidest (VaT5; nõrk positiivne seos 0.21).

Vaimse tervise spetsialistide töötubadest (VaT4) huvitujad huvituvad holistilistest koolitustest (VaT1; tugev positiivne seos) ja mediteerimisest või muust vaimse tervise praktikast (VaT2; tugev positiivne seos 0.71) tõenäoliselt rohkem ning pigem ka huvi-/hobiringidest (VaT5; keskmine positiivne seos 0.37).

# Skalaarvastused asendatakse numbritega
vt_tegevused_numbritena <- asenda_skalaartunnused_numbritega(vt_tegevused_lai_sagedustabel[[1]], # df vastustega
                                                            vt_tegevused_lai_sagedustabel[[2]]) # skalaarvastused

# Luuakse lühendatud veerunimedega sagedustabel
vt_tegevused_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(vt_tegevused_numbritena,
                        "VaT")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
vt_tegevused_korrelatsioonitabel <- tee_korrelatsioonitabel(vt_tegevused_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(vt_tegevused_korrelatsioonitabel, # Korrelatsioonitabel
                        "Vaimset tervist toetavate tegevuste vastu tuntava huvi korrelatsioonid", # Joonise pealkiri
                        luhenda_sagedustabeli_veerunimed(vt_tegevused_numbritena,
                        "VaT")[[2]]) # Lühendatud veerunimede ja neile vastavate väärtuste vektor

4.5.3 Vaimset tervist toetavate tegevuste vastu tuntava huvi ja füüsilise tervise näitajate korrelatsioonimaatriks

Aktiivsed liikujad (Ft3) on vaimse tervise spetsialistide töötubadest (VaT4; keskmine positiivne seos 0.43), mediteerimisest või muust vaimse tervise praktikast (VaT2; keskmine positiivne seos 0.4) ja holistilistest koolitustest (VaT1; nõrk positiivne seos 0.25) pigem rohkem huvitatud.

Loomapäevadel on seos erinevate füüsilise tervise näitajatega: üle 5 tunni päevas ekraani ees olijad (Ft7) ja tervisekaebustega (Ft2) töötajad huvituvad loomapäevadest pigem rohkem (VaT3; Ft7 keskmine positiivne seos 0.4 ja Ft2 keskmine positiivne seos 0.32) ja ka aktiivsed liikujad (Ft3) võivad loomapäevadest rohkem huvitatud olla (VaT3; nõrk positiivne seos 0.2).

Tervisekaebustega ja regulaarse unegraafikuga töötajad võivad tegevuste vastu väiksemat huvi tunda:

Tervisekaebustega (Ft2): töötajad võivad mediteerimisest või muust vaimse tervise praktikast (VaT2; nõrk negatiivne seos -0.22) ja vaimse tervise spetsialistide töötubadest (VaT4; nõrk negatiivne seos -0.22) vähem huvitatud olla.

Regulaarse unegraafikuga (Ft4) töötajad võivad holistilistest koolitustest vähem huvitatud olla (VaT1; nõrk negatiivne seos -0.25).

tee_filtreeritud_korrelatsioonimaatriks(vt_tegevused_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Vaimset tervist toetavate tegevuste vastu tuntava huvi\nja füüsilise tervise näitajate\nkorrelatsioonid")

4.5.4 Vaimset tervist toetavate tegevuste vastu tuntava huvi ja vaimse tervise näitajate korrelatsioonimaatriks

Mõned vaimse tervise näitajad suurendavad huvi töötubade vastu:

Tööstressi kogejad (Vt2) võivad olla holistilistest koolitustest (VaT1; nõrk positiivne seos 0.22) ja vaimse tervise spetsialistide töötubadest (VaT4; nõrk positiivne seos 0.22) rohkem huvitatud.

Ärevuse või depressiooni sümptomite kogejad (Vt3) on vaimse tervise spetsialistide töötubadest (VaT4; Keskmine positiivne seos 0.44) ja holistilistest koolitustest (VaT1; keskmine positiivne seos 0.38) pigem rohkem huvitatud ja võivad olla rohkem huvitatud ka loomapäevadest (VaT3; nõrk positiivne seos 0.27) ja mediteerimisest või muust vaimse tervise praktikast (VaT2; nõrk positiivne seos 0.26)

Enesetäiendamistegevuste (Vt4) harrastajad võivad olla vaimse tervise spetsialistide töötubadest rohkem huivtatud (VaT4; nõrk positiivne seos 0.24).

Mõned vaimse tervise näitajad vähendavad huvi töötubade vastu:

Ületundide tegijad (Vt1) ja enesetäiendamistegevuste (Vt4) harrastajad võivad olla loomapäevadest vähem huvitatud (VaT3; Vt1 nõrk negatiivne seos -0.25, Vt4 nõrk negatiivne seos -0.23).

Hooseisundis töötajad (Vt5) võivad olla vaimse tervise spetsialistide töötubadest (VaT4; nõrk negatiivne seos -0.27) ja holistilistest koolitustest (VaT1; nõrk negatiivne seos -0.21) vähem huvitatud.

tee_filtreeritud_korrelatsioonimaatriks(vt_tegevused_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Vaimset tervist toetavate tegevuste vastu tuntava huvi\nja vaimse tervise näitajate\nkorrelatsioonid")

4.5.5 Vaimset tervist toetavate tegevuste vastu tuntava huvi ja sotsiaalse tervise näitajate korrelatsioonimaatriks

Kaugtöö tegijad (St1) võivad olla huvi-/hobiringidest (VaT5; nõrk positiivne seos 0.23) ja loomapäevadest (VaT3; nõrk positiivne seos 0.22) rohkem huvitatud.

Töökaaslastega suhtlejad (St2) võivad olla huvi-/hobiringidest rohkem huvitatud (VaT5; nõrk positiivne seos 0.23).

Linnakus vaba aja veetjad (St3) on pigem loomapäevadest (VaT3; keskmine positiivne seos 0.58), holistilistest koolitustest (VaT1; keskmine positiivne seos 0.41), vaimse tervise spetsialistide töötubadest (VaT4; keskmine positiivne seos 0.4) ja mediteerimisest või muust vaimse tervise praktikast (VaT2; keskmine positiivne seos 0.39) rohkem huvitatud.

Linnaku üritustel osalejad (St4) on pigem holistilistest koolitustest (VaT1; keskmine positiivne seos 0.43) ja loomapäevadest (VaT3; keskmine positiivne seos 0.35) rohkem huvitatud ning võivad rohkem huvitatud olla ka vaimse tervise spetsialistide töötubadest (VaT4; VaT4 nõrk positiivne seos 0.28), huvi-/hobiringidest (VaT5; nõrk positiivne seos 0.27) ja mediteerimisest või muust vaimse tervise praktikast (VaT2; nõrk positiivne seos 0.23).

tee_filtreeritud_korrelatsioonimaatriks(vt_tegevused_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Vaimset tervist toetavate tegevuste vastu tuntava huvi\nja sotsiaalse tervise näitajate\nkorrelatsioonid")

4.5.6 Vaimset tervist toetavate tegevuste vastu tuntava huvi ja töötajate vanuse korrelatsioonimaatriks

Vanuserühm 30-40 huvitub tegevustest kõige rohkem: nad on loomapäevadest (VaT3; keskmine positiivne seos 0.11) pigem rohkem huvitatud ning võivad rohkem huvitatud olla ka huvi-/hobiringidest (VaT5; nõrk positiivne seos 0.26), vaimse tervise spetsialistide töötubadest (VaT4; VaT4 nõrk positiivne seos 0.22) ja holistilistest koolitustest (VaT1; nõrk positiivne seos 0.2).

Vanuserühmad 18-30 ja 40-60 huvituvad konkreetsetest tegevustest vähem:

Vanuserühm 18-30 võib holistilistest koolitustest vähem huvituda (VaT1; nõrk negatiivne seos -0.22).

Vanuserühm 40-50 võib mediteerimisest või muust vaimse tervise praktikast vähem huvituda (VaT2; nõrk negatiivne seos -0.27).

Vanuserühm 50-60 võib huvi-/hobiringidest vähem huvituda (VaT5; nõrk negatiivne seos -0.25).

tee_filtreeritud_korrelatsioonimaatriks(vt_tegevused_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Vaimset tervist toetavate tegevuste vastu tuntava huvi\nja töötajate vanuse korrelatsioonid")

4.5.7 Vaimset tervist toetavate tegevuste vastu tuntava huvi ja ettevõtte andmete korrelatsioonimaatriks

Tegevuste vastu on suurem huvi rahvusvahelistes, mikro- ja väikestes ettevõtetes ning valdkondades “Tööstus, energeetika, ehitus”, “Riigiteenistus, haldus, sotsiaalsfäär, tervishoid” ja “Teenindus, kaubandus, transport”:

Rahvusvaheliste ettevõtete töötajad võivad holistilistest koolitustest rohkem huvituda (VaT1; nõrk positiivne seos 0.25).

Mikroettevõtete töötajad võivad holistilistest koolitustest (VaT1; nõrk positiivne seos 0.23) ja mediteerimisest või muust vaimse tervise praktikast (VaT2; nõrk positiivne seos 0.2) rohkem huvituda.

Väikeste ettevõtete töötajad huvituvad vaimse tervise spetsialistide töötubadest (VaT4; keskmine positiivne seos 0.34) pigem rohkem ja võivad rohkem huvituda ka holistilistest koolitustest (VaT1; nõrk positiivne seos 0.26) ja huvi-/hobiringidest (VaT5; nõrk positiivne seos 0.2).

Tööstuse, energeetika, ehituse valdkonna töötajad võivad mediteerimisest või muust vaimse tervise praktikast rohkem huvituda (VaT2; nõrk positiivne seos 0.2).

Riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu valdkonna töötajad võivad huvi-/hobiringidest (VaT5; nõrk positiivne seos 0.26) ja vaimse tervise spetsialistide töötubadest (VaT4; nõrk positiivne seos 0.25) rohkem ja loomapäevadest (VaT3; nõrk negatiivne seos -0.25) vähem huvituda.

Teeninduse, kaubanduse, transpordi valdkonna töötajad huvituvad holistilistest koolitustest (VaT1; keskmine positiivne seos 0.35) pigem rohkem ja võivad huvituda rohkem ka loomapäevadest (VaT3; nõrk positiivne seos 0.23).

Tegevuste vastu on väiksem huvi kodumaistes ja keskmise suurusega ettevõtetes ning valdkondades “Haridus, teadus” ja “Pangandus, kindlustus, kinnisvara”:

Kodumaiste ettevõtete töötajad huvituvad loomapäevadest (VaT3; keskmine negatiivne seos -0.52) ja mediteerimisest või muust vaimse tervise praktikast (VaT2; keskmine negatiivne seos -0.32) pigem vähem ja võivad vähem huvituda ka holistilistest koolitustest (VaT1; nõrk negatiivne seos -0.23).

Keskmise suurusega ettevõtete töötajad võivad vaimse tervise spetsialistide töötubadest vähem huvituda (VaT4; nõrk negatiivne seos -0.21).

Hariduse, teaduse valdkonna töötajad võivad vaimse tervise spetsialistide töötubadest (VaT4; nõrk negatiivne seos -0.27), holistilistest koolitustest (VaT1; nõrk negatiivne seos -0.25) ja huvi-/hobiringidest (VaT5; nõrk negatiivne seos -0.23) vähem huvituda.

Panganduse, kindlustuse, kinnisvara valdkonna töötajad võivad holistilistest koolitustest (VaT1; nõrk negatiivne seos -0.22) ja loomapäevadest (VaT3; nõrk negatiivnne seos -0.2) vähem huvituda.

tee_filtreeritud_korrelatsioonimaatriks(vt_tegevused_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Vaimset tervist toetavate tegevuste vastu tuntava huvi\nja ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

4.6 Vaimset tervist toetavates tegevustes osalemise tõenäosust mõjutavad tegurid ja korrelatsioonid

4.6.1 Vaimset tervist toetavates tegevustes osalemise tõenäosust mõjutavad tegurid

Vaimset tervist toetavates tegevustes osalemise tõenäosust mõjutavad peamiselt korraldamisega soenduvad ja isklikud tegurid.

vt_osalemise_tegurid <- read_tsv("andmed/kysitlus - vt osalemine tegurid.tsv", show_col_types = FALSE)


vt_osalemise_tegurid_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(vt_osalemise_tegurid, "Ajatempel")

vt_osalemise_tegurid_pikk_sagedustabel <- vt_osalemise_tegurid_pikk_sagedustabel %>%
  mutate(`Sagedus` = ifelse(!is.na(`Sagedus`), 1, `Sagedus`))


vt_osalemise_tegurid_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(vt_osalemise_tegurid_pikk_sagedustabel, levels = NULL, kategooriad = TRUE)
  

joonis(vt_osalemise_tegurid_sagedustabel_summadega, "Teguri tüüp", "Vaimset tervist toetavates tegevustes osalemise tõenäosust mõjutavad tegurid", y_veerg = "n", sisu_veerg = "variable")

\(~\)

4.6.2 Vaimset tervist toetavates tegevustes osalemise tõenäosust mõjutavate tegurite korrelatsioonid

Kui tegevustes osalemist mõjutavad sotsiaalsed tegurid (VtO1), on pigem suurem mõju ka sobival ajal (VtO6; keskmine positiivne seos 0.31) ja tegevuse sisul (VtO7; keskmine positiivne seos 0.31) ning võib olla suurem mõju ka osalustasu suurusel (VtO2; nõrk positiivne seos 0.2).

Kui tegevustes osalemist mõjutab osalustasu suurus (VtO2), võib olla väiksem mõju sobival ajal (VtO6; nõrk negatiivne seos -0.23) ja tegevuse sisul (VtO7; nõrk negatiivne seos -0.23).

Kui tegevustes osalemist mõjutab sobiv aeg (VtO6), on pigem suurem mõju ka etteteatamisel (VtO8; keskmine positiivne seos 0.31).

# Skalaarvastused asendatakse numbritega
vt_osalemise_tegurid_numbritena <- asenda_skalaartunnused_numbritega(vt_osalemise_tegurid, NULL)
                                                                         

# Luuakse lühendatud veerunimedega sagedustabel
vt_osalemise_tegurid_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(vt_osalemise_tegurid_numbritena,
                        "VtO")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
vt_osalemise_tegurid_korrelatsioonitabel <- tee_korrelatsioonitabel(vt_osalemise_tegurid_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(vt_osalemise_tegurid_korrelatsioonitabel, # Korrelatsioonitabel
                        "Vaimset tervist toetavate tegevustes osalemise tõenäosust\nmõjutavate tegurite korrelatsioonid", luhenda_sagedustabeli_veerunimed(vt_osalemise_tegurid_numbritena,
                        "VtO")[[2]]) # Joonise pealkiri

\(~\)

4.6.3 Vaimset tervist toetavates tegevustes osalemise tõenäosust mõjutavate tegurite ja füüsilise tervise näitajate korrelatsioonimaatriks

Aktiivsete liikujate (Ft3) osalemist mõjutab sobivus töögraafikuga (VtO3; keskmine negatiivne seos -0.34) pigem vähem ja tegevuse sisu võib rohkem mõjutada (VtO7; nõrk positiivne seos 0.22).

Regulaarse unegraafikuga (Ft4) töötajate osalemist võivad sobivus töögraafikuga (VtO3; nõrk negatiivne seos -0.22) ja osalustasu suurus (VtO2; nõrk negatiivne seos -0.21) vähem mõjutada.

Üle 5 tunni päevas ekraani ees olijate (Ft7) osalemist võivad sobivus töögraafikuga (VtO3; nõrk positiivne seos 0.29) ja osalustasu suurus (VtO2; nõrk positiivne seos 0.23) rohkem mõjutada.

Regulaarsete sööjate (Ft6) osalemist mõjutab sobiv aeg (VtO6; keskmine positiivne seos 0.3) pigem rohkem ja rohkem võivad mõjutada ka sotsiaalsed tegurid (VtO1; nõrk positiivne seos 0.21), pigem vähem mõjutab tegevuse sisu (VtO7; keskmine negatiivnne seos -0.32).

Toidukordade vahel näksijate (Ft5) osalemist võib etteteatamine rohkem (VtO8; nõrk positiivne seos 0.24) ning tegevuse sisu (VtO7; nõrk negatiivne seos -0.23) ja osalustasu suurus (VtO2; nõrk negatiivne seos -0.21) vähem mõjutada.

Tervisekaebustega (Ft2): töötajate osalemist mõjutavad sobiv aeg (VtO6; keskmine positiivne seos 0.36), ja etteteatamine (VtO8; keskmine positiivne seos 0.35) pigem rohkem ning rohkem võib mõjutada ka tegevuse sisu (VtO7; nõrk positiivne seos 0.23) ja vähem osalustasu suurus (VtO2; nõrk negatiivne seos -0.26), sobivus töögraafikuga (VtO3; nõrk negatiivne seos -0.24) ja asukoht (VtO5; nõrk negatiivne seos -0.23).

tee_filtreeritud_korrelatsioonimaatriks(vt_osalemise_tegurid_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Vaimset tervist toetavate tegevustes osalemise tõenäosust mõjutavate tegurite\nja füüsilise tervise näitajate\nkorrelatsioonid")

\(~\)

4.6.4 Vaimset tervist toetavates tegevustes osalemise tõenäosust mõjutavate tegurite ja vaimse tervise näitajate korrelatsioonimaatriks

Hooseisundis töötajate (Vt5) osalemist mõjutavad mõned tegurid vähem: nende osalemist mõjutavad sotsiaalsed tegurid (VtO1; keskmine negatiivne seos -0.49) pigem vähem ja vähem võib mõjutada ka sobivus töögraafikuga (VtO3; nõrk negatiivne seos -0.21).

Enesetäiendamistegevuste (Vt4) harrastajate osalemist võib asukoht (VtO5; nõrk positiivne seos 0.2) rohkem ja osalustasu suurus (VtO2; nõrk negatiivne seos -0.21) vähem mõjutada.

Negatiivsete vaimse tervise näitajate puhul on erinevatel teguritel osalemisele suurem mõju:

Ületundide tegijate (Vt1) osalemist mõjutavad pigem rohkem sotsiaalsed tegurid (VtO1; keskmine positiivne seos 0.46) ja asukoht (VtO5; keskmine positiivne seos 0.32) ning rohkem võib mõjutada ka tegevuse sisu (VtO7; nõrk positiivne seos 0.25).

Tööstressi kogejate (Vt2) osalemist mõjutavad sotsiaalsed tegurid (VtO1; keskmine positiivne seos 0.39) pigem rohkem ja rohkem võivad mõjutada ka sobiv aeg (VtO6; nõrk positiivne seos 0.28), sobivus töögraafikuga (VtO3; nõrk positiivne seos 0.21) ja asukoht (VtO5; nõrk positiivne seos 0.21).

Ärevuse või depressiooni sümptomite kogejate (Vt3) osalemist võivad sobiv aeg (VtO6; nõrk positiivne seos 0.26) ja asukoht (VtO5; nõrk positiivne seos 0.21) rohkem mõjutada.

tee_filtreeritud_korrelatsioonimaatriks(vt_osalemise_tegurid_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Vaimset tervist toetavate tegevustes osalemise tõenäosust mõjutavate tegurite\nja vaimse tervise näitajate\nkorrelatsioonid")

\(~\)

4.6.5 Vaimset tervist toetavates tegevustes osalemise tõenäosust mõjutavate tegurite ja sotsiaalse tervise näitajate korrelatsioonimaatriks

Kaugtöö tegijate (St1) osalemust mõjutavad sobivus töögraafikuga (VtO3; keskmine positiivnne seos 0.34) ja osalustasu suurus (VtO2; keskmine positiivne seos 0.3) pigem rohkem.

Linnakus vaba aja veetjate (St3) osalemist võivad sobivus töögraafikuga (VtO3; nõrk positiivne seos 0.29) ja etteteatamine rohkem (VtO8; nõrk positiivne seos 0.2) rohkem mõjutada.

Mõned tegurid mõjutavad seltsivamate töötajate osalemist vähem:

Linnaku üritustel osalejate (St4) osalemist võib asukoht vähem mõjutada (VtO5; nõrk negatiivne seos -0.25).

Töökaaslastega suhtlejate (St2) osalemist võib tegevuse sisu rohkem mõjutada (VtO7; nõrk positiivne seos 0.2) ja sobiv aeg (VtO6; keskmine negatiivne seos -0.3) mõjutab pigem vähem.

tee_filtreeritud_korrelatsioonimaatriks(vt_osalemise_tegurid_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Vaimset tervist toetavate tegevustes osalemise tõenäosust mõjutavate tegurite\nja sotsiaalse tervise näitajate\nkorrelatsioonid")

\(~\)

4.6.6 Vaimset tervist toetavates tegevustes osalemise tõenäosust mõjutavate tegurite ja töötajate vanuse korrelatsioonimaatriks

Enamasti mõjutavad osalemist osalustasu suurus, tegevuse sisu, sotsiaalsed tegurid ja asukoht.

Vanuserühmade 18-30 ja 50-60 osalemist võivad asukoht (VtO5; mõlemal nõrk positiivne seos 0.29) ja sotsiaalsed tegurid (VtO1; mõlemal nõrk positiivne seos 0.2) rohkem mõjutada.

Vanuserühma 30-40 osalemist mõjutab osalustasu suurus pigem rohkem (VtO2; keskmine positiivne seos 0.35), rohkem võib mõjutada ka etteteatamine (VtO8; nõrk positiivne seos 0.26) ja vähem tegevuse sisu (VtO7; nõrk negatiivne seos -0.25).

Vanuserühma 40-50 osalemist mõjutab osalustasu suurus pigem vähem (VtO2; keskmine negatiivne seos -0.31) ning vähem võivad huvitada ka sotsiaalsed tegurid (VtO1; nõrk negatiivne seos -0.26) ja asukoht (VtO5; nõrk negatiivne seos -0.21) ning tegevuse sisu võib rohkem mõjutada (VtO7; nõrk positiivne seos 0.29).

tee_filtreeritud_korrelatsioonimaatriks(vt_osalemise_tegurid_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Vaimset tervist toetavate tegevustes osalemise tõenäosust mõjutavate tegurite\nja töötajate vanuse korrelatsioonid")

\(~\)

4.6.7 Vaimset tervist toetavates tegevustes osalemise tõenäosust mõjutavate tegurite ja ettevõtte andmete korrelatsioonimaatriks

Rahvusvaheliste ettevõtete töötajate osalemist mõjutab etteteatamine pigem rohkem (VtO8; keskmine positiivne seos 0.34).

Kodumaiste ettevõtete töötajate osalemist mõjutavad sotsiaalsed tegurid pigem rohkem (VtO1; keskmine positiivne seos 0.34) ja asukoht võib rohkem mõjutada (VtO5; nõrk positiivne seos 0.27).

Väikeste ettevõtete töötajate osalemist mõjutab osalustasu suurus pigem rohkem (VtO2; keskmine positiivne seos 0.43).

Suurte ettevõtete töötajate osalemist võivad sotsiaalsed tegurid rohkem mõjutada (VtO1; nõrk positiivne seos 0.27).

Keskmise suurusega ettevõtete töötajate osalemist mõjutab etteteatamine pigem rohkem (VtO8; keskmine positiivne seos 0.34), rohkem võib mõjutada ka sobiv aeg (VtO6; nõrk positiivne seos 0.21) ja vähem osalustasu suurus (VtO2; nõrk negatiivne seos -0.21).

Riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu valdkonna töötajate osalemist mõjutavad sobivus töögraafikuga (VtO3; keskmine positiivnne seos 0.36) ja asukoht (VtO5; keskmine positiivnne seos 0.36) pigem rohkem.

Hariduse, teaduse valdkonna töötajate osalemist mõjutavad sotsiaalsed tegurid pigem rohkem (VtO1; nõrk positiivne seos 0.36), rohkem võivad mõjutada ka sobiv aeg (VtO6; nõrk positiivne seos 0.21) ja tegevuse sisu (VtO7; nõrk positiivne seos 0.21) ja vähem asukoht (VtO5; nõrk negatiivne seos -0.24).

Telekommunikatsiooni, infotehnoloogia valdkonna töötajate osalemist mõjutab sobiv aeg pigem rohkem (VtO6; keskmine positiivne seos 0.31).

Teeninduse, kaubanduse, transpordi valdkonna töötajate osalemist võib etteteatamine rohkem (VtO8; nõrk positiivne seos 0.29) ja sotsiaalsed tegurid vähem (VtO1; nõrk negatiivne seos -0.21) mõjutada.

tee_filtreeritud_korrelatsioonimaatriks(vt_osalemise_tegurid_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Vaimset tervist toetavate tegevustes osalemise tõenäosust mõjutavate tegurite\nja ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

\(~\)

\(~\)

5. Huvi töökeskkonna parendmise viiside vastu

5.1 Töökeskkond

5.1.1 Töökeskkonna parendamise viiside vastu tuntav huvi

Vastajad on ronimisseinast ja aiandustegevustest, kogukonnaaiast ja mängude nurgast mõnevõrra huvitatud.

# Töökeskkonna muutuste vastu tuntava huvi põhjal sagedustabeli tegemine
list_tookeskkond <- list("Palun hinda, millisel määral järgmised töökeskkonna täiustamise viisid sind huvitaksid [Ei ole huvitatud]", 
                "Palun hinda, millisel määral järgmised töökeskkonna täiustamise viisid sind huvitaksid [Olen mõnevõrra huvitatud]",
                "Palun hinda, millisel määral järgmised töökeskkonna täiustamise viisid sind huvitaksid [Olen väga huvitatud]")




# Töökeskkonna muutuste vastu tuntava huvi põhjal sagedustabeli tegemine
tookeskkond_lai_sagedustabel <- tee_skalaarkysimuste_lai_sagedustabel(list_tookeskkond, ",\\s*(?=[A-ZÄÖÜÕ])|,(?=[A-ZÄÖÜÕ])") 


tookeskkond_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(tookeskkond_lai_sagedustabel[[1]], "Ajatempel")


tookeskkond_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(tookeskkond_pikk_sagedustabel, tookeskkond_lai_sagedustabel[[2]])



# Sagedustabelisse käsitsi rea lisamine ("Muu" täpsustus)
tookeskkond_sagedustabel_summadega <- add_row(tookeskkond_sagedustabel_summadega, Sagedus = "Olen mõnevõrra huvitatud", variable = "Muu: Osavus ja nuputamis ja mõtlemismängud.\nVäimale. Välikabe. Bowling. Piljard.", n = 1)


# Joonise tegemine
joonis(tookeskkond_sagedustabel_summadega,
      "Tegevused",
      "Huvi töökeskkonna täiustamise viiside vastu",
       y_veerg = "n") 

5.1.2 Töökeskkonna parendamise viiside vastu tuntava huvi korrelatsioonid

Karjumisruumist (TK1) huivtujad on ka lõhkumisruumist pigem rohkem huvitatud (TK2; keskmine positiivne seos 0.55).

Mängude nurga (TK4) vastu huvi tundjad tundsid pigem suuremat huvi ka aiandustegevustest/kogukonnaaiast (TK3; keskmine positiivne seos 0.5) ja lõhkumisruumist (TK3; keskmine positiivne seos 0.45) ning võivad ka karjumisruumist rohkem huvitatud olla (TK1; nõrk positiivne seos 0.2).

Ronimisseina (TK5) vastu huvi tundjad tundsid pigem suuremat huvi ka aiandustegevustest/kogukonnaaiast (TK3; keskmine positiivne seos 0.44), mängude nurgast (TK4; keskmine positiivne seos 0.42) ja lõhkumisruumist (TK2; keskmine positiivne seos 0.41) ning võivad tunda suuremat huvi ka karjumisruumist (TK1; nõrk positiivne seos 0.26).

# Skalaarvastused asendatakse numbritega
tookeskkond_numbritena <- asenda_skalaartunnused_numbritega(tookeskkond_lai_sagedustabel[[1]], # df vastustega
                                                            tookeskkond_lai_sagedustabel[[2]]) # skalaarvastused

# Luuakse lühendatud veerunimedega sagedustabel
tookeskkond_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(tookeskkond_numbritena,
                        "TK")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
tookeskkond_korrelatsioonitabel <- tee_korrelatsioonitabel(tookeskkond_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(tookeskkond_korrelatsioonitabel, # Korrelatsioonitabel
                        "Töökeskkonna täiustamise viiside korrelatsioonid", # Joonise pealkiri
                        luhenda_sagedustabeli_veerunimed(tookeskkond_numbritena,
                        "TK")[[2]]) # Lühendatud veerunimede ja neile vastavate väärtuste vektor

5.1.3 Töökeskkonna parendamise viiside vastu tuntava huvi ja füüsilise tervise näitajate korrelatsioonimaatriks

Aktiivsed liikujad (Ft3) huvituvad ronimisseinast pigem rohkem **(TK5; keskmine positiivne seos 0.38).

Tervisekaebustega (Ft2): töötajad võivad lõhkumisruumist vähem huvituda *(TK2; nõrk negatiivne seos -0.23).

Üle 5 tunni päevas ekraani ees olijad (Ft7) võivad karjumisruumist (TK1; nõrk positiivne seos 0.29), lõhkumisruumist (TK2; nõrk positiivne seos 0.25) ja mängude nurgast (TK4; nõrk positiivne seos 0.2) rohkem huvituda ning huvituvad aiandustegevustest/kogukonnaaiast pigem vähem (TK3; keskmine negatiivne seos -0.33).

Toidukordade vahel näksijad (Ft5) huvituvad aiandustegevustest/kogukonnaaiast pigem vähem (TK3; keskmine positiivne seos 0.41) ja mängude nurgast (TK4; keskmine positiivne seos 0.39) pigem rohkem ja võivad rohkem huvituda ka ronimisseinast (TK5; nõrk positiivne seos 0.21).

tee_filtreeritud_korrelatsioonimaatriks(tookeskkond_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Töökeskkonna parendamise viiside vastu tuntava huvi\nja füüsilise tervise näitajate\nkorrelatsioonid")

5.1.4 Töökeskkonna parendamise viiside vastu tuntava huvi ja vaimse tervise näitajate korrelatsioonimaatriks

Tööstressi kogejad (Vt2) on ronimisseinast pigem rohkem huvitatud (TK5; keskmine positiivne seos 0.35) ja võivad olla ka karjumisruumist (TK1; nõrk positiivne seos 0.26), aiandustegevustest/kogukonnaaiast (TK3; nõrk positiivne seos 0.24) ja lõhkumisruumist (TK2; nõrk positiivne seos 0.2) rohkem huvitatud.

Ärevuse või depressiooni sümptomite kogejad (Vt3) on mängude nurgast (TK4; keskmine positiivne seos 0.31) ja ronimisseinast (TK5; keskmine positiivne seos 0.31) pigem rohkem huvitatud ja võivad olla ka aiandustegevustest/kogukonnaaiast rohkem huvitatud (TK3; nõrk positiivne seos 0.21).

Enesetäiendamistegevuste (Vt4) harrastajad võivad olla aiandustegevustest/kogukonnaaiast rohkem huvitatud (TK3; nõrk positiivne seos 0.25).

Ületundide tegijad (Vt1) võivad olla aiandustegevustest/kogukonnaaiast rohkem huvitatud (TK3; nõrk positiivne seos 0.21).

Hooseisundis töötajad (Vt5) võivad olla aiandustegevustest/kogukonnaaiast (TK3; nõrk negatiivne seos -0.24) ja mängude nurgast (TK4; nõrk negatiivne seos -0.21) vähem huvitatud.

tee_filtreeritud_korrelatsioonimaatriks(tookeskkond_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Töökeskkonna parendamise viiside vastu tuntava huvi\nja vaimse tervise näitajate korrelatsioonid")

5.1.5 Töökeskkonna parendamise viiside vastu tuntava huvi ja sotsiaalse tervise näitajate korrelatsioonimaatriks

Kaugtöö tegijad (St1) võivad olla ronimisseinast (TK5; nõrk positiivne seos 0.26), lõhkumisruumist (TK2; nõrk positiivne seos 0.27), karjumisruumist (TK1; nõrk positiivne seos 0.21) ja mängude nurgast (TK4; nõrk positiivne seos 0.21) rohkem huvitatud.

Töökaaslastega suhtlejad (St2) on ronimisseinast pigem rohkem huvitatud (TK5; keskmine positiivne seos 0.34).

Linnakus vaba aja veetjad (St3) ja linnaku üritustel osalejad (St4) on ronimisseinast (TK5; St3 keskmine positiivne seos 0.59 ja St4 keskmine positiivne seos 0.37) ja mängude nurgast (TK4; St3 keskmine positiivne seos 0.51 ja St4 keskmine positiivne seos 0.43) pigem rohkem huvitatud.

Linnakus vaba aja veetjad (St3) on lõhkumisruumist pigem rohkem huvitatud (TK2; St3 keskmine positiivne seos 0.46).

Linnaku üritustel osalejad (St4) on ka aiandustegevustest/kogukonnaaiast (TK3; keskmine positiivne seos 0.35) rohkem huvitatud ja võivad olla karjumisruumist vähem huvitatud (TK1; nõrk negatiivne seos -0.27).

tee_filtreeritud_korrelatsioonimaatriks(tookeskkond_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Töökeskkonna parendamise viiside vastu tuntava huvi\nja sotsiaalse tervise näitajate korrelatsioonid")

5.1.6 Töökeskkonna parendamise viiside vastu tuntava huvi ja töötajate vanuse korrelatsioonimaatriks

Vanuserühm 18-30 on lõhkumisruumist (TK2; keskmine positiivne seos 0.31) pigem rohkem huvitatud ja võib rohkem huvituda ka karjumisruumist (TK1; nõrk positiivne seos 0.26), aiandustegevustest/kogukonnaaiast (TK3; nõrk positiivne seos 0.21) ja ronimisseinast (TK5; nõrk positiivne seos 0.21).

Vanuserühm 30-40 on mängude nurgast (TK4; keskmine positiivne seos 0.5) ja ronimisseinast (TK5; keskmine positiivne seos 0.3) pigem rohkem huvitatud.

Vanuserühm 40-50 on mängude nurgast (TK4; keskmine negatiivne seos -0.35) ja lõhkumisruumist (TK2; keskminenegatiivne seos -0.33) pigem vähem huvitatud.

Vanuserühm 50-60 on ronimisseinast (TK5; keskmine negatiivne seos -0.31) pigem vähem huvitatud.

tee_filtreeritud_korrelatsioonimaatriks(tookeskkond_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Töökeskkonna parendamise viiside vastu vastu tuntava huvi\nja töötajate vanuse korrelatsioonid")

5.1.7 Töökeskkonna parendamise viiside vastu tuntava huvi ja ettevõtte andmete korrelatsioonimaatriks

Suurem huvi on kodumaiste, väikeste ja suurte ettevõtete töötajatel ja riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu ning teeninduse, kaubanduse, transpordi valdkonna töötajad:

Kodumaiste ettevõtete töötajad võivad ronimisseinast vähem huvituda (TK5; nõrk negatiivne seos -0.2).

Väikeste ettevõtete töötajad võivad mängude nurgast rohkem huvituda (TK4; nõrk positiivne seos 0.22).

Suurte ettevõtete töötajad huvituvad lõhkumisruumist pigem rohkem (TK2; keskmine positiivne seos 0.31).

Riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu valdkonna töötajad huvituvad ronimisseinast pigem rohkem (TK5; keskmine positiivne seos 0.32) ja võivad rohkem huvituda ka mängude nurgast (TK4; nõrk positiivne seos 0.24) ja lõhkumisruumist (TK2; nõrk positiivne seos 0.22).

Teeninduse, kaubanduse, transpordi valdkonna töötajad võivad aiandustegevustest/kogukonnaaiast (TK3; nõrk positiivne seos 0.25) ja ronimisseinast (TK5; nõrk positiivne seos 0.25) rohkem huvituda.

Suurem huvi on rahvusvaheliste ja mikroettevõtete töötajatel ja tööstuse, energeetika, ehituse valdkonna, hariduse, teaduse valdkonna ja panganduse, kindlustuse, kinnisvara valdkonna töötajad:

Rahvusvaheliste ettevõtete töötajad võivad karjumisruumist vähem huvituda (TK1; nõrk negatiivne seos -0.22).

Mikroettevõtete töötajad võivad aiandustegevustest/kogukonnaaiast vähem huvituda (TK3; nõrk negatiivne seos -0.23).

Tööstuse, energeetika, ehituse valdkonna töötajad võivad aiandustegevustest/kogukonnaaiast vähem huvituda (TK3; nõrk negatiivne seos -0.23).

Hariduse, teaduse valdkonna töötajad võivad ronimisseinast (TK5; nõrk negatiivne seos -0.27) ja aiandustegevustest/kogukonnaaiast (TK3; nõrk negatiivne seos -0.24) vähem huvituda.

Panganduse, kindlustuse, kinnisvara valdkonna töötajad võivad ronimisseinast vähem huvituda (TK5; nõrk negatiivne seos -0.21).

tee_filtreeritud_korrelatsioonimaatriks(tookeskkond_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Töökeskkonna parendamise viiside vastu vastu tuntava huvi\nja ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

\(~\)

5.2 Tehnilised lahendused

5.2.1 Tehniliste lahenduste vastu tuntav huvi

Vastajad on kõigist tehnoloogilistest lahendustest mõnevõrra huvitatud.

# dataFramei veergude ümbernimetamine
df_new_1 <- df_new_1 %>% rename(`Palun hinda, millisel määral järgmised tehnoloogilised lahendused linnaku kodulehel või eraldi loodavas keskkonnas sind huvitaksid [Ei ole huvitatud]` = `Palun hinda, millisel määral järgmised tehnoloogilised lahendused linnaku kodulehel või eraldi loodavas keskkonnas sind huvitaksid [Ei ole huvitatud]  Kliendiportaal sisaldab isiklikku planeerijat, linnaku tervishoiteenuste broneerimisvõimalust, ürituste kalendrit, informatsiooni vaba aja veetmise võimaluste ning teenuste kohta ja muud  Harjumustepank sisaldab informatiooni erinevate eluliste aspektidega seonduvate tervislike harjumuste olemuse ja loomise kohta   Infopank sisaldab erinevaid füüsilise, vaimse ja sotsiaalse tervisega seonduvaid ressursse [Ei ole huvitatud]`,
                  `Palun hinda, millisel määral järgmised tehnoloogilised lahendused linnaku kodulehel või eraldi loodavas keskkonnas sind huvitaksid [Olen mõnevõrra huvitatud]` = `Palun hinda, millisel määral järgmised tehnoloogilised lahendused linnaku kodulehel või eraldi loodavas keskkonnas sind huvitaksid [Olen mõnevõrra huvitatud]  Kliendiportaal sisaldab isiklikku planeerijat, linnaku tervishoiteenuste broneerimisvõimalust, ürituste kalendrit, informatsiooni vaba aja veetmise võimaluste ning teenuste kohta ja muud  Harjumustepank sisaldab informatiooni erinevate eluliste aspektidega seonduvate tervislike harjumuste olemuse ja loomise kohta   Infopank sisaldab erinevaid füüsilise, vaimse ja sotsiaalse tervisega seonduvaid ressursse [Olen mõnevõrra huvitatud]`,
                  `Palun hinda, millisel määral järgmised tehnoloogilised lahendused linnaku kodulehel või eraldi loodavas keskkonnas sind huvitaksid [Olen väga huvitatud]` = `Palun hinda, millisel määral järgmised tehnoloogilised lahendused linnaku kodulehel või eraldi loodavas keskkonnas sind huvitaksid [Olen väga huvitatud]  Kliendiportaal sisaldab isiklikku planeerijat, linnaku tervishoiteenuste broneerimisvõimalust, ürituste kalendrit, informatsiooni vaba aja veetmise võimaluste ning teenuste kohta ja muud  Harjumustepank sisaldab informatiooni erinevate eluliste aspektidega seonduvate tervislike harjumuste olemuse ja loomise kohta   Infopank sisaldab erinevaid füüsilise, vaimse ja sotsiaalse tervisega seonduvaid ressursse [Olen väga huvitatud]`,
                  )

# Tehnoloogiliste lahenduste vastu tuntava huvi põhjal sagedustabeli tegemine
list_teh_lahendused <- list("Palun hinda, millisel määral järgmised tehnoloogilised lahendused linnaku kodulehel või eraldi loodavas keskkonnas sind huvitaksid [Ei ole huvitatud]", 
                "Palun hinda, millisel määral järgmised tehnoloogilised lahendused linnaku kodulehel või eraldi loodavas keskkonnas sind huvitaksid [Olen mõnevõrra huvitatud]",
                "Palun hinda, millisel määral järgmised tehnoloogilised lahendused linnaku kodulehel või eraldi loodavas keskkonnas sind huvitaksid [Olen väga huvitatud]")



# Töökeskkonna muutuste vastu tuntava huvi põhjal sagedustabeli tegemine
teh_lahendused_lai_sagedustabel <- tee_skalaarkysimuste_lai_sagedustabel(list_teh_lahendused, ",\\s*(?=[A-ZÄÖÜÕ])|,(?=[A-ZÄÖÜÕ])") 


teh_lahendused_pikk_sagedustabel <- tee_skalaarkysimuste_pikk_sagedustabel(teh_lahendused_lai_sagedustabel[[1]], "Ajatempel")


teh_lahendused_sagedustabel_summadega <- loenda_pika_sagedustabeli_veerge(teh_lahendused_pikk_sagedustabel, teh_lahendused_lai_sagedustabel[[2]])


# Joonise tegemine
joonis(teh_lahendused_sagedustabel_summadega,
      "Tehnoloogilised lahendused",
      "Huvi linnaku kodulehel või eraldi loodavas keskkonnas olevate tehnoloogiliste lahenduste vastu",
       y_veerg = "n") 

5.2.2 Tehniliste lahenduste vastu tuntava huvi korrelatsioonid

Kliendiportaalist (TL1) huvitujad tundsid infopangast (TL4; keskmine positiivne seos 0.54) ja kliendiportaalist (TL1; keskmine positiivne seos 0.43) pigem rohkem huvi.

Harjumuste pangast (TL3) huvitujad tundsid kliendiportaalist (TL1; tugev positiivne seos 0.77) tõenäoliselt rohkem ning harjumuste jälgimise rakendusest (TL2; keskmine positiivne seos 0.53) ja infopangast (TL4; keskmine positiivne seos 0.47) pigem rohkem huvi.

Infopangast (TL4) huvitujad tundsid harjumuste jälgmise rakendusest (TL2; keskmine positiivne seos 0.47) pigem rohkem huvi.

# Skalaarvastused asendatakse numbritega
teh_lahendused_numbritena <- asenda_skalaartunnused_numbritega(teh_lahendused_lai_sagedustabel[[1]], # df vastustega
                                                            teh_lahendused_lai_sagedustabel[[2]]) # skalaarvastused

# Luuakse lühendatud veerunimedega sagedustabel
teh_lahendused_luhendatud_veergudega_sagedustabel <- luhenda_sagedustabeli_veerunimed(teh_lahendused_numbritena,
                        "TL")[[1]]

# Lühendatud veerunimedega sagedustabeli põhjal tehakse korrelatsioonitabel
teh_lahendused_korrelatsioonitabel <- tee_korrelatsioonitabel(teh_lahendused_luhendatud_veergudega_sagedustabel) 

# Korrelatsioonimaatriksi tegemine
tee_korrelatsioonimaatriks(teh_lahendused_korrelatsioonitabel, # Korrelatsioonitabel
                        "Tehnoloogiliste lahenduste korrelatsioonid", # Joonise pealkiri
                        luhenda_sagedustabeli_veerunimed(teh_lahendused_numbritena,
                        "TL")[[2]]) # Lühendatud veerunimede ja neile vastavate väärtuste vektor

5.2.3 Tehniliste lahenduste vastu tuntava huvi ja füüsilise tervise näitajate korrelatsioonimaatriks

Mõned füüsilise tervise näitajad vähendavad huvi harjumuste jälgimise rajenduse ja harjumuste panga vastu:

Jalgsi, jalgratta või muu kergliikuriga ühest punktist teise liikujad (Ft1), regulaarse unegraafikuga (Ft4) inimesed ja regulaarselt sööjad (Ft6) võivad harjumuste jälgimise rakendusest vähem huvituda (TL2; Ft4 nõrk negatiivne seos -0.29, Ft4 nõrk negatiivne seos -0.25, nõrk negatiivne seos -0.21).

Toidukordade vahel näksijad (Ft5) huvituvad harjumuste pangast pigem vähem (TL3; keskmine negatiivne seos -0.34).

Aktiivsed liikujad (Ft3) huvituvad harjumuste jälgimise rakendusest pigem rohkem (TL2; keskmine positiivne seos 0.36) ja võivad rohkem huvituda ka infopangast (TL4; nõrk positiivne seos 0.28) ja harjumuste pangast (TL3; nõrk positiivne seos 0.23).

Tervisekaebustega (Ft2) töötajad huvituvad harjumuste jälgimise rakendusest pigem rohkem (TL2; keskmine positiivne seos 0.33).

tee_filtreeritud_korrelatsioonimaatriks(teh_lahendused_luhendatud_veergudega_sagedustabel, ft_luhendatud_veergudega_sagedustabel, "Tehniliste lahenduste vastu tuntava huvi\nja füüsilise tervise näitajate korrelatsioonid")

5.2.4 Tehniliste lahenduste vastu tuntava huvi ja vaimse tervise näitajate korrelatsioonimaatriks

Ärevuse või depressiooni sümptomite kogejad (Vt3) võivad olla infopangast rohkem huvitatud (TL4; nõrk positiivne seos 0.27).

Ületundide tegijad (Vt1) on kliendiportaalist (TL1; keskmine positiivne seos 0.54), harjumuste pangast (TL3; keskmine positiivne seos 0.43) ja infopangast (TL4; keskmine positiivne seos 0.37) rohkem huvitatud ja võivad olla rohkem huvitatud ka harjumuste jälgimise rakendusest (TL2; nõrk positiivne seos 0.25).

Hooseisundis töötajad (Vt5) on harjumuste jälgimise rakendusest pigem vähem huvitatud (TL2; keskmine negatiivne seos -0.31).

tee_filtreeritud_korrelatsioonimaatriks(teh_lahendused_luhendatud_veergudega_sagedustabel, vt_luhendatud_veergudega_sagedustabel, "Tehniliste lahenduste vastu tuntava huvi\nja vaimse tervise näitajate korrelatsioonid")

5.2.5 Tehniliste lahenduste vastu tuntava huvi ja sotsiaalse tervise näitajate korrelatsioonimaatriks

Kaugtöö tegijad (St1) võivad olla harjumuste pangast (TL3; nõrk negatiivne seos -0.24) ja infopangast (TL4; nõrk negatiivne seos -0.2) vähem huvitatud.

Töökaaslastega suhtlejad (St2) on kliendiportaalist pigem rohkem huvitatud (TL1; keskmine positiivne seos 0.34) ja võivad olla rohkem huvitatud ka infopangast (TL4; nõrk positiivne seos 0.25).

Linnakus vaba aja veetjad (St3) võivad olla harjumuste jälgimise rakendusest (TL2; nõrk positiivne seos 0.24), (TL3; nõrk positiivne seos 0.24) ja infopangast (TL4; nõrk positiivne seos 0.2) rohkem huvitatud.

Linnaku üritustel osalejad (St4) võivad olla harjumuste pangast rohkem huvitatud (TL3; nõrk positiivne seos 0.27).

tee_filtreeritud_korrelatsioonimaatriks(teh_lahendused_luhendatud_veergudega_sagedustabel, st_luhendatud_veergudega_sagedustabel, "Tehniliste lahenduste vastu tuntava huvi\nja sotsiaalse tervise näitajate korrelatsioonid")

5.2.6 Tehniliste lahenduste vastu tuntava huvi ja töötajate vanuse korrelatsioonimaatriks

Vanuserühm 18-30 võib olla infopangast (TL4; nõrk positiivne seos 0.2) rohkem huvitatud.

Vanuserühm 50-60 on harjumuste jälgimise rakendusest pigem rohkem huvitatud (TL2; keskmine positiivne seos 0.31) ja võib olla rohkem huvitatud ka kliendiportaalist (TL1; nõrk positiivne seos 0.24).

Vanuserühm 30-40 on infopangast pigem vähem huvitatud (TL4; keskmine negatiivne seos -0.322).

tee_filtreeritud_korrelatsioonimaatriks(teh_lahendused_luhendatud_veergudega_sagedustabel, tootaja_uldandmed, "Tehniliste lahenduste vastu vastu tuntava huvi\nja töötajate vanuse korrelatsioonid")

5.2.7 Tehniliste lahenduste vastu tuntava huvi ja ettevõtte andmete korrelatsioonimaatriks

Hariduse, teaduse valdkonna töötajad võivad harjumuste jälgimise rakendusest rohkem huvituda (TL2; nõrk positiivne seos 0.23).

Väiksem huvi on rahvusvaheliste, väikeste ja keskmise suurusega ettevõtete töötajatel ja panganduse, kindlustuse, kinnisvara valdkonna töötajatel:

Rahvusvaheliste ja keskmise suurusega ettevõtete töötajad võivad infopangast vähem huvituda (TL4; mõlemal nõrk negatiivne seos -0.21).

Väikeste ettevõtete töötajad võivad harjumuste pangast vähem huvituda (TL3; nõrk negatiivne seos -0.22).

Panganduse, kindlustuse, kinnisvara valdkonna töötajad võivad kliendiportaalist (TL1; nõrk negatiivne seos -0.24), harjumuste jälgimise rakendusest (TL2; nõrk negatiivne seos -0.22) ja harjumuste pangast (TL3; nõrk negatiivne seos -0.21) vähem huvituda.

Riigiteenistuse, halduse, sotsiaalsfääri, tervishoiu valdkonna töötajad võivad kliendiportaalist (TL1; nõrk positiivne seos 0.29) ja infopangast (TL4; mõlemal nõrk positiivne seos 0.25) rohkem ja harjumuste jälgimise rakendusest (TL2; nõrk negatiivne seos -0.28) vähem huvituda.

tee_filtreeritud_korrelatsioonimaatriks(teh_lahendused_luhendatud_veergudega_sagedustabel, ettevotte_uldandmed, "Tehniliste lahenduste vastu tuntava huvi\nja ettevõtte andmete korrelatsioonid") + scale_y_discrete(labels=c("Kodumaine ettevõte", "Rahvusvaheline\nettevõte", "Suur ettevõte", "Keskmise suurusega\nettevõte", "Väike ettevõte", "Mikroettevõte", "Pangandus, kindlustus,\nkinnisvara", "Teenindus, kaubandus,\ntransport", "Telekommunikatsioon,\ninfotehnoloogia", "Haridus, teadus", "Tööstus, energeetika,\nehitus", "Riigiteenistus, haldus,\nsotsiaalsfäär, tervishoid")) + theme(axis.text.y = element_text(size = rel(1)), axis.text.x = element_text(size = rel(1)))

\(~\)

\(~\)

\(~\)

Kokkuvõte

Töö põhieesmärk on teha kindlaks, kas talendi tervisenäitajad on ÜC Tervisemudeliga kooskõlas ja terviseedenduslike tegevustega seotud küsitluse tulemusi analüüsida. Kõik hüpoteesid said kinnitust.