R语言ddply运行报错Error in str2lang(x)问题排查

你遇到的报错本质是as.formula()解析的公式字符串不合法，只有~符号没有右侧变量，触发了字符串转表达式的语法错误。导致该问题的核心原因有两个：

• ddply参数传入逻辑错误：ddply向分组内自定义函数传入的是每个分组对应的完整子数据框，而非你预期的model列的单个取值。你单独测试时手动给i传入了model的单个字符串值可以正常匹配，但ddply运行时i是数据框对象，filter(model == i)匹配不到任何结果，会导致后续dep、indep变量为空。
• 未做空值异常处理：即使修复参数问题，也可能存在某个model过滤后dep为空，或者indep全为空的情况，此时生成的公式字符串会是~或者y ~ ，同样会触发解析错误。

1. 调整自定义函数开头的参数取值，先取出model的分组值：

ddply('model', function(i){
  # 新增这一行，取出当前分组的model值
  i <- i$model[1]
  print(i)
  colnames <- names(d)
  # 后续代码保持不变
})

2. 在生成公式前增加空值校验，异常分组直接返回空结果避免报错：

# 生成公式前增加判断
if(length(dep) == 0 || length(indep) == 0){
  return(data.frame())
}
eq <- 
  paste(indep, collapse = ' + ') %>%
  paste(dep, ., sep = ' ~ ') %>%
  as.formula  

内容的提问来源于stack exchange，提问作者J.K.