Benennen Sie mehrere Spalten mit Zeichenvektoren für Spaltennamen und Ersetzen um.

Question

Dies ist mit Base R oder setnamesin data.table oder rename_ in dplyr 0.5 einfach. Da rename_ veraltet ist, konnte ich keinen einfachen Weg finden, dies in dplyr 0.6.0 zu tun.

Unten ist ein Beispiel. Ich möchte Spaltennamen in col.from mit entsprechenden Werten in col.to ersetzen:

col.from <- c("wt", "hp", "vs") 
col.to <- c("foo", "bar", "baz") 

df <- mtcars 
head(df, 2) 
#>    mpg cyl disp hp drat wt qsec vs am gear carb 
#> Mazda RX4  21 6 160 110 3.9 2.620 16.46 0 1 4 4 
#> Mazda RX4 Wag 21 6 160 110 3.9 2.875 17.02 0 1 4 4 

Erwartete Ausgabe:

names(df)[match(col.from, names(df))] <- col.to 
head(df, 2) 
#>    mpg cyl disp bar drat foo qsec baz am gear carb 
#> Mazda RX4  21 6 160 110 3.9 2.620 16.46 0 1 4 4 
#> Mazda RX4 Wag 21 6 160 110 3.9 2.875 17.02 0 1 4 4 

Wie kann ich das mit rename oder rename_at in dplyr 0.6.0?

Answer 1

Ich weiß nicht, ob dies der richtige Weg ist, sich ihm zu nähern, aber

library(dplyr) 
df %>% rename_at(vars(col.from), function(x) col.to) %>% head(2) 
#    mpg cyl disp bar drat foo qsec baz am gear carb 
# Mazda RX4  21 6 160 110 3.9 2.620 16.46 0 1 4 4 
# Mazda RX4 Wag 21 6 160 110 3.9 2.875 17.02 0 1 4 4 

Beachten Sie auch, dass ich in Zukunft leben:

# packageVersion("dplyr") 
# # [1] ‘0.7.0’