R-使用查找表替换列名，如果查找表包含旧列名称

Question

我有一个看起来像这样的数据框架：

test <- data.frame("PLOT.ID" = c(1,2,3),
                "Diameter" = c(1,2,3),
                "tag_id" = c(1,2,3),
                "COL_NA" = c(1,2,3))

我还有一个我想更改的旧列名称的查找表：

lookup <- data.frame(old = c("PLOT.ID", "Diameter"), 
                     new = c("plot_id", "diam"))

我如何使用查找表仅替换test中出现的CC_1中的列名，并以它们为单位？

到目前为止，我的方法删除了未出现在lookup$old中的列名，并用空白代替它们：

test_new <- setNames(test, lookup$new[match(names(test), lookup$old)])

Answer 1

您可以从plyr软件包中使用mapvalues函数：

test_new <- test
colnames(test_new) <- plyr::mapvalues(colnames(test),
    as.character(lookup$old), 
    as.character(lookup$new))
> test_new
  plot_id diam tag_id COL_NA
1       1    1      1      1
2       2    2      2      2
3       3    3      3      3