переименовать столбцы данных

Question

У меня есть один фрейм данных, который в основном выглядит следующим образом (содержит данные):

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

У меня есть еще один фрейм данных, который содержит исходные имена столбцов и замену для каждого

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))

Answer 1

Вот одна строка в базе R с использованием match,

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

Answer 2

Мы можем использовать rename_at

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