如何通过数据框传参在R中批量运行自定义函数？

问题根源 #

你原函数依赖dplyr的tidyeval语法（enquo()和{{}}），这两个工具是用来捕获裸变量名（比如直接传var1）的。但mapply传入的是字符串（比如"var1"），不是裸变量，所以enquo(varb)会把字符串本身当作捕获对象，导致VNAME和VALUE列都变成变量名的字符串，最终结果不符合预期。

另外，原函数使用<<-修改全局变量Values，这种副作用式的写法不利于调试和批量处理，建议改为函数返回结果后统一合并。

解决方案1：修改自定义函数，支持字符串参数 #

重构函数，兼容裸变量和字符串两种输入方式，同时去掉全局变量依赖：

library(dplyr)

# 原始数据
a <- data.frame(
  var1 = c("one","two","three"),
  var2 = c("ants","moths","cows"),
  var3 = c("Sam","Sally","Jugdish")
) 
b <- data.frame(VNAME = c("var1","var2","var3"))

# 重构后的函数：支持字符串/裸变量输入，返回单变量的结果数据框
getvals <- function(varb, data = a) {
  if (is.character(varb)) {
    # 输入是字符串，转成符号后求值
    var_sym <- sym(varb)
    var_name <- varb
  } else {
    # 输入是裸变量，用tidyeval捕获
    var_sym <- enquo(varb)
    var_name <- quo_name(var_sym)
  }
  
  data %>%
    mutate(VNAME = var_name, VALUE = !!var_sym) %>%
    select(VNAME, VALUE) %>%
    distinct() %>%
    filter(!is.na(VALUE))
}

# 批量处理：遍历字符串列表，合并结果
Values <- lapply(b$VNAME, getvals) %>% bind_rows()

# 查看结果
print(Values)

运行后会得到正确的结果：

VNAME   VALUE
1  var1     one
2  var1     two
3  var1   three
4  var2    ants
5  var2   moths
6  var2    cows
7  var3     Sam
8  var3   Sally
9  var3 Jugdish

解决方案2：用tidyr简化操作（无需自定义函数） #

如果只是要提取所有分类变量的名称和对应值，直接用tidyr::pivot_longer可以一步完成，完全不需要自定义函数：

library(tidyr)
library(dplyr)

a <- data.frame(
  var1 = c("one","two","three"),
  var2 = c("ants","moths","cows"),
  var3 = c("Sam","Sally","Jugdish")
) 

Values <- a %>%
  pivot_longer(
    cols = everything(),  # 选择所有列
    names_to = "VNAME",   # 列名转为VNAME列
    values_to = "VALUE"   # 列值转为VALUE列
  ) %>%
  distinct() %>%          # 去重
  filter(!is.na(VALUE))   # 过滤NA值

print(Values)

这个方法更简洁高效，完全满足你的需求。

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