R语言自定义函数中如何向unite传递字符向量参数

报错原因 #

• unite是tidyverse系列函数，默认支持非标准计算，列选择参数需要接收可识别的列下标（字符向量/数值向量/裸列名表达式）
• 你用quote()封装的c("Sepal.Length","Sepal.Width")是未求值的表达式，属于language类型，不符合列下标的类型要求，因此触发你看到的下标类型错误。

可行实现方案 #

方案1：传字符向量（最推荐，适合参数动态生成的场景） #

直接把列名存为普通字符向量，函数内部用all_of()明确告知unite这是外部传入的列名向量即可，这是tidyverse官方推荐的标准传参方式，和你硬编码参数的运行结果完全一致：

library(tidyr)

func <- function(df, keycols) {
  new_df <- unite(
    df, 
    key, 
    all_of(keycols),
    sep = " ", 
    remove = FALSE, 
    na.rm = FALSE
  )
  return(new_df)
}

# 直接赋值普通字符向量，不需要用quote封装
keycols <- c("Sepal.Length", "Sepal.Width")
new_iris <- func(iris, keycols)

方案2：传裸列名（适合交互式手动输入参数的场景） #

如果不想给列名加引号，直接传裸列名组合，可以用tidyverse的拥抱运算符{{ }}封装参数，让函数正确识别传入的列表达式：

library(tidyr)

func <- function(df, keycols) {
  new_df <- unite(
    df, 
    key, 
    {{keycols}},
    sep = " ", 
    remove = FALSE, 
    na.rm = FALSE
  )
  return(new_df)
}

# 直接传裸列名组合，不需要加引号、不需要quote封装
new_iris <- func(iris, c(Sepal.Length, Sepal.Width))

注意事项 #

• 普通参数传递场景下不要用quote()封装列向量，除非你明确要做非标准计算的特殊处理，否则很容易出现类型不匹配错误
• 如果传入的列名可能存在不存在于数据框的情况，可以把all_of()替换为any_of()，函数会自动忽略不存在的列，避免中断运行。

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