R语言DataFrame管道流中函数内操作报错问题排查

原始数据与需求 #

原始DataFrame定义：

df <- data.frame(ID=1:3, col1=1:3, col2=4:6, col3=7:9, col4=10:12, col5=13:15, col6=16:18, col7=19:21)

需要实现的逻辑：

df_new <- df %>% select(ID, c(col1:col5)) %>% mutate(col1=col1/col2, col3=col3/col2, col4=-col4, col5=-col5)

预期结果：

> df_new
  ID col1 col2 col3 col4 col5
1  1 0.25    4 1.75  -10  -13
2  2 0.40    5 1.60  -11  -14
3  3 0.50    6 1.50  -12  -15

问题函数与报错 #

编写的函数：

genUIR_test = function(df, arg1, arg2, arg3, arg4, arg5){
  
  arg1 <- substitute(arg1)
  arg2 <- substitute(arg2)
  arg3 <- substitute(arg3)
  arg4 <- substitute(arg4)
  arg5 <- substitute(arg5)
  
  df_new = df %>% select(ID, c(arg1:arg5)) %>% 
  mutate(arg1=arg1/arg2, arg3=arg3/arg2, arg4=-arg4, arg5=-arg5)
  
  return(df_new)
  
}

调用时报错：

> genUIR_test(df, col1, col2, col3, col4, col5)
Error in `mutate()`:
ℹ In argument: `arg1 = arg1/arg2`.
Caused by error in `arg1 / arg2`:
! non-numeric argument to binary operator
Run `rlang::last_trace()` to see where the error occurred.

错误原因 #

1. 符号未正确解析：使用substitute()将参数转换为符号对象后，在mutate中直接使用arg1/arg2时，这些符号并未被解析为数据框中的列，而是作为独立的符号对象进行运算，导致“非数值参数”错误。
2. 列选择语法错误：select(ID, c(arg1:arg5))中的arg1:arg5是符号的冒号运算，而非列名的连续选择，无法正确选中目标列。

修正方案 #

使用dplyr支持的非标准求值语法{{ }}（大括号插值），可以直接将参数捕获为列名并在函数中正确解析：

genUIR_test = function(df, arg1, arg2, arg3, arg4, arg5){
  df_new = df %>% 
    # 用{{}}解析连续列选择
    select(ID, {{arg1}}:{{arg5}}) %>% 
    mutate(
      # 用:=实现动态列名赋值，{{}}解析列引用
      {{arg1}} := {{arg1}} / {{arg2}},
      {{arg3}} := {{arg3}} / {{arg2}},
      {{arg4}} := -{{arg4}},
      {{arg5}} := -{{arg5}}
    )
  return(df_new)
}

验证结果 #

调用修正后的函数：

genUIR_test(df, col1, col2, col3, col4, col5)

输出与预期一致：

ID col1 col2 col3 col4 col5
1  1 0.25    4 1.75  -10  -13
2  2 0.40    5 1.60  -11  -14
3  3 0.50    6 1.50  -12  -15

内容的提问来源于stack exchange，提问作者please help