将其他参数映射到 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))

错误：

Error in stats::model.frame(formula = df, data = ~Petal.Length, drop.unused.levels = TRUE) : object 'Sepal.Length' not found

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

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)

将其他参数映射到 purrr

Mapping additional arguments to purrr

r

lm

purrr