我正在使用aregImpute来估算R 数据帧 (bn_df) 上的缺失值。
代码是这样的：
library(Hmisc)
impute_arg <- aregImpute(~ TI_Perc + AS_Perc +
CD_Perc + CA_Perc + FP_Perc,
data = bn_df, n.impute = 5)
它工作正常。
问题出在后面。将值放回原始数据框中。
我可以做到，只是方式不太优雅。我基本上必须为所有列复制/粘贴以下行：
bn_df$CD_Perc[impute_arg$na$CD_Perc] <- impute_arg$imputed$CD_Perc[,1]
bn_df$FP_Perc[impute_arg$na$FP_Perc] <- impute_arg$imputed$FP_Perc[,1]
...
这有效。但是必须有一种更有效的方法来完成此操作，而无需对所有列进行复制/粘贴。
有任何想法吗？