Installation des packages et de la bdd

library(readr)
d <- read.csv("/Users/bastiandelauney/Desktop/Faculté/L3/S6/Socio/ENQ/ENQ S6 R, ESS, 1/R project and ESS copy/ESS 11 FR.csv")



### VI ####
# B43 = imbgeco = eco threat
# B44 = imueclt = cultural threat
# B45 = imwbcnt = neighborhood safety


#### VD ####
## Niveau d'étude de l'enquête = F15 = edlvdfr

Recodages

library(questionr)

#### Rec educ indiv en d$edlvdfr_rec_fac ####

## Recoding d$edlvdfr into d$edlvdfr_rec
d$edlvdfr_rec <- as.character(d$edlvdfr)
d$edlvdfr_rec[d$edlvdfr == "1"] <- "3e ou -"
d$edlvdfr_rec[d$edlvdfr == "2"] <- "3e ou -"
d$edlvdfr_rec[d$edlvdfr == "3"] <- "3e ou -"
d$edlvdfr_rec[d$edlvdfr == "4"] <- "3e ou -"
d$edlvdfr_rec[d$edlvdfr == "5"] <- "Brevet +"
d$edlvdfr_rec[d$edlvdfr == "6"] <- "Brevet +"
d$edlvdfr_rec[d$edlvdfr == "7"] <- "Brevet +"
d$edlvdfr_rec[d$edlvdfr == "8"] <- "Brevet +"
d$edlvdfr_rec[d$edlvdfr == "9"] <- "Bac ou equiv"
d$edlvdfr_rec[d$edlvdfr == "10"] <- "Bac ou equiv"
d$edlvdfr_rec[d$edlvdfr == "11"] <- "Bac ou equiv"
d$edlvdfr_rec[d$edlvdfr == "12"] <- "Bac +"
d$edlvdfr_rec[d$edlvdfr == "13"] <- "Bac +"
d$edlvdfr_rec[d$edlvdfr == "14"] <- "Bac +"
d$edlvdfr_rec[d$edlvdfr == "15"] <- "Bac +"
d$edlvdfr_rec[d$edlvdfr == "16"] <- "Bac +"
d$edlvdfr_rec[d$edlvdfr == "17"] <- "Bac +"
d$edlvdfr_rec[d$edlvdfr == "18"] <- "Bac +"
d$edlvdfr_rec[d$edlvdfr == "19"] <- "Bac + 5 ou plus"
d$edlvdfr_rec[d$edlvdfr == "20"] <- "Bac + 5 ou plus"
d$edlvdfr_rec[d$edlvdfr == "21"] <- "Bac + 5 ou plus"
d$edlvdfr_rec[d$edlvdfr == "22"] <- "Bac + 5 ou plus"
d$edlvdfr_rec[d$edlvdfr == "23"] <- "Bac + 5 ou plus"
d$edlvdfr_rec[d$edlvdfr == "24"] <- "Bac + 5 ou plus"
d$edlvdfr_rec[d$edlvdfr == "25"] <- "Bac + 5 ou plus"
d$edlvdfr_rec[d$edlvdfr == "26"] <- "Bac + 5 ou plus"
d$edlvdfr_rec[d$edlvdfr == "5555"] <- NA
d$edlvdfr_rec[d$edlvdfr == "7777"] <- NA
d$edlvdfr_rec[d$edlvdfr == "8888"] <- NA

d$edlvdfr_rec_fac <- as.factor(d$edlvdfr_rec)
d$edlvdfr_rec_fac <- factor(d$edlvdfr_rec, levels = c("3e ou -", "Brevet +", "Bac ou equiv", "Bac +","Bac + 5 ou plus"))



#### Rec cultural threat en d$imueclt_rec ####

d$imueclt_rec <- d$imueclt

d$imueclt_rec[d$imueclt <= "5"] <- 0
d$imueclt_rec[d$imueclt > "5"] <- 1
d$imbgeco_rec[d$imbgeco == "77"] <- NA
d$imbgeco_rec[d$imbgeco == "88"] <- NA

Tableau

cprop(table(d$imueclt_rec, d$edlvdfr_rec_fac))
##        
##         3e ou - Brevet + Bac ou equiv Bac + Bac + 5 ou plus All  
##   0      74.1    66.6     61.6         50.2  38.9            57.4
##   1      25.9    33.4     38.4         49.8  61.1            42.6
##   Total 100.0   100.0    100.0        100.0 100.0           100.0
3e ou - Brevet + Bac ou equiv Bac + Bac + 5 ou plus All
0 74.1 66.6 61.6 50.2 38.9 57.4
1 25.9 33.4 38.4 49.8 61.1 42.6
Total 100.0 100.0 100.0 100.0 100.0 100.0

Lecture : 61.1% des individus ayant atteint un diplôme équivalent ou supérieur à Bac + 5 considèrent que la culture française est enrichie par la présence de personnes d’autres pays viennent vivre en France. Il en est de même pour 25.9% des individus n’ayant pas le brevet.