Discussion :

[jlp65]

Bonjour,
je souhaiterais renommer des variables d'une dataframe dont le nom est paramétré (par l'année).
Sans paramètre, ça donnerait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
library(dplyr)
library(glue)
New <- rename.vars(table2020, 
                         from =c('APE','CJ','SIREN'), 
                         to=c('APE_new','CJ_new','siren'))

et cela fonctionne. Pour paramétrer, j'utilise le package glue (qui fonctionne dans d'autres contextes mais là, non !)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
annee <- 2020
New <- rename.vars(glue("table{annee})", 
                         from =c('APE','CJ','SIREN'), 
                         to=c('APE_new','CJ_new','siren'))

[jlp65]

En remplaçant "glue" par "eval(parse(text=sprintf("table%4d",annee)))", ça fonctionne, mais c'est un peu lourd !!

[mgdondon]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
> table2020 <- data.frame(APE = c(1,1,1),
+                         CJ = c(1,1,1),
+                         SIREN = c(1,1,1))
>

• Plus lisible que sprintf("table%4d",annee) je propose paste0("table",annee) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
> annee <- 2020
> gdata::rename.vars(eval(parse(text=paste0("table",annee))), 
+                    from =c('APE','CJ','SIREN'), 
+                    to=c('APE_new','CJ_new','siren'))
 
Changing in eval(parse(text = paste0("table", annee)))                          
From: APE     CJ     SIREN
To:   APE_new CJ_new siren
 
  APE_new CJ_new siren
1       1      1     1
2       1      1     1
3       1      1     1

• Pour déboguer votre code avec le package glue :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
> annee <- 2020
> glue::glue("table{annee}")
table2020
> get(glue::glue("table{annee}"))
  APE CJ SIREN
1   1  1     1
2   1  1     1
3   1  1     1

ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
> annee <- 2020
> gdata::rename.vars(get(glue::glue("table{annee}")), 
+                    from =c('APE','CJ','SIREN'), 
+                    to=c('APE_new','CJ_new','siren'))
 
Changing in get(glue::glue("table{annee}"))                          
From: APE     CJ     SIREN
To:   APE_new CJ_new siren
 
  APE_new CJ_new siren
1       1      1     1
2       1      1     1
3       1      1     1

Cordialement,

[jlp65]

Merci