列中的 NA 替换

解决此问题的众多选项之一：

# Находим столбцы с количественными переменными
cols <- names(df)[sapply(df, is.numeric)]
# Считаем средние значения по найденными столбцам
avg <- colMeans(df[cols], na.rm = TRUE)
for (col in cols) {
  # Условие наличия хотя бы одного пропущенного значения в столбце
  if (anyNA(col)) {
    # Находим индексы пропущенных значений
    idx <- which(is.na(df[[col]]))
    # Заменяем найденные пропущенные значения на среднее
    df[[col]][idx] <- avg[col]
  }
}