合并两个向量，同时保留R中的索引顺序

我想对一组缺少值的数字进行插补。

y = (1,2,1,3,NA,4)

我提取了y的观察值和缺失值的索引，如下所示：

index <- which(!is.na(y))
observed <- y[index]
missing <- y[-index]

然后我创建了一个逻辑向量，指示观察到或缺失了y中的哪些观察结果：

ry <- ifelse(!is.na(y),TRUE,FALSE)

我想通过对y的观测值进行简单随机抽样来估算y的缺失值

imputed_y <- mice.impute.sample(y,ry)

我很难弄清楚如何合并原始观测值和估算值。我需要保留缺失值在y中出现的顺序。任何帮助将不胜感激。