Réponses:
dplyr version 0.3 a ajouté une nouvelle rename()
fonction qui fonctionne exactement comme plyr::rename()
.
df <- rename(df, new_name = old_name)
dplyr::rename(iris, petal_length = Petal.Length)
.
iris <- dplyr::rename(iris, petal_length = Petal.Length)
et rename () ne gère pas les noms de variables avec des espaces, par exemple, dplyr::rename(iris, petal_length = "petal length")
produit une erreur.
setNames()
si vous remplacez les noms de colonnes en gros:df %>% mutate(foo = 1 +2) %>% setNames(c("blah", "blu", "bar"))
La prochaine version de dplyr prendra en charge une version améliorée de select qui comprend également le changement de nom:
> 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 attributes:
old new
names 0x106d2cf50 0x106d28a98
changes
est exporté (ou il devrait l'être)
plyr
la fonction de renommage de s utilise "old"="new"
alors que les dplyr
utilisations la new=old
maintiennent cohérente avec le reste des fonctions de dplyr. Personnellement, je ne vois pas cela comme un problème - vous vous habituez rapidement à de nouvelles choses surtout quand cela signifie une accélération significative de votre traitement de données.
select
. Pas sûr que nous ayons quelque chose qui dit de sélectionner toutes les variables et d'ailleurs renommer cette colonne.
select
se comporte réellement? Je voterais pour un dplyr
moyen facile de conserver toutes les variables et d'en renommer une ou deux. :) Pour l'instant, je vais continuer à charger plyr
et à utiliser rename
.
mtcars %>% select(matches(".*"),disp2=disp)
. J'adorerais une solution plus parcimonieuse mais cela fonctionne et préserve toutes les colonnes (mais pas leur ordre). disp
ne se duplique pas.
Vous pouvez en fait utiliser plyr
la rename
fonction de dans le cadre de dplyr
chaînes. Je pense que chaque fonction que a) prend a data.frame
comme premier argument et b) renvoie a 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
MISE À JOUR: La version actuelle de dplyr
prend en charge le renommage directement dans le cadre de la select
fonction (voir l'article de Romain François ci-dessus). La déclaration générale sur l'utilisation de fonctions non-dplyr dans le cadre de dplyr
chaînes est toujours valable et rename
est un exemple intéressant.
Elle n'est pas (encore) répertoriée en tant que fonction dans dplyr: http://cran.rstudio.org/web/packages/dplyr/dplyr.pdf
La fonction ci-dessous fonctionne (presque) la même chose 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 de changements 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 attributes:
old new
names 0x10c100558 0x10c2ea3f0
row.names 0x108b4bb90 0x108b4ee20
class 0x103bd8988 0x103bd8f58
mtcars
etc ... mais assez dramatique si vous traitez avec des données substantielles. checkdplyr:::changes(mtcars, dat)
Bien qu'il ne soit pas exactement renommé, dplyr::select_all()
peut être utilisé pour reformater les noms de colonne. Cet exemple remplace les espaces et les points par un trait de soulignement et convertit tout en minuscules:
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
J'ai essayé d'utiliser dplyr :: rename et j'obtiens une erreur:
occ_5d <- dplyr::rename(occ_5d, rowname='code_5d')
Error: Unknown column `code_5d`
Call `rlang::last_error()` to see a backtrace
J'ai plutôt utilisé la fonction de base R qui s'avère assez simple et efficace:
names(occ_5d)[1] = "code_5d"
rename(TheDataFrame,OldVarName=NewVarName)
mais j'obtiensError: Unknown variables: NewVarName.
et je ne comprends pas pourquoi.