在R中，如何将拟合值列添加到实际值存在NA的原始数据框？(语言-r语言)

在R中，如何将拟合值列添加到实际值存在NA的原始数据框？

有参照过网上的相关内容但是出来的结果还是和原数据几匹配不上

Error:

! Assigned data fitted(regression1) must be compatible with existing data.
x Existing data has 540540 rows.
x Assigned data has 8996 rows.
i Only vectors of size 1 are recycled.

我的解答思路和尝试过的方法

reg_1 <- lm(lm_1, data =data1)
data1$pre_spead<-fitted(reg_1)
下面这种也没有用
reg_1 <- lm(lm_1, data =data1)
data1$pre_spead<-fitted(reg_1 ,na.action = na.include)

我想要达到的结果

我希望在原有Y为NA时pre_Y也是NA，一一对应

虽然你的问题我没有完全理解，但是如果把数据集拆分为一个无NA的，一个有NA的，然后在进行拟合并添加到有NA的那个数据中，再将两个数据合并，就不用去一一对应了