R中lm函数的估计值不'；t匹配相关性（数据与NA）

我正在安装lm型号

x <- c(0.1, 0.3, 0.2, 0.5, NA, 0.1, 0.8, 0.4)
y <- c(0.3, 0.2, 0.5, NA, 0.4, 0.5, 0.2, 0.4)
fit1<-lm(scale(y) ~ scale(x), na.action=na.omit)
summary(fit1)

---

代码中的

x在
na之前应用
scale
。在
lm
中省略
。比较这两个：

DF <- data.frame(x, y) 
na.omit(scale(DF))
scale(na.omit(DF))

DF这不是希望的OP。统计相关系数和标准化回归系数应相同。我想OP想要验证这种平等性。@MYaseen208谢谢你指出这一点。我已经修改了我的答案。非常感谢你，我从来没有猜到我自己！
fit2<-lm(scale(y2) ~ scale(x2))
summary(fit2)

DF <- data.frame(x, y) 
na.omit(scale(DF))
scale(na.omit(DF))

fit1<-lm(scale(y) ~ scale(x), data=na.omit(DF))

all.equal(unname(coef(fit1)[2]),
          cor(na.omit(DF))[1,2])
#[1] TRUE