R语言plyr/dplyr环境问题：函数输入'x'未找到错误排查

嘿，这个坑我之前踩过好几次！结合你提到的plyr/dplyr对变量环境的严格要求，几乎可以肯定是非标准求值（NSE）导致的变量作用域冲突——简单说就是dplyr在找x的时候，找错地方了。

问题根源 #

dplyr的核心函数（比如mutate、summarise、filter）默认会在传入的数据框环境里查找变量，而不是你定义的函数的参数环境。第一个函数正常，说明它的变量引用逻辑符合dplyr的查找规则；第二个函数里，你直接把函数参数x放进了dplyr的动词里，dplyr会去你的时间序列数据框里找名为x的列，找不到就会抛出那个报错。

举个典型的错误写法例子（你的第二个函数大概率类似这样）：

# 错误示例：直接引用函数参数x
my_ts_func <- function(data, x) {
  data %>%
    mutate(transformed = x * 3)  # dplyr会去data里找x列，而不是函数参数x
}

针对性解决方法 #

根据你传入x的方式不同，有几种靠谱的解决方式：

1. 如果你传入的是列名的字符串（比如my_ts_func(df, "value")）

用.data代词明确告诉dplyr：去数据框里找这个字符串对应的列：

my_ts_func <- function(data, x) {
  data %>%
    mutate(transformed = .data[[x]] * 3)
}

2. 如果你传入的是裸列名（比如my_ts_func(df, value)）

用dplyr 1.0+推荐的拥抱操作符{{ }}，它会把你传入的变量名“注入”到dplyr的求值环境里：

my_ts_func <- function(data, x) {
  data %>%
    mutate(transformed = {{ x }} * 3)
}

3. 如果你用的是旧版dplyr（低于1.0）

可以用enquo()捕获变量，再用!!（bang-bang操作符）展开：

my_ts_func <- function(data, x) {
  x_quo <- enquo(x)
  data %>%
    mutate(transformed = !!x_quo * 3)
}

额外提醒：如果混用了plyr

如果你在第二个函数里用了plyr的ddply这类函数，那环境问题会更棘手——plyr的函数会创建临时环境，容易让参数变量“丢失”。建议尽量用dplyr的管道语法代替plyr（毕竟plyr已经进入维护模式了），如果必须用plyr，记得用.variables参数明确指定要用到的列，或者把函数参数绑定到plyr的环境里。

总结 #

本质就是要告诉dplyr：你要找的x到底在哪个环境里——是数据框的列，还是函数的参数。用上面的方法明确指定后，这个报错应该就能解决啦！

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