使用na.aggregate替换数据框所有列中的所有NA

Question

我一直在尝试使用na.aggregate替换数据帧所有列中的所有NA值。我知道na.aggregate的默认功能设置为均值，因此我尝试将FUN更改为中值。但这似乎不起作用。

我收到的错误是：

match.fun（FUN）中的错误：   'na.aggregate（plant_data_w_Median [only_num]，FUN =中位数）'不是函数，字符或符号

有人可以指出我做错了什么吗？谢谢：）

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)