使用imputeTS包(特别是na_kalman函数)填充不同列(相互独立)中缺少的值(NA)

Question

我的一位朋友最近开始在function上工作，并且有兴趣使用上面提到的函数来填充不同列中的NA值。此外，既然他打算对每一列进行时间序列分析，那么正确的方法应该是什么？

Answer 1

要用列代替，一种简单的方法是使用基R函数colMeans。假设您有一个数据框架df。

1)如果要逐列替换NAs，可以尝试如下：

df <- sapply(df, function(x)ifelse(is.na(x), mean(x, na.rm=TRUE), x))

2)如果您想一次替换所有的NAs，您可以尝试如下：

df <- ifelse(is.na(df), rep(colMeans(df, na.rm=TRUE), rep(nrow(df), ncol(df))), unlist(df))