Respuestas:
La versión 0.3 de dplyr agregó una nueva rename()
función que funciona igual que plyr::rename()
.
df <- rename(df, new_name = old_name)
dplyr::rename(iris, petal_length = Petal.Length)
.
iris <- dplyr::rename(iris, petal_length = Petal.Length)
y rename () no maneja nombres de variables con espacios, por ejemplo, dplyr::rename(iris, petal_length = "petal length")
produce un error.
setNames()
si está reemplazando los nombres de las columnas al por mayor:df %>% mutate(foo = 1 +2) %>% setNames(c("blah", "blu", "bar"))
La próxima versión de dplyr admitirá una versión mejorada de select que también incorpora el cambio de nombre:
> 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
se exporta (o debería ser)
plyr
la función de cambio de nombre usa "old"="new"
mientras que dplyr
usa new=old
que la mantiene consistente con el resto de las funciones dplyr. Personalmente, no lo considero un problema: te acostumbras rápidamente a las cosas nuevas, especialmente cuando significa una aceleración significativa en el procesamiento de tus datos.
select
. No estoy seguro de que tengamos algo que diga seleccionar todas las variables y, por cierto, cambiar el nombre de esta columna.
select
en que se comporta realmente? Pondría en votación una dplyr
manera fácil de mantener todas las variables y simplemente cambiar el nombre de una o dos. :) Por ahora seguiré cargando plyr
y usando rename
.
mtcars %>% select(matches(".*"),disp2=disp)
. Me encantaría una solución más parsimoniosa, pero esto funciona y conserva todas las columnas (aunque no su orden). disp
no se duplica.
De hecho, puede utilizar plyr
la rename
función de 'como parte de las dplyr
cadenas. Creo que cada función que a) toma a data.frame
como primer argumento yb) devuelve a data.frame
funciona para el encadenamiento. Aquí hay un ejemplo:
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
ACTUALIZACIÓN: La versión actual de dplyr
admite el cambio de nombre directamente como parte de la select
función (consulte la publicación de Romain Francois más arriba). Sin embargo, la afirmación general sobre el uso de funciones que no son dplyr como parte de dplyr
cadenas sigue siendo válida y rename
es un ejemplo interesante.
No aparece como una función en dplyr (todavía): http://cran.rstudio.org/web/packages/dplyr/dplyr.pdf
La función siguiente funciona (casi) igual si no desea cargar tanto plyr como 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
Editar: El comentario de Romain produce lo siguiente (tenga en cuenta que la función de cambios requiere 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. pero bastante dramático si se trata de datos importantes. chequedplyr:::changes(mtcars, dat)
Aunque no es exactamente un cambio de nombre, dplyr::select_all()
se puede utilizar para cambiar el formato de los nombres de las columnas. Este ejemplo reemplaza espacios y puntos con un guión bajo y convierte todo a minúsculas:
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
Intenté usar dplyr :: rename y me sale un error:
occ_5d <- dplyr::rename(occ_5d, rowname='code_5d')
Error: Unknown column `code_5d`
Call `rlang::last_error()` to see a backtrace
En su lugar, utilicé la función base R que resulta ser bastante simple y efectiva:
names(occ_5d)[1] = "code_5d"
rename(TheDataFrame,OldVarName=NewVarName)
pero consigoError: Unknown variables: NewVarName.
y no entiendo por qué.