如何将插补数据（w/aregImpute）添加到数据框中？

我的问题是如何将估算数据添加到地震中。缺少数据帧

我在下面创建了一个可复制的示例

library(Hmisc)
library(missForest) #load packages

data("quakes") 
quakes

quakes.missing <- prodNA(quakes, noNA = 0.1) #create missing values

summary(is.na(quakes.missing)) #confirm that data is missing

impute_quakes <- aregImpute(~ lat + long + depth + mag + stations, data = quakes.missing, n.impute = 5)

impute_quakes

库（Hmisc）
图书馆（密斯福里斯特）#加载软件包
数据（“地震”）
地震
quakes.missing由于您有5个插补，您将有5个完整的数据帧，您可以使用如下函数将其拉出：

fill_data <- function(impute = impute_quakes, data = quakes.missing, im = 1) {
  cbind.data.frame(impute.transcan(x = impute, 
                                   imputation = im, 
                                   data = data, 
                                   list.out = TRUE, 
                                   pr = FALSE))
 }
full_dat1 <- fill_data(im = 1)
full_dat2 <- fill_data(im = 2)
...

fill\u data Check out
impute\u地震$imputed
。谢谢@ChirayuChamoli。我将尝试使用apply函数添加数据。通过“将插补数据添加到地震。缺失”数据框，您会做什么？您要垂直添加数据（rbind）还是水平添加数据（rbind）？或者，你只是想提取多重插补数据集吗？@Ahmedov我的意思是，我想提取插补数据集，以便对它们进行分析。