匹配旧列名并替换为来自另一个数据帧的新列名（+ 交互）

Question

我有一个数据框 (df.subset)，它混合了原始变量和相互之间的一些交互作用 (cfr.labs)。我想通过匹配 old 名称并用 new 替换它们来使用外部数据框 (df_names) 重命名列（警告：交互也必须重命名！）。

set.seed(12345)

x1<- rnorm(100, 1000, 10)
x2<- rnorm(100, 200,1)
x3<- rnorm(100, 10000,400)
x4<- rnorm(100, 2405,28)

# starting dataframe
df<-data.frame(cbind(x1,x2,x3,x4))

# i'm interested only in the variables and interactions contained in labs
labs<-c("x1", "x2", "x3", "x4", "x1*x2", "x1*x4", "x2*x3")
str(labs)

# all variables + all interactions
res <- cbind(df, do.call(cbind,combn(colnames(df), 2, 
                                        FUN= function(x) list(df[x[1]]*df[x[2]]))))

colnames(res)[-(seq_len(ncol(df)))] <-  combn(colnames(df), 2, 
                                               FUN = paste, collapse="*")

res

# final dataset
df.subset <- res[, labs]
df.subset

# use this df for new column names
df_names <- data.frame(old = c("x1","x2","x3","x4","x5")
                       , new = c("tv", "radio", "outdoor", "cinema","something_else"))

df_names

我尝试了mapvalues，但没有成功

plyr::mapvalues(names(df.subset), from = df_names$old, to = df_names$new)

输出应该如下：

> colnames(df.subset)
[1] "tv"    "radio"    "outdoor"    "cinema"    "tv*radio" "tv*cinema" "radio*outdoor"

任何帮助将不胜感激。

谢谢

Answer 1

我认为一个简单的循环是最简单的方法：

names(df.subset)
#> [1] "x1"    "x2"    "x3"    "x4"    "x1*x2" "x1*x4" "x2*x3"

for(i in seq(nrow(df_names))){
  names(df.subset) <- gsub(df_names$old[i], df_names$new[i], names(df.subset))
}

names(df.subset)
#> [1] "tv"            "radio"         "outdoor"       "cinema"       
#> [5] "tv*radio"      "tv*cinema"     "radio*outdoor"

^{由reprex package (v0.3.0) 于 2020 年 12 月 8 日创建}