Data exploration
exploration.RmdPresentation des donnees
donnees enquete
head(survey_answers)
#> # A tibble: 6 × 110
#> Localisation BE1PH BE2PH BE3PS BE4SP BE5PS BE6ENV BE7ENV BE8ENV BE9PH BE10PH
#> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 1 157 1 1 1 3 2 4 4 3 5 2
#> 2 124 2 2 4 4 4 4 3 4 4 2
#> 3 13 5 4 4 2 3 1 3 3 4 4
#> 4 96 1 5 5 3 2 5 3 3 2 4
#> 5 73 2 2 3 2 4 3 4 5 3 3
#> 6 129 2 3 1 5 4 5 1 3 4 4
#> # ℹ 99 more variables: BE11ENV <dbl>, BE12ENV <dbl>, BE13ENV <dbl>,
#> # BE14PH <dbl>, BE15PH <dbl>, BE16PH <dbl>, BE17PH <dbl>, BE18PS <dbl>,
#> # BE19RS <dbl>, BE20RS <dbl>, BE21RS <dbl>, BE22ENV <dbl>, BE23ENV <dbl>,
#> # BE24ENV <dbl>, BE25ENV <dbl>, BE26PSR <dbl>, BE27G <dbl>, BE28G <dbl>,
#> # CN1 <dbl>, CN2 <dbl>, CN3 <dbl>, CN4 <dbl>, CN5 <dbl>, CN6 <dbl>,
#> # CN7 <dbl>, CN8 <dbl>, CN9 <dbl>, CN10 <dbl>, CN11 <dbl>, CN12 <dbl>,
#> # CN13 <dbl>, CN14 <dbl>, CN15 <dbl>, CN16 <dbl>, CN17 <dbl>, CN18 <dbl>, …les questions
survey_questions
#> # A tibble: 97 × 2
#> code question
#> <chr> <chr>
#> 1 Type échantillon 1 - Echantillon RepNat
#> 2 BE1PH La douleur physique vous empêche-t-elle de faire ce dont vo…
#> 3 BE2PH Avez-vous besoin d'un traitement médical quotidiennement ?
#> 4 BE3PS Aimez-vous votre vie ?
#> 5 BE4SP Estimez-vous que votre vie a du sens ?
#> 6 BE5PS Êtes-vous capable de vous concentrer ?
#> 7 BE6ENV Vous sentez-vous en sécurité dans votre vie quotidienne ?
#> 8 BE7ENV Vivez-vous dans un environnement sain ?
#> 9 BE8ENV Êtes-vous gêné par le bruit là où vous vivez ?
#> 10 BE9PH Avez-vous assez d'énergie dans votre vie quotidienne ?
#> # ℹ 87 more rowstable de correspondance
survey_crossref
#> $SEXE
#> # A tibble: 2 × 2
#> code valeur
#> <chr> <chr>
#> 1 1 Hommes
#> 2 2 Femmes
#>
#> $AGE
#> # A tibble: 6 × 2
#> code valeur
#> <chr> <chr>
#> 1 1 15-24 ans
#> 2 2 25-34 ans
#> 3 3 35-44 ans
#> 4 4 45-54 ans
#> 5 5 55-64 ans
#> 6 6 65 ans et plus
#>
#> $CSP
#> # A tibble: 6 × 2
#> code valeur
#> <chr> <chr>
#> 1 1 Travailleurs indépendants (agriculteurs, artisans, commerçants et chefs…
#> 2 2 CSP+ (cadres, professions intellectuelles supérieures et professions li…
#> 3 3 Professions intermédiaires
#> 4 4 CSP- (employés et ouvriers)
#> 5 5 Retraités
#> 6 6 Autres inactifs
#>
#> $UDA5
#> # A tibble: 5 × 2
#> code valeur
#> <chr> <chr>
#> 1 1 Ile-de-France
#> 2 2 Nord-Ouest
#> 3 3 Nord-Est
#> 4 4 Sud-Ouest
#> 5 5 Sud-EstExploration
Calcul indicateurs
indicators <- calculate_indicators(survey_answers)
indicators
#> # A tibble: 4,000 × 28
#> identifiant_repondant Localisation AGE SEXE TYPEHABITAT REVENUFOYER SITPRO
#> <int> <dbl> <chr> <chr> <chr> <chr> <chr>
#> 1 1 157 A4555 A MAISO REV2 RETRT
#> 2 2 124 A2634 M APPAR REV2 RETRT
#> 3 3 13 A4555 M MAIJA REV1 SSEMP
#> 4 4 96 A2634 M MAIJA REV2 ETU
#> 5 5 73 A4555 M APPAR REV1 FOY
#> 6 6 129 A5675 F APBAL REV5 ETU
#> 7 7 105 A1825 M MAISO REV2 ETU
#> 8 8 95 A4555 F APPAR REV4 RETRT
#> 9 9 194 A76 M MAIJA REV5 RETRT
#> 10 10 68 A3544 M APPAR REV1 TPSPL
#> # ℹ 3,990 more rows
#> # ℹ 21 more variables: NIVETUDE <chr>, SITCIVILE <chr>, NBPERSFOYER <chr>,
#> # NBENFANT <chr>, AUCUN <chr>, critere_bien_etre_global <dbl>,
#> # critere_bien_etre_psy <dbl>, critere_bien_etre_environnement <dbl>,
#> # critere_bien_etre_physique <dbl>, critere_bien_etre_ressources <dbl>,
#> # critere_type_nature_global <dbl>, critere_activ_global <dbl>,
#> # critere_nature_nondomest <dbl>, critere_nature_domestique <dbl>, …