r-在purrr:map调用中对函数使用准引号参数

Question

我在计算准引号时遇到了一点困难，特别是我有一个函数，它接受一个参数，该参数指定哪个变量应该进入模型，然后在purrr:：map调用中运行。

我一直在工作：https://dplyr.tidyverse.org/articles/programming.html

# libs
library(tidyverse)
library(broom)
# dummy data
df <- data.frame(
"a"=rep(c("alpha","beta"),50),
"b"=rnorm(100),
"value1"=rnorm(100),
"value2"=rnorm(100)
)

---

model <- function(var) {
var <- enquo(var)
df %>%
group_by(a) %>%
nest() %>%
mutate(model=map(data, ~ lm(b ~ (!! var),data=.)))
}
model(value1)
> Error in mutate_impl(.data, dots) : Evaluation error: invalid model formula.

按预期直接输入名称：

df %>%
group_by(a) %>%
nest() %>%
mutate(model=map(data, ~ lm(b ~ value1,data=.))) %>%
unnest(model %>% map(glance))

我可以在一个函数中使用!! var：

modelX <- function(var,df=df) {
var <- enquo(var)
df %>%
select(!! var)
}
modelX(value1,df) 

我假设这与!! var引用嵌套的tibbledata中的值有关，我一直在研究rlang::qq_show()，但到目前为止还没能弄清楚它的

Answer 1

enquo()将尝试跟踪您传入的符号的环境，但您并不希望将其包含在传递给lm的公式中。最好将其作为一个符号来捕捉，而不是一个量化指标。试试这个

model <- function(var) {
var <- ensym(var)
df %>%
group_by(a) %>%
nest() %>%
mutate(model=map(data, ~ lm(b ~ !!var, data=.)))
}

为我使用dplyr_0.7.6和purrr_0.2.5