是否可以使用 rlang tidy 求值运算符{{
在 lm 公式中?
我知道您可以使用双花括号来定义一个通用函数,如下所示:
my_scatter <- function(df, xvar, yvar) {
ggplot(df) +
geom_point(aes(x = {{xvar}}, y = {{yvar}}))
}
my_scatter(mpg, cty, hwy)
但我想知道是否有一种方法可以在公式中进行类似的调用,例如在 lm() 内部:
my_lm <- function(df, yvar, xvar) {
lm({{yvar}} ~ {{xvar}} , data = df)
}
my_lm(mpg, cty, hwy)
有一些细微差别。第一的,{{
通常仅在 tidyverse 提供的功能中受支持。即将到来的rlang::inject()功能将允许您将该支持扩展到任意函数。
Second, {{
是简写!!enquo()
,它捕获提供给函数的表达式以及应评估该表达式的环境。由于环境已经由数据框提供df
,这里使用的更好的动词是ensym()
,它仅捕获符号。
以下适用于 rlang 0.4.10:
my_lm <- function(df, yvar, xvar) {
ysym <- rlang::ensym(yvar)
xsym <- rlang::ensym(xvar)
rlang::inject( lm(!!ysym ~ !!xsym, data=df) )
}
my_lm(mpg, cty, hwy)
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)