重命名dataframe的列

我有一个数据框，它基本上看起来包含数据：

t <- data.frame(x1 = 1:5, x2 = 1:5, stingsAsFactors = FALSE)

我们可以在

---

这是一个使用match在R底的一行

---

令人惊叹的谢谢

n <- data.frame(abb = c("x1", "x2"), erf = c("XX1", "XX2"), stringsAsFactors = FALSE)

map2_dfr(n$abb, n$erf, function(x, y) rename(t, !!y := x))

library(dplyr)
t %>%
    rename_at(n$abb, ~ n$erf)

names(t) <- n$erf[match(names(t), n$abb)]
t
#  XX1 XX2
#1   1   1
#2   2   2
#3   3   3
#4   4   4
#5   5   5