R 使用键更改列名

我有一个带有3个字母键列标题的数据框，如下所示：

MFB   MBB   WBB
 X     X     X 

Men's Football   Men's Basketball   Women's Basketball
       X                X                   X 

和另一个具有全名的数据框：

Key   Descr
MFB   Men's Football
MBB   Men's Basketball
WBB   Women's Basketball

我的问题是，如何重命名列，使原始表看起来像：

MFB   MBB   WBB
 X     X     X 

Men's Football   Men's Basketball   Women's Basketball
       X                X                   X 

我想重命名大约80个列标题，因此不需要手动重命名每个列。我猜可以使用for循环或'purrr'库中的'map2'函数来完成，但我不确定从何处开始。

类似于

为了让你的问题完全重复，让我们从

library(tidyverse)
sports <- tibble(MFB=c("bears", "texans", "packers"), 
    MBB=c("bulls", "heat", "bucks"), 
    WBB=c("dream", "sky", "sun"))

pairs <- tibble(Key=c("MFB", "MBB", "WBB"), 
    Descr=c("Men's Football", "Men's Basketball", "Women's Basketball"))

库（tidyverse）
体育