用R中的列中位数填充数据框列中的缺失值

Question

我有一个数据框，其中包含一些类型为“因子”和其他类型为“数字”的列。任何“因子”列中都没有缺失值。

我正在尝试使用以下代码将每列中的缺失值替换为列中位数：

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

但是我得到了错误：

Error in median.default(df3[, i], na.rm = TRUE) : need numeric data

我确定只有数字列中存在缺失值，为什么会出现此错误？

更重要的是，如何用各自的列中位数填充每列中的缺失值？

Answer 1

即使df3[is.na(df3[, i]), i] 有零行，R 仍然需要计算 RHS median(df3[,i], na.rm = TRUE)。您可以添加一个检查以仅替换数字列中的缺失值：

for(i in seq_along(df3)) {
  if (is.numeric(df3[, i])) {
    df3[is.na(df3[, i]), i] <- median(df3[, i], na.rm = TRUE)
  }
}