如何将数据表中的列属性与带R的查找表中的列值进行匹配

Question

这应该是很容易的事情，但我想不出来。

我有一个包含N列的数据表和一个包含两列的查找表: New.Name和Number。我想用在查找表中找到的按数字匹配的New.Name来重命名数据表中的列。并非所有列名在查找表中都有New.Name。数据表中的数字存储为列属性。因此，我需要将数据表中的列属性与查找表中的Number列中的值进行匹配。

示例：

df <- as.data.frame(matrix(sample(1:20), ncol = 5))
colnames(df) <- c('abc', 'def', 'ghi', 'jkl', 'mno')
for (i in 1:5) attr(df[,i], 'Number') <- i

lookup <- data.frame(Number=c(2,3),New.Name=c('x','y'))

根据上面的例子，将列def和列ghi重命名为x和y的最佳方法是什么？