代码之家 › 专栏 › 技术社区 › rcorty

在函数F内,使用F的参数作为update()的参数

rlang formula r

rcorty · 技术社区 · 7 年前

my_lm ,示例如下:

library(rlang)

base_formula <- new_formula(lhs = quote(potato), 
                            rhs = quote(Sepal.Width + Petal.Length))

my_lm <- function(response) {
    lm(formula = update(old = base_formula, new = quote(response) ~ . ),
       data = iris)
}

my_lm(response = Sepal.Length)

但我遇到了以下错误:

Error in model.frame.default(formula = update(old = base_formula, new = enquo(response) ~  : 
  object is not a matrix

我怀疑我滥用了 rlang ,但我似乎不知道引用、取消引用和公式化的什么组合可以解决这个问题。

lm(formula = Sepal.Length ~ Sepal.Width + Petal.Length,

数据=iris)

EDIT2:我还应该澄清一下,我真的对使用 郎 通过以下方式解决此问题: update 不仅仅是使用 paste , gsub 和 formula

1 回复 | 直到 7 年前

MrFlick 7 年前

这是一个有效的方法

base_formula <- new_formula(lhs = quote(potato), 
                            rhs = quote(Sepal.Width + Petal.Length))

my_lm <- function(response) {
  newf <- new_formula(get_expr(enquo(response)), quote(.))
  lm(formula = update(old = base_formula, new = newf),
     data = iris)
}

my_lm(response = Sepal.Length)

这看起来有点混乱,因为quosure也基本上是公式,你试图用它们生成一个正则公式。然后 new_formula 似乎不允许 !! 膨胀

my_lm <- function(response) {
  newf <- base_formula
  f_lhs(newf) <- get_expr(enquo(response))
  lm(formula = get_expr(newf),
     data = iris)
}

推荐文章

david · 根据坐标计算像素

3 年前

Eric Fuller · excel的条件公式

7 年前

Ongky Denny Wijaya · 计算球体体积时出错,但公式正确

7 年前

John Eben · 如何计算夜间和白天的工作时间

7 年前

jfgoodhew1 · 在数据验证中按公式引用命名范围

7 年前

Andy · Excel IF-eq“Something”在下一个可用空格中写入

7 年前

Prospidnick · 索引匹配组问题

7 年前

nsimon · Excel VBA-FormulaArray错误(对于较大的(IF()))

7 年前

Cocotte · 用Excel函数计算加权几何平均值

7 年前

user3153443 · Google sheets,根据另一个单元格的内容为该单元格添加值

7 年前