从公式中提取所有唯一变量

Question

我将lm() 模型的公式存储为chr 变量，我正在尝试将公式中的所有变量提取到向量中。

为了使其可复制，使用 mtcars 变量：mpg、cyl 和 drat（我的公式在示例中具有转换等）

model_string <- "mpg ~ cyl + I(abs(0.5-drat)) + I((0.5 - drat)^2)"

我想要的输出是：

vars_used <- c("mpg", "cyl", "drat")

到目前为止，我所做的是：

library(tidyverse)
vars_used <- model_string %>% 
  str_extract_all(pattern = "\\w+") %>% 
  pluck(1) %>% 
  str_remove_all(pattern = "[0-9]")

vars_used

[1] "mpg"  "cyl"  "I"    "abs"  ""     ""     "drat" "I"    ""     ""     "drat" ""    

有没有更简单的方法来完成我想要做的事情，尤其是使用 tidytext？

我仍然需要删除向量中的空字符串，并删除重复项。

Answer 1

基础包有一个功能：

all.vars(as.formula(model_string))
#[1] "mpg"  "cyl"  "drat"

在这种情况下你不应该使用文本处理。