カラム名の文字ベクトルと置換えのある複数のカラムの名前を変更

Question

これは、ベースRまたはsetnamesin data.tableまたはrename_の中でdplyr 0.5で簡単に行うことができますが、 rename_は推奨されていませんので、dplyr 0.6.0でこれを行う簡単な方法が見つかりませんでした。

以下は例です。私はcol.toに対応する値とcol.fromに列名を置き換えたい：

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 

予想される出力：

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 

どのように私はdplyr 0.6.0でrenameかrename_atでこれを行うことができますか？

Answer 1

これはそれに近づくための正しい方法であるかどうかは知りませんが、

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 

はまた、私は将来に住んでいることに注意してください：

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