r - 在 `lm()` 值的情况下，将来自 `NA` 的拟合值与数据框匹配

Question

这个问题在这里已经有了答案:





Aligning Data frame with missing values

(4 个回答)


5年前关闭。




这一定是一个非常微不足道的问题，但我正在努力寻找解决方案。这是我的问题:

这个作品

#I run a simple regression
 data(mtcars)
 dataf <- mtcars
 summary(fit1 <- lm(mpg ~ wt,  data=dataf))

#Then I merge the fitted values with the data frame
 dataf$fit <- fitted(fit1)

这(当然)不起作用

 dataf[2,]<-NA
 summary(fit2 <- lm(mpg ~ wt,  data=dataf))
#of course the NA value reduces my lm output
 dataf$fit2 <- fitted(fit2)

Error in `$<-.data.frame`(`*tmp*`, "fit2", value = c(23.3189679389035,  : 
replacement has 31 rows, data has 32

但是我如何让第二个例子起作用？我通过 row.names 尝试了一个解决方案在 model.matrix()但是当我在回归中包含某些因素时，这不起作用(如果我理解正确，这将被报告为 bug)。谢谢你的热心帮助!

Answer 1

经过一番搜索，我想我找到了一个替代方案

dataf[2,]<-NA
summary(fit2 <- lm(mpg ~ wt,  data=dataf, na.action="na.exclude"))
dataf$fit2 <- fitted(fit2)

应该做的伎俩。对？