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

Question

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

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

例如，如果我跑步

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

我想要一个类似]的函数>

data.name(model)

产生

mtcars

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

我无法找到答案的简单问题。我正在寻找一个函数，该函数将从lm模型对象中提取用作输入的数据框的名称。例如，如果我运行...

Answer 1

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