将附加参数映射到 purrr

Question

我正在尝试使用 purrr 将下面的函数映射到嵌套数据帧。 我试图查看文档，但无法将额外的参数传递给函数。

样本数据：

library(dplyr)
library(purrr)
nested<-iris %>% 
  group_by(Species) %>% 
  nest()

实现的功能：

lm_mod<-function(df,xname,yname){
 xname<-deparse(substitute(xname))
 yname<-deparse(substitute(yname))
 f1<-as.formula(paste(yname,"~",xname))
 do.call(lm,list(data=quote(df),f1))
  }

几种尝试之一：

map(nested$data,lm_mod(Sepal.Length,Petal.Length))

错误：

stats::model.frame(formula = df, data = ~Petal.Length, drop.unused.levels = TRUE) 中的错误：找不到对象“Sepal.Length”

看来我的公式被解释为数据。 我怎样才能最好地实现这一点？

Answer 1

这修复了它：问题出在我的函数定义上，我后来对其进行了编辑以在lm调用中明确说明数据参数，也感谢@MrFlick 指出这一点：

lm_mod<-function(df,xname,yname){
 xname<-deparse(substitute(xname))
 yname<-deparse(substitute(yname))
 f1<-as.formula(paste(yname,"~",xname))
 do.call(lm,list(data=quote(df),f1))
  }

map(nested$data,lm_mod,Sepal.Length,Petal.Length)