Sostituzione di "rinomina" in dplyr


118

Mi piace la funzione di ridenominazione di plyr rename. Recentemente ho iniziato a utilizzare dplyr e mi chiedevo se esiste un modo semplice per rinominare le variabili utilizzando una funzione di dplyr, che è facile da usare come quella di plyr rename?

Risposte:


148

dplyr versione 0.3 ha aggiunto una nuova rename()funzione che funziona proprio come plyr::rename().

df <- rename(df, new_name = old_name)

7
Potresti spiegare la sintassi? È più importante del comando. Sto usando rename(TheDataFrame,OldVarName=NewVarName)ma ottengo Error: Unknown variables: NewVarName.e non capisco perché.
s_a

2
@s_a ho aggiunto la precisazione. Dovrebbe essere visualizzato dopo la revisione.
Ryan

4
In caso di problemi, potrebbe essere utile specificare esplicitamente il pacchetto dplyr::rename(iris, petal_length = Petal.Length).
Boern

2
Due rapide osservazioni: il comando precedente deve essere assegnato al dataframe per avere effetto 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.
Anthony Simon Mielniczuk

2
Puoi usare setNames()se stai sostituendo i nomi delle colonne all'ingrosso:df %>% mutate(foo = 1 +2) %>% setNames(c("blah", "blu", "bar"))
crazybilly

46

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

2
FYI changesviene esportato (o dovrebbe essere)
Hadley

2
Bello. L'unica cosa è che questo significherà un cambiamento nel pensiero da parte dell'utente, poiché plyrla funzione di rinomina usa "old"="new"mentre dplyrusa new=oldche 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.
vergilcw

3
Questa è la caratteristica voluta, da qui la scelta del verbo select. Non sono sicuro che abbiamo qualcosa che dice seleziona tutte le variabili e, a proposito, rinomina questa colonna.
Romain Francois

1
Forse per evitare confusione potresti modificare il tuo post in modo che il codice rifletta il modo selectin cui si comporta effettivamente? Voterei per un dplyrmodo semplice per mantenere tutte le variabili e rinominarne solo una o due. :) Per ora continuerò a caricare plyre utilizzare rename.
vergilcw

2
@RomainFrancois @aaronwolen Puoi ottenere ciò che vuole l'OP mtcars %>% select(matches(".*"),disp2=disp). Mi piacerebbe una soluzione più parsimoniosa ma funziona e preserva tutte le colonne (anche se non il loro ordine). dispnon viene duplicato.
Farnsy

27

Puoi effettivamente usare plyrla renamefunzione di come parte di dplyrcatene. Penso che ogni funzione che a) accetta a data.framecome primo argomento eb) restituisce a data.framefunziona 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 dplyrsupporta la ridenominazione direttamente come parte della selectfunzione (vedi il post di Romain Francois sopra). L'affermazione generale sull'uso delle funzioni non dplyr come parte di dplyrcatene è ancora valida ed renameè un esempio interessante.


5
In questo caso è meglio caricare dplyr dopo plyr. In questo modo vengono utilizzate le funzioni dplyr più veloci quando disponibili e puoi utilizzare mutate anziché dplyr :: mutate
Vincent

Sembra che tu abbia ragione sulla possibilità di utilizzare funzioni non dplyr nel concatenamento. mtcars%.% rename (c ("mpg", "cil"), c ("mympg", "mycyl")) funziona dove rename è la funzione definita nella mia risposta.
Vincent

Ho cambiato l'ordine di caricamento di dplyr e plyr, grazie.
user2503795

Questa è una soluzione alternativa decente, anche se fa emergere un'interessante discussione sulle prestazioni su dati più grandi, che è uno dei principali vantaggi di dplyr. Grazie per il suggerimento!
vergilcw

rinomina funziona per riferimento come setname dal pacchetto
data.table

9

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

3
L'unico problema qui è che i dati vengono copiati. Non è un grosso problema se questo è per giocare, cioè mtcarsecc ... ma abbastanza drammatico se hai a che fare con dati sostanziali. checkdplyr:::changes(mtcars, dat)
Romain Francois

1
Grazie per il commento Romain. C'è un motivo per cui le modifiche non vengono esportate da dplyr? Sembra una funzione abbastanza utile.
Vincent

1
Immagino che Hadley lo veda principalmente come uno strumento di sviluppo per noi.
Romain Francois

1
Sicuramente dovrebbe essere esportato. Potrei aver appena dimenticato
Hadley

2

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

1

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"
Utilizzando il nostro sito, riconosci di aver letto e compreso le nostre Informativa sui cookie e Informativa sulla privacy.
Licensed under cc by-sa 3.0 with attribution required.