将字符转换为变量名

Question

exec_parties2 是一个包含以下 12 个变量的数据框：

“CE”“DB”“ES”“FC”“FF”“HF”“HR”“JE”“JF”“JR”“SE”“SR”

我想创建一个对每个变量进行排名的循环

这是第一个变量的工作示例：

exec_parties2<-exec_parties2 %>% mutate(CE_T=eval(dense_rank(CE)))

我正在尝试这样的事情：

r<-colnames(exec_parties2)

i=1

for(i in r){

  exec_parties3<-exec_parties2 %>% mutate(eval(r[i])=dense_rank(desc(r[i])))   

}

显然，它不起作用

我知道这是可行的，它应该记录在某个地方。我就是找不到。这类似于 SAS 中的宏（编写代码的程序）。

对这个愚蠢的问题表示歉意，非常感谢您的帮助。

Answer 1

使用当前的for 循环，我们可以在mutate 内进行赋值（:=），方法是评估（!!），同时将字符串列名转换为符号（sym）并评估（@987654326 @)

r <- colnames(exec_parties2)
for(nm in r) {

    exec_parties2 <- exec_parties2 %>% 
                          mutate(!! nm := dense_rank(desc(!! rlang::sym(nm))))
  }  

注意：就像在 cmets 中一样，这可以通过 mutate_at 轻松完成