Respostas:
dplyr versão 0.3 adicionou uma nova rename()
função que funciona exatamente como plyr::rename()
.
df <- rename(df, new_name = old_name)
dplyr::rename(iris, petal_length = Petal.Length)
.
iris <- dplyr::rename(iris, petal_length = Petal.Length)
e rename () não trata nomes de variáveis com espaços, por exemplo, dplyr::rename(iris, petal_length = "petal length")
produz um erro.
setNames()
se estiver substituindo os nomes das colunas no atacado:df %>% mutate(foo = 1 +2) %>% setNames(c("blah", "blu", "bar"))
A próxima versão do dplyr oferecerá suporte a uma versão aprimorada do select que também incorpora a renomeação:
> 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
é exportado (ou deveria ser)
plyr
a função de renomear de usa "old"="new"
enquanto dplyr
usa o new=old
que a mantém consistente com o resto das funções dplyr. Pessoalmente, não penso nisso como um problema - você se acostuma com coisas novas rapidamente, especialmente quando isso significa uma aceleração significativa no processamento de dados.
select
. Não tenho certeza se temos algo que diz: selecione todas as variáveis e, a propósito, renomeie esta coluna.
select
realmente se comporta? Eu votaria por uma dplyr
maneira fácil de manter todas as variáveis e apenas renomear uma ou duas. :) Por enquanto, continuarei carregando plyr
e usando rename
.
mtcars %>% select(matches(".*"),disp2=disp)
. Eu adoraria uma solução mais parcimoniosa, mas isso funciona e preserva todas as colunas (embora não sua ordem). disp
não é duplicado.
Você pode realmente usar plyr
a rename
função de como parte de dplyr
cadeias. Acho que toda função que a) recebe a data.frame
como primeiro argumento eb) retorna a data.frame
funciona para encadeamento. Aqui está um exemplo:
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
ATUALIZAÇÃO: A versão atual do dplyr
suporta renomeação diretamente como parte da select
função (veja a postagem de Romain Francois acima). A declaração geral sobre o uso de funções não-dplyr como parte de dplyr
chains ainda é válida e rename
é um exemplo interessante.
Não está listado como uma função no dplyr (ainda): http://cran.rstudio.org/web/packages/dplyr/dplyr.pdf
A função abaixo funciona (quase) da mesma forma se você não quiser carregar o plyr e o 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: O comentário de Romain produz o seguinte (observe que a função de mudanças requer 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 ... mas bastante dramático se você lidar com dados substanciais. verificardplyr:::changes(mtcars, dat)
Embora não seja exatamente renomear, dplyr::select_all()
pode ser usado para reformatar os nomes das colunas. Este exemplo substitui espaços e pontos por um sublinhado e converte tudo para 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
rename(TheDataFrame,OldVarName=NewVarName)
mas entendoError: Unknown variables: NewVarName.
e não entendo o porquê.