Risposte:
dplyr versione 0.3 ha aggiunto una nuova rename()
funzione che funziona proprio come 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 () non gestisce i nomi delle variabili con spazi, ad esempio, dplyr::rename(iris, petal_length = "petal length")
produce un errore.
setNames()
se stai sostituendo i nomi delle colonne all'ingrosso:df %>% mutate(foo = 1 +2) %>% setNames(c("blah", "blu", "bar"))
La prossima versione di dplyr supporterà una versione migliorata di select che incorpora anche la ridenominazione:
> 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
viene esportato (o dovrebbe essere)
plyr
la funzione di rinomina usa "old"="new"
mentre dplyr
usa new=old
che la mantiene coerente con il resto delle funzioni dplyr. Personalmente, non lo considero un problema: ci si abitua rapidamente a cose nuove, soprattutto quando ciò significa una notevole velocità nell'elaborazione dei dati.
select
. Non sono sicuro che abbiamo qualcosa che dice seleziona tutte le variabili e, a proposito, rinomina questa colonna.
select
in cui si comporta effettivamente? Voterei per un dplyr
modo semplice per mantenere tutte le variabili e rinominarne solo una o due. :) Per ora continuerò a caricare plyr
e utilizzare rename
.
mtcars %>% select(matches(".*"),disp2=disp)
. Mi piacerebbe una soluzione più parsimoniosa ma funziona e preserva tutte le colonne (anche se non il loro ordine). disp
non viene duplicato.
Puoi effettivamente usare plyr
la rename
funzione di come parte di dplyr
catene. Penso che ogni funzione che a) accetta a data.frame
come primo argomento eb) restituisce a data.frame
funziona per il concatenamento. Ecco un esempio:
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
AGGIORNAMENTO: La versione corrente di dplyr
supporta la ridenominazione direttamente come parte della select
funzione (vedi il post di Romain Francois sopra). L'affermazione generale sull'uso delle funzioni non dplyr come parte di dplyr
catene è ancora valida ed rename
è un esempio interessante.
Non è elencato come una funzione in dplyr (ancora): http://cran.rstudio.org/web/packages/dplyr/dplyr.pdf
La funzione seguente funziona (quasi) allo stesso modo se non si desidera caricare sia plyr che 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
Modifica: il commento di Romain produce quanto segue (nota che la funzione di modifica richiede 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
ecc ... ma abbastanza drammatico se hai a che fare con dati sostanziali. checkdplyr:::changes(mtcars, dat)
Sebbene non sia esattamente rinominato, dplyr::select_all()
può essere utilizzato per riformattare i nomi delle colonne. Questo esempio sostituisce spazi e punti con un trattino basso e converte tutto in minuscolo:
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
Ho provato a utilizzare dplyr :: rename e ricevo un errore:
occ_5d <- dplyr::rename(occ_5d, rowname='code_5d')
Error: Unknown column `code_5d`
Call `rlang::last_error()` to see a backtrace
Ho invece utilizzato la funzione base R che risulta essere abbastanza semplice ed efficace:
names(occ_5d)[1] = "code_5d"
rename(TheDataFrame,OldVarName=NewVarName)
ma ottengoError: Unknown variables: NewVarName.
e non capisco perché.