automatiser création variables avec fonction case_when

Version imprimable

25/04/2023, 22h22
clément_marot

automatiser création variables avec fonction case_when

Bonjour,

Je cherche à automatiser la création d'une nouvelle variable par année. Le code ci-dessous aboutit à la création de la variable pour l'année 2011 ; je voudrais appliquer ce même code pour créer une variable etat2012 à partir des variables rang2012 et poste2012, même chose pour 2013 etc. Quelle solution serait la plus simple ? Merci beaucoup et bonne soirée

d <- d |> mutate(
etat2011 = case_when(
rang2011 == "R1" & poste2011 == "assistant" ~ "etat1",
rang2011 == "R2" & poste2011 == "assistant" ~ "etat2",
rang2011 == "R3" & poste2011 == "assistant" ~ "etat3",
rang2011 == "R1" & poste2011 == "associé" ~ "etat4",
rang2011 == "R2" & poste2011 == "associé" ~ "etat5",
rang2011 == "R3" & poste2011 == "associé" ~ "etat6",
rang2011 == "R1" & poste2011 == "full" ~ "etat7",
rang2011 == "R2" & poste2011 == "full" ~ "etat8",
rang2011 == "R1" & poste2011 == "full" ~ "etat9",
TRUE ~ "Autre")
)

bonjour à tester, il doit avoir peut-être plus simple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
ajout_etat <- function(annee){
  d %>% mutate(
   "etat{annee}" := case_when(
      !! sym(str_c("rang",annee)) == "R1" & !! sym(str_c("poste",annee)) == "assistant" ~ "etat1",
      !! sym(str_c("rang",annee)) == "R2" & !! sym(str_c("poste",annee)) == "assistant" ~ "etat2",
      !! sym(str_c("rang",annee)) == "R3" & !! sym(str_c("poste",annee)) == "assistant" ~ "etat3",
      !! sym(str_c("rang",annee)) == "R1" & !! sym(str_c("poste",annee)) == "associé" ~ "etat4",
      !! sym(str_c("rang",annee)) == "R2" & !! sym(str_c("poste",annee)) == "associé" ~ "etat5",
      !! sym(str_c("rang",annee)) == "R3" & !! sym(str_c("poste",annee)) == "associé" ~ "etat6",
      !! sym(str_c("rang",annee)) == "R1" & !! sym(str_c("poste",annee)) == "full" ~ "etat7",
      !! sym(str_c("rang",annee)) == "R2" & !! sym(str_c("poste",annee)) == "full" ~ "etat8",
      !! sym(str_c("rang",annee)) == "R1" & !! sym(str_c("poste",annee)) == "full" ~ "etat9",
      TRUE ~ "Autre")
  ) %>% select(last_col())
 
}
 
res <- d %>% bind_cols(map(2011:2013,ajout_etat))

26/04/2023, 22h02
clément_marot

Tout fonctionne !

Merci beaucoup, cela fonctionne très bien ! Ne me reste plus qu'à comprendre comment vous avez fait ;o)) Merci encore