Замените все NA во всех столбцах Dataframe, используя na.aggregate.

Question

Я пытался использовать na.aggregate для замены всех значений NA во всех столбцах данных. Я знаю, что функция по умолчанию для na.aggregate установлена ​​в значение, поэтому я попытался изменить FUN на медиану. Но это не похоже на работу.

Я получаю ошибку:

Ошибка в match.fun (FUN): 'na.aggregate (plant_data_w_Median [only_num], FUN = median)' не является функцией, символом или символом

Может кто-нибудь указать, что я делаю не так? Спасибо:)

replace_w_median <- function (dataset){
  plant_data_w_Median <- data.frame(dataset)
  only_num <- sapply(dataset, is.numeric)
  plant_data_w_Median[only_num] <- lapply(plant_data_w_Median[only_num], na.aggregate(plant_data_w_Median[only_num], FUN = median))
  return(plant_data_w_Median)
}

plant_data_w_median = replace_w_median(plant_data)