Práca s databázou PISA 2025

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

library(haven)
library(dplyr)

pisa_svk <- read_sav(
  "~/Downloads/PISA DATA 2025/CY09_MS_STU_PUF.sav",
  col_select = c(
    CNT, ST004D01T, AIUSESCH,
    ST438Q01DA, ST438Q02DA, ST438Q03DA, ST438Q04DA,
    ESCS, PV1SCIE
  )
) |>
  filter(CNT == "SVK") |>
  transmute(
    pohlavie = as_factor(ST004D01T),
    ai_index = AIUSESCH,
    ai_sumarizovanie = as_factor(ST438Q01DA),
    ai_research = as_factor(ST438Q02DA),
    ai_pisanie = as_factor(ST438Q03DA),
    ai_ucenie = as_factor(ST438Q04DA),
    socioekonomicke_zazemie = ESCS,
    vysledok_prirodne_vedy = PV1SCIE
  ) |>
  filter(!is.na(ai_index), !is.na(vysledok_prirodne_vedy))

glimpse(pisa_svk)

Rows: 6,133
Columns: 8
$ pohlavie                <fct> Male, Female, Male, Male, Female, Female, Fema…
$ ai_index                <dbl+lbl>  1.38505133,  0.32581580, -0.11573150, -0.…
$ ai_sumarizovanie        <fct> Every day or almost every day, About once or t…
$ ai_research             <fct> About once or twice a week, Never or almost ne…
$ ai_pisanie              <fct> Every day or almost every day, About once or t…
$ ai_ucenie               <fct> About once or twice a week, Every day or almos…
$ socioekonomicke_zazemie <dbl+lbl> -0.41616445, -0.92788847,  0.21357018, -1.…
$ vysledok_prirodne_vedy  <dbl+lbl> 498.8960, 471.5736, 477.7785, 485.5762, 38…

summary(pisa_svk)

                            pohlavie       ai_index         
 Female                         :3239   Min.   :-1.5821248  
 Male                           :2894   1st Qu.:-0.4526905  
 valid skip (filter rule)       :   0   Median : 0.0007488  
 system missing                 :   0   Mean   : 0.0812450  
 not administered/not applicable:   0   3rd Qu.: 0.5811789  
 invalid                        :   0   Max.   : 2.3418298  
 no response                    :   0                       
                      ai_sumarizovanie                        ai_research  
 Never or almost never        :1877    Never or almost never        :1920  
 About once or twice a month  :1238    About once or twice a month  :1320  
 About once or twice a week   :1181    About once or twice a year   :1190  
 About once or twice a year   :1013    About once or twice a week   :1004  
 Every day or almost every day: 816    Every day or almost every day: 683  
 (Other)                      :   0    (Other)                      :   0  
 NAs                          :   8    NAs                          :  16  
                         ai_pisanie                           ai_ucenie   
 About once or twice a month  :1544   About once or twice a week   :1534  
 Never or almost never        :1317   Every day or almost every day:1294  
 About once or twice a week   :1313   About once or twice a month  :1208  
 About once or twice a year   :1031   Never or almost never        :1193  
 Every day or almost every day: 897   About once or twice a year   : 859  
 (Other)                      :   0   (Other)                      :   0  
 NAs                          :  31   NAs                          :  45  
 socioekonomicke_zazemie vysledok_prirodne_vedy
 Min.   :-5.07156        Min.   :167.4         
 1st Qu.:-0.79430        1st Qu.:416.7         
 Median :-0.09428        Median :487.2         
 Mean   :-0.10001        Mean   :483.7         
 3rd Qu.: 0.63216        3rd Qu.:552.4         
 Max.   : 3.59390        Max.   :793.5         
 NAs    :184