API tools faq
paste
Advertisement
Stalinetchoupi

code r memoire

Stalinetchoupi
Dec 3rd, 2024 (edited)
90
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
R 17.35 KB | Source Code | 0 0
raw download clone embed print report
  1. library("questionr")
  2. library("tidyverse")
  3.  
  4. # importer base de données ----
  5.  
  6. barometre_opinion <- read.csv2("C:/Users/StalineTchoupi/Documents/Socio Quant/Analyse memoire/data/barometre2022_diff.csv")
  7.  
  8. # Maintenant on va recoder les variables lol ----
  9.  
  10. barometre_opinion$sexe <- factor(barometre_opinion$sdsexe)
  11. barometre_opinion$age <- factor(barometre_opinion$sdagetr)
  12. barometre_opinion$pcs <- factor(barometre_opinion$sdpcs10)
  13. barometre_opinion$diplome <- factor(barometre_opinion$sddipl_det)
  14. barometre_opinion$politique <- factor (barometre_opinion$sdpol)
  15. barometre_opinion$preoccupechomage <- factor(barometre_opinion$og04_6)
  16. barometre_opinion$preoccupepauvrete <- factor(barometre_opinion$og04_3)
  17. barometre_opinion$integresociete <- factor(barometre_opinion$cs05)
  18. barometre_opinion$troptravailleurimmigre <- factor(barometre_opinion$og08_1)
  19. barometre_opinion$preocupeinsecurite <- factor(barometre_opinion$og04_4)
  20. barometre_opinion$merite_social <- factor(barometre_opinion$og09)
  21. barometre_opinion$evolution_inegalite <- factor(barometre_opinion$in03)
  22. barometre_opinion$inegalite_repandu <- factor(barometre_opinion$in04)
  23. barometre_opinion$france_injuste_juste <- factor(barometre_opinion$in01)
  24.  
  25. # recodage à l'aide du dico ----
  26.  
  27. barometre_opinion$sexe <- fct_collapse(barometre_opinion$sexe,
  28.                                        "Homme"="1",
  29.                                        "Femme"="2")
  30. barometre_opinion$age <- fct_collapse(barometre_opinion$age,
  31.                                       "18 - 24 ans" = "1",
  32.                                       "25 - 34 ans" = "2",
  33.                                       "35 - 49 ans" = "3",
  34.                                       "50 - 64 ans" = "4",
  35.                                       "65 ans et plus" = "5"
  36. )
  37.  
  38. barometre_opinion$pcs <- fct_collapse(barometre_opinion$pcs,
  39.                                       "Agriculteur.trice"="1",
  40.                                       "artisan.e ou commerçant"="2",
  41.                                       "Profession libérale,cadre sup"="3",
  42.                                       "Profession intermediaire"="4",
  43.                                       "Employé.e"="5",
  44.                                       "Ouvrier.ere"="6",
  45.                                       "Chômeure.euse"="7",
  46.                                       "Retraité"="8",
  47.                                       "Foyer"="9",
  48.                                       "Autre inactif"="10")
  49.  
  50. barometre_opinion$preoccupechomage <- fct_collapse   (barometre_opinion$preoccupechomage,
  51.  "Beaucoup"="1",
  52.  "Assez"="2",
  53.  "Peu"="3",
  54.  "Pas du tout"="4",
  55.  "NSP"="5")
  56.  
  57. barometre_opinion$diplome <- fct_collapse(barometre_opinion$diplome,
  58.                                           "Aucun diplome"="1",
  59.                                           "Certificat etude primaire"="2",
  60.                                           "brevet,bepc"="3",
  61.                                           "CAP, BEP"="4",
  62.                                           "Bac pro"="5",
  63.                                           "Bac techno"="6",
  64.                                           "Bac general"="7",
  65.                                           "Bac +2"="8",
  66.                                           "Diplome sup"="9",
  67.                                           "Autre situation"="10",
  68.                                           "NSP"="11")
  69.  
  70.  
  71. barometre_opinion$preoccupepauvrete <- fct_collapse(barometre_opinion$preoccupepauvrete,
  72.                                       "Beaucoup"="1",
  73.                                       "Assez"="2",
  74.                                       "Peu"="3",
  75.                                       "Pas du tout"="4",
  76.                                       "NSP"="5")
  77.  
  78.  
  79. barometre_opinion$politique <- fct_collapse(barometre_opinion$politique,
  80.                                             "Très à gauche" = "1",
  81.                                             "Gauche radicale" = "2",
  82.                                             "Gauche modérée" = "3",
  83.                                             "Centre-gauche" = "4",
  84.                                             "Centre (libéral-modéré)" = "5",
  85.                                             "Centre-droit" = "6",
  86.                                             "Droite modérée" = "7",
  87.                                             "Droite dure" = "8",
  88.                                             "Droite radicale" = "9",
  89.                                             "Extrême droite" = "10",
  90.                                             "Extrême droite radicale" = "11",
  91.                                             "NSP" = "12",
  92.                                             "Ne se classe pas sur cette échelle" = "13"
  93. )
  94.  
  95. barometre_opinion$integresociete <- fct_collapse(barometre_opinion$integresociete,
  96.                                               "Très bien intégré.e" = "1",
  97.                                               "Assez bien intégré.e" = "2",
  98.                                               "Pas bien intégré.e" = "3",
  99.                                               "Pas intégré.e du tout" = "4",
  100.                                               "(NSP)" = "5"
  101. )
  102.  
  103. barometre_opinion$troptravailleurimmigre <- fct_collapse(barometre_opinion$troptravailleurimmigre, "Tout à fait d'accord" = "1",
  104.                                              "Plutôt d'accord" = "2",
  105.                                             "Plutôt pas d'accord" = "3",
  106.                                             "Pas du tout d'accord" = "4",
  107.                                             "(NSP)" = "5"
  108. )
  109.  
  110. barometre_opinion$preocupeinsecurite <- fct_collapse(barometre_opinion$preocupeinsecurite,
  111.                                                 "Beaucoup" = "1",
  112.                                                 "Assez" = "2",
  113.                                                 "Peu" = "3",
  114.                                                 "Pas du tout" = "4",
  115.                                                 "(NSP)" = "5"
  116. )
  117.  
  118. barometre_opinion$merite_social <- fct_collapse(barometre_opinion$merite_social,
  119.                                 "Le mérite individuel" = "1",
  120.                                 "Le hasard des circonstances" = "2",
  121.                                 "Le milieu social de naissance" = "3",
  122.                                 "Les trois à parts égales" = "4",
  123.                                 "(NSP)" = "5"
  124. )
  125.  
  126. barometre_opinion$evolution_inegalite <- fct_collapse(barometre_opinion$evolution_inegalite,
  127.                                             "Vont plutôt augmenter" = "1",
  128.                                             "Vont plutôt diminuer" = "2",
  129.                                             "Resteront stables" = "3",
  130.                                             "(NSP)" = "4"
  131. )
  132.  
  133. barometre_opinion$inegalite_repandu <- fct_collapse(barometre_opinion$inegalite_repandu,
  134.                       "Les inégalités de revenus" = "1",
  135.                       "Les inégalités de logement" = "2",
  136.                       "Les inégalités liées à l'héritage familial" = "3",
  137.                       "Les inégalités par rapport au type d'emploi" = "4",
  138.                       "Les inégalités dans les études scolaires" = "5",
  139.                       "Les inégalités d'accès aux soins" = "6",
  140.               "Les inégalités par rapport au fait d'avoir un emploi" = "7",
  141.                   "Les inégalités liées à l'origine ethnique" = "8",
  142.                   "Les inégalités entre les femmes et les hommes" = "9",
  143.                   "(NSP)" = "10"
  144. )
  145.  
  146. barometre_opinion$france_injuste_juste <- fct_collapse(barometre_opinion$france_injuste_juste,
  147.                                           "Plutôt juste" = "1",
  148.                                           "Plutôt injuste" = "2",
  149.                                           "(NSP)" = "3"
  150. )
  151.  
  152. # Tri croisé pour analyser ----
  153. rprop(table(barometre_opinion$pcs, barometre_opinion$preoccupepauvrete, useNA = "ifany"))
  154.  
  155. rprop(table(barometre_opinion$pcs, barometre_opinion$sexe, useNA = "ifany"))
  156.  
  157. rprop(table(barometre_opinion$preoccupepauvrete, barometre_opinion$integresociete, useNA = "ifany")*100,1)
  158.  
  159. rprop(table(barometre_opinion$politique, barometre_opinion$troptravailleurimmigre, useNA = "ifany")*100,1)
  160.  
  161. rprop(table(barometre_opinion$politique, barometre_opinion$preocupeinsecurite, useNA = "ifany")*100,1)
  162.  
  163. rprop(table(barometre_opinion$politique, barometre_opinion$merite_social, useNA = "ifany")*100,1)
  164.  
  165. rprop(table(barometre_opinion$sexe, barometre_opinion$inegalite_repandu, useNA = "ifany")*100,1)
  166.  
  167. addmargins(table(barometre_opinion$preoccupechomage, barometre_opinion$pcs, useNA = "ifany"))
  168.  
  169. addmargins(table(barometre_opinion$politique, barometre_opinion$diplome, useNA = "ifany"))library("questionr")
  170. library("tidyverse")
  171.  
  172. # importer base de données ----
  173.  
  174. barometre_opinion <- read.csv2("C:/Users/StalineTchoupi/Documents/Socio Quant/Analyse memoire/data/barometre2022_diff.csv")
  175.  
  176. # Maintenant on va recoder les variables lol ----
  177.  
  178. barometre_opinion$sexe <- factor(barometre_opinion$sdsexe)
  179. barometre_opinion$age <- factor(barometre_opinion$sdagetr)
  180. barometre_opinion$pcs <- factor(barometre_opinion$sdpcs10)
  181. barometre_opinion$diplome <- factor(barometre_opinion$sddipl_det)
  182. barometre_opinion$politique <- factor (barometre_opinion$sdpol)
  183. barometre_opinion$preoccupechomage <- factor(barometre_opinion$og04_6)
  184. barometre_opinion$preoccupepauvrete <- factor(barometre_opinion$og04_3)
  185. barometre_opinion$integresociete <- factor(barometre_opinion$cs05)
  186. barometre_opinion$troptravailleurimmigre <- factor(barometre_opinion$og08_1)
  187. barometre_opinion$preocupeinsecurite <- factor(barometre_opinion$og04_4)
  188. barometre_opinion$merite_social <- factor(barometre_opinion$og09)
  189. barometre_opinion$evolution_inegalite <- factor(barometre_opinion$in03)
  190. barometre_opinion$inegalite_repandu <- factor(barometre_opinion$in04)
  191. barometre_opinion$france_injuste_juste <- factor(barometre_opinion$in01)
  192.  
  193. # recodage à l'aide du dico ----
  194.  
  195. barometre_opinion$sexe <- fct_collapse(barometre_opinion$sexe,
  196.                                        "Homme"="1",
  197.                                        "Femme"="2")
  198. barometre_opinion$age <- fct_collapse(barometre_opinion$age,
  199.                                       "18 - 24 ans" = "1",
  200.                                       "25 - 34 ans" = "2",
  201.                                       "35 - 49 ans" = "3",
  202.                                       "50 - 64 ans" = "4",
  203.                                       "65 ans et plus" = "5"
  204. )
  205.  
  206. barometre_opinion$pcs <- fct_collapse(barometre_opinion$pcs,
  207.                                       "Agriculteur.trice"="1",
  208.                                       "artisan.e ou commerçant"="2",
  209.                                       "Profession libérale,cadre sup"="3",
  210.                                       "Profession intermediaire"="4",
  211.                                       "Employé.e"="5",
  212.                                       "Ouvrier.ere"="6",
  213.                                       "Chômeure.euse"="7",
  214.                                       "Retraité"="8",
  215.                                       "Foyer"="9",
  216.                                       "Autre inactif"="10")
  217.  
  218. barometre_opinion$preoccupechomage <- fct_collapse   (barometre_opinion$preoccupechomage,
  219.  "Beaucoup"="1",
  220.  "Assez"="2",
  221.  "Peu"="3",
  222.  "Pas du tout"="4",
  223.  "NSP"="5")
  224.  
  225. barometre_opinion$diplome <- fct_collapse(barometre_opinion$diplome,
  226.                                           "Aucun diplome"="1",
  227.                                           "Certificat etude primaire"="2",
  228.                                           "brevet,bepc"="3",
  229.                                           "CAP, BEP"="4",
  230.                                           "Bac pro"="5",
  231.                                           "Bac techno"="6",
  232.                                           "Bac general"="7",
  233.                                           "Bac +2"="8",
  234.                                           "Diplome sup"="9",
  235.                                           "Autre situation"="10",
  236.                                           "NSP"="11")
  237.  
  238. barometre_opinion$preoccupepauvrete <- fct_collapse(barometre_opinion$preoccupepauvrete,
  239.                                       "Beaucoup"="1",
  240.                                       "Assez"="2",
  241.                                       "Peu"="3",
  242.                                       "Pas du tout"="4",
  243.                                       "NSP"="5")
  244.  
  245. barometre_opinion$politique <- fct_collapse(barometre_opinion$politique,
  246.                                             "Très à gauche" = "1",
  247.                                             "Gauche radicale" = "2",
  248.                                             "Gauche modérée" = "3",
  249.                                             "Centre-gauche" = "4",
  250.                                             "Centre (libéral-modéré)" = "5",
  251.                                             "Centre-droit" = "6",
  252.                                             "Droite modérée" = "7",
  253.                                             "Droite dure" = "8",
  254.                                             "Droite radicale" = "9",
  255.                                             "Extrême droite" = "10",
  256.                                             "Extrême droite radicale" = "11",
  257.                                             "NSP" = "12",
  258.                                             "Ne se classe pas sur cette échelle" = "13"
  259. )
  260. barometre_opinion$integresociete <- fct_collapse(barometre_opinion$integresociete,
  261.                                               "Très bien intégré.e" = "1",
  262.                                               "Assez bien intégré.e" = "2",
  263.                                               "Pas bien intégré.e" = "3",
  264.                                               "Pas intégré.e du tout" = "4",
  265.                                               "(NSP)" = "5"
  266. )
  267.  
  268. barometre_opinion$troptravailleurimmigre <- fct_collapse(barometre_opinion$troptravailleurimmigre, "Tout à fait d'accord" = "1",
  269.                                              "Plutôt d'accord" = "2",
  270.                                             "Plutôt pas d'accord" = "3",
  271.                                             "Pas du tout d'accord" = "4",
  272.                                             "(NSP)" = "5"
  273. )
  274.  
  275. barometre_opinion$preocupeinsecurite <- fct_collapse(barometre_opinion$preocupeinsecurite,
  276.                                                 "Beaucoup" = "1",
  277.                                                 "Assez" = "2",
  278.                                                 "Peu" = "3",
  279.                                                 "Pas du tout" = "4",
  280.                                                 "(NSP)" = "5"
  281. )
  282.  
  283. barometre_opinion$merite_social <- fct_collapse(barometre_opinion$merite_social,
  284.                                 "Le mérite individuel" = "1",
  285.                                 "Le hasard des circonstances" = "2",
  286.                                 "Le milieu social de naissance" = "3",
  287.                                 "Les trois à parts égales" = "4",
  288.                                 "(NSP)" = "5"
  289. )
  290.  
  291. barometre_opinion$evolution_inegalite <- fct_collapse(barometre_opinion$evolution_inegalite,
  292.                                             "Vont plutôt augmenter" = "1",
  293.                                             "Vont plutôt diminuer" = "2",
  294.                                             "Resteront stables" = "3",
  295.                                             "(NSP)" = "4"
  296. )
  297.  
  298. barometre_opinion$inegalite_repandu <- fct_collapse(barometre_opinion$inegalite_repandu,
  299.                       "Les inégalités de revenus" = "1",
  300.                       "Les inégalités de logement" = "2",
  301.                       "Les inégalités liées à l'héritage familial" = "3",
  302.                       "Les inégalités par rapport au type d'emploi" = "4",
  303.                       "Les inégalités dans les études scolaires" = "5",
  304.                       "Les inégalités d'accès aux soins" = "6",
  305.               "Les inégalités par rapport au fait d'avoir un emploi" = "7",
  306.                   "Les inégalités liées à l'origine ethnique" = "8",
  307.                   "Les inégalités entre les femmes et les hommes" = "9",
  308.                   "(NSP)" = "10"
  309. )
  310.  
  311. barometre_opinion$france_injuste_juste <- fct_collapse(barometre_opinion$france_injuste_juste,
  312.                                           "Plutôt juste" = "1",
  313.                                           "Plutôt injuste" = "2",
  314.                                           "(NSP)" = "3"
  315. )
  316.  
  317. # Tri croisé pour analyser ----
  318. rprop(table(barometre_opinion$pcs, barometre_opinion$preoccupepauvrete, useNA = "ifany"))
  319.  
  320. rprop(table(barometre_opinion$pcs, barometre_opinion$sexe, useNA = "ifany"))
  321.  
  322. rprop(table(barometre_opinion$preoccupepauvrete, barometre_opinion$integresociete, useNA = "ifany")*100,1)
  323.  
  324. rprop(table(barometre_opinion$politique, barometre_opinion$troptravailleurimmigre, useNA = "ifany")*100,1)
  325.  
  326. rprop(table(barometre_opinion$politique, barometre_opinion$preocupeinsecurite, useNA = "ifany")*100,1)
  327.  
  328. rprop(table(barometre_opinion$politique, barometre_opinion$merite_social, useNA = "ifany")*100,1)
  329.  
  330. rprop(table(barometre_opinion$sexe, barometre_opinion$inegalite_repandu, useNA = "ifany")*100,1)
  331.  
  332. addmargins(table(barometre_opinion$preoccupechomage, barometre_opinion$pcs, useNA = "ifany"))
  333.  
  334. addmargins(table(barometre_opinion$politique, barometre_opinion$diplome, useNA = "ifany"))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!