作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
是否可以使用 rlang 整洁评估运算符 {{
在 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 提供支持的功能中支持。 The upcoming rlang::inject()
function将允许您将该支持扩展到任意函数。
二、{{
是 !!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)
关于lm() 公式中的 rlang 双花括号,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/65527715/
我是一名优秀的程序员,十分优秀!