在mutate（）中使用get（）根据向量[重复]中的值添加列

Question

我想为向量的每个元素添加一列。列值将基于某些条件。我在filter()中使用了get()，但在mutate()中不起作用。

下面是一个例子：

df <- read.table(text =
"A   B    C
1     2     3 
4     5     6
7     8     9",
header = TRUE, stringsAsFactors = FALSE)

ID_function = function(var_name){

  df = df%>%
    mutate(get(var_name)=A + B)
}

ID_function("TEST")

Error: unexpected '=' in:
"  df = df%>%
    mutate(get(var_name)="

还有别的方法我可以用吗？

Answer 1

我们可以使用赋值运算符(:=)代替<-，并计算(！！)字符串以在TidyVerse中创建列

library(tidyverse)
ID_function = function(var_name){

  df %>%
       mutate(!!var_name := A + B)
     }

ID_function("TEST")
#    A B C TEST
#1 1 2 3    3
#2 4 5 6    9
#3 7 8 9   15