用列平均值替换缺失值

Question

我不知道如何循环每列以用列平均值替换 NA 值。当我尝试使用以下内容替换一列时，效果很好。

Column1[is.na(Column1)] <- round(mean(Column1, na.rm = TRUE))

循环列的代码不起作用:

for(i in 1:ncol(data)){
    data[i][is.na(data[i])] <- round(mean(data[i], na.rm = TRUE))
}

这些值不会被替换。有人可以帮我解决这个问题吗？

Answer 1

对代码进行相对简单的修改即可解决该问题:

for(i in 1:ncol(data)){
  data[is.na(data[,i]), i] <- mean(data[,i], na.rm = TRUE)
}