Remplacement pour “renommer” dans dplyr
J’aime renommer la fonction de renommage de plyr. J’ai récemment commencé à utiliser dplyr et je me demandais s’il était facile de renommer des variables en utilisant une fonction de dplyr, aussi facile à utiliser que de rename plyr?
- Regrouper par plusieurs colonnes dans dplyr, en utilisant une entrée de vecteur de chaîne
- data.table vs dplyr: peut-on faire quelque chose de bien, que l’autre ne peut pas ou fait mal?
La version 0.3 de dplyr a ajouté une nouvelle fonction rename() qui fonctionne comme plyr::rename() .
df <- rename(df, new_name = old_name)
La prochaine version de dplyr supportera une version améliorée de select:
> mtcars2 <- select( mtcars, disp2 = disp ) > head( mtcars2 ) disp2 Mazda RX4 160 Mazda RX4 Wag 160 Datsun 710 108 Hornet 4 Drive 258 Hornet Sportabout 360 Valiant 225 > changes( mtcars, mtcars2 ) Changed variables: old new disp 0x105500400 disp2 0x105500400 Changed atsortingbutes: old new names 0x106d2cf50 0x106d28a98
Vous pouvez réellement utiliser la fonction de dplyr de dplyr dans le cadre de chaînes dplyr . Je pense que chaque fonction a) prend un data.frame comme premier argument et b) renvoie un data.frame fonctionne pour le chaînage. Voici un exemple:
library('plyr') library('dplyr') DF = data.frame(var=1:5) DF %>% # `rename` from `plyr` rename(c('var'='x')) %>% # `mutate` from `dplyr` (note order in which libraries are loaded) mutate(x.sq=x^2) # x x.sq # 1 1 1 # 2 2 4 # 3 3 9 # 4 4 16 # 5 5 25
UPDATE: La version actuelle de dplyr prend en charge le changement de nom directement dans le cadre de la fonction select (voir l’article de Romain Francois ci-dessus). L’énoncé général sur l’utilisation des fonctions non-dplyr dans le cadre des chaînes dplyr est toujours valable et rename est un exemple intéressant.
Il n’est pas répertorié comme une fonction dans dplyr (encore): http://cran.rstudio.org/web/packages/dplyr/dplyr.pdf
La fonction ci-dessous fonctionne (presque) de la même manière si vous ne voulez pas charger à la fois plyr et dplyr
rename <- function(dat, oldnames, newnames) { datnames <- colnames(dat) datnames[which(datnames %in% oldnames)] <- newnames colnames(dat) <- datnames dat } dat <- rename(mtcars,c("mpg","cyl"), c("mympg","mycyl")) head(dat) mympg mycyl disp hp drat wt qsec vs am gear carb Mazda RX4 21.0 6 160 110 3.90 2.620 16.46 0 1 4 4 Mazda RX4 Wag 21.0 6 160 110 3.90 2.875 17.02 0 1 4 4 Datsun 710 22.8 4 108 93 3.85 2.320 18.61 1 1 4 1 Hornet 4 Drive 21.4 6 258 110 3.08 3.215 19.44 1 0 3 1 Hornet Sportabout 18.7 8 360 175 3.15 3.440 17.02 0 0 3 2 Valiant 18.1 6 225 105 2.76 3.460 20.22 1 0 3 1
Edit: Le commentaire de Romain produit ce qui suit (notez que la fonction changes nécessite dplyr .1.1)
> dplyr:::changes(mtcars, dat) Changed variables: old new disp 0x108b4b0e0 0x108b4e370 hp 0x108b4b210 0x108b4e4a0 drat 0x108b4b340 0x108b4e5d0 wt 0x108b4b470 0x108b4e700 qsec 0x108b4b5a0 0x108b4e830 vs 0x108b4b6d0 0x108b4e960 am 0x108b4b800 0x108b4ea90 gear 0x108b4b930 0x108b4ebc0 carb 0x108b4ba60 0x108b4ecf0 mpg 0x1033ee7c0 cyl 0x10331d3d0 mympg 0x108b4e110 mycyl 0x108b4e240 Changed atsortingbutes: old new names 0x10c100558 0x10c2ea3f0 row.names 0x108b4bb90 0x108b4ee20 class 0x103bd8988 0x103bd8f58
Bien que ne renommant pas exactement, dplyr::select_all() peut être utilisé pour reformater les noms de colonnes. Cet exemple remplace les espaces et les points par un trait de soulignement et convertit tout en minuscule:
iris %>% select_all(~gsub("\\s+|\\.", "_", .)) %>% select_all(tolower) %>% head(2) sepal_length sepal_width petal_length petal_width species 1 5.1 3.5 1.4 0.2 setosa 2 4.9 3.0 1.4 0.2 setosa