Discussion :

[jlp65]

Bonjour,
J'ai une table (data.table "source") de 185000 observations
Elle comporte, entre autres, les colonnes code_postal_salarie et complement_no_adresse_salarie (cette dernière étant souvent non renseignée)
Je souhaiterais utiliser une fonction de renommage de colonnes qui prenne en argument les colonnes à renommer (vecteur "OLD") et les nouveaux noms à attribuer aux colonnes (vecteur "NEW").
J'ai donc écrit cette fonction :

Code :

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

1
2
3
4
5
 
renommer_colonnes <- function(table,old,new){
  colnames(table)[colnames(table) %in% old] <- new
  return(table)
}

qui fonctionne correctement, en l'appliquant à la table initiale dont je ne conserve que quelques colonnes (code_postal_salarie,rue_adresse_salarie,id_integral,complement_no_adresse_salarie,code_voie_salarie):

Code :

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

1
2
3
4
5
6
7
8
 
old <- c("code_postal_salarie", "complement_no_adresse_salarie") 
new <- c("code_postal", "compladr")
 
s <- source[,.(code_postal_salarie,rue_adresse_salarie,id_integral,complement_no_adresse_salarie,code_voie_salarie)]
s2 <- renommer_colonnes(s, old, new)
 
head(s2,3)

... mais plus du tout en prenant la table initiale avec toutes ses colonnes

Code :

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

1
2
 
s2 <- renommer_colonnes(source, old, new)

Dans ce dernier cas, il y a une interversion du renommage : tout semble se passer comme si code_postal_salarie était renommé en compladr, et complement_no_adresse_salarie en code_postal

[xavier-Pierre]

bonjour en utilisant la fonction rename ça ne serait pas plus simple et explicite?

Code :

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

1
2
 
s2<- dplyr::rename(s,code_postal = code_postal_salarie, compladr= complement_no_adresse_salarie)

[Hlama]

Hello je penses que rename pourra mieux faire et rendre ton code plus lisible
install.packages('tidyverse')
library(tidyverse)

df<-data.frame(
"code_postal_salarie"=c('2435','8984'),
"complement_no_adresse_salarie"=c("12, paris av. Londrien","56, saint Denis")
)

df<-df %>% rename("code_postal"="code_postal_salarie","compladr"="complement_no_adresse_salarie")