自定义R函数sumTogether计算IVsum不符合预期，求修正方案

你的函数存在两个关键问题导致求和结果不符合预期：

1. 管道操作符书写错误：代码中的%>应为%>%，缺失的百分号会导致语法解析异常。
2. 非标准求值问题：在mutate中直接使用first_IV这类参数名时，R会优先在数据框的列中查找同名变量，而非使用你传入的x1、x2等向量参数。

修正方案一（推荐，符合tidyverse风格） #

通过enquo()和!!实现tidyeval，让函数支持裸列名传入并正确解析：

sumTogether <- function(data = data, 
                       first_IV, 
                       second_IV, 
                       third_IV = NULL, 
                       first_DV, 
                       second_DV) {
  require(tidyverse)
  
  # 将传入的列名转换为可求值的符号
  first_IV <- enquo(first_IV)
  second_IV <- enquo(second_IV)
  third_IV <- enquo(third_IV)
  first_DV <- enquo(first_DV)
  second_DV <- enquo(second_DV)
  
  if (quo_is_null(third_IV)) {
    data <- data %>%
      mutate(IVsum = !!first_IV + !!second_IV, 
             DVsum = !!first_DV + !!second_DV)
  } else {
    data <- data %>%
      mutate(IVsum = !!first_IV + !!second_IV + !!third_IV, 
             DVsum = !!first_DV + !!second_DV)
  }
  return(data)
}

调用方式保持不变：

result <- sumTogether(data=data, first_IV=x1, second_IV=x2, third_IV=x3, first_DV=y1, second_DV=y2)
# 验证结果
head(result %>% select(pid, x1, x2, x3, IVsum))

修正方案二（直接引用参数向量） #

如果希望直接接收向量参数，可通过.env明确引用函数环境中的参数：

sumTogether <- function(data = data, 
                       first_IV, 
                       second_IV, 
                       third_IV = NULL, 
                       first_DV, 
                       second_DV) {
  require(tidyverse)
  
  if (is.null(third_IV)) {
    data <- data %>%
      mutate(IVsum = .env$first_IV + .env$second_IV, 
             DVsum = .env$first_DV + .env$second_DV)
  } else {
    data <- data %>%
      mutate(IVsum = .env$first_IV + .env$second_IV + .env$third_IV, 
             DVsum = .env$first_DV + .env$second_DV)
  }
  return(data)
}

两种方案都能正确计算IVsum和DVsum，推荐第一种方案，因为它更符合tidyverse的编码习惯，且无需担心全局环境变量的干扰。

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