从 lm 模型对象中提取数据框

Question

我无法找到答案的简单问题。

我正在寻找一个从lm 模型对象中提取用作输入的数据框名称的函数。

例如，如果我运行

model <- lm(mpg ~ cyl, data = mtcars)

我想要一个类似

的功能

data.name(model)

产生

mtcars

我看过here 和here，但他们似乎没有给我我想要的东西。例如，除非我用错了model.frame()，否则它只会给我带有模型中使用的术语的数据框，而不是原始输入数据框。

Answer 1

model$call$data 给你mtcars（一个未评估的符号）； deparse(model$call$data) 给你"mtcars"（一个字符串）。 eval(model$call$data) 将原始数据对象返回给您，如果它在当前环境中可用。