从lm对象中提取因变量

Question

是否有从lm对象中提取Y的函数？

我使用残差（m）和预测（m）但是使用对象内部结构来提取Y ...

m = lm(Y ~ X1, d)
head(m$model$Y)
[1] -0.791214 -1.291986 -0.472839  1.940940 -0.977910 -1.705539

Answer 1

您可以使用model.frame()，如下所示：

# From the stats::lm documentation
ctl <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
trt <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
group <- gl(2, 10, 20, labels = c("Ctl","Trt"))
weight <- c(ctl, trt)
lm1 <- lm(weight ~ group)

model.frame(lm1)$weight
##  [1] 4.17 5.58 5.18 6.11 4.50 4.61 5.17 4.53 5.33 5.14 4.81 4.17 4.41 
##  3.59 5.87 3.83 6.03 4.89 4.32 4.69

如果您在公式中的一个或多个变量上调用函数，例如

lm2 <- lm(log(weight) ~ group)

您可以使用get_all_vars(lm2)$weight获取未转换的值（model.frame()返回转换后的值）。

如果您想查看特定类可用的功能（特别是提取器功能），可以使用methods(class = "lm")（或您感兴趣的任何对象类）进行检查。