使用R语言编写自定义函数以中位数填充每个数据列的缺失值

使用R语言编写自定义函数以中位数填充每个数据列的缺失值

在数据分析和处理中，经常会遇到缺失值的情况。缺失值可能会影响数据的准确性和可靠性，因此需要采取适当的方法来处理它们。一种常用的方法是使用中位数来填充缺失值。在本文中，将展示如何使用R语言编写一个自定义函数，以便对每个数据列中的缺失值进行中位数填充。

下面是一个示例数据集，其中包含了一些带有缺失值的数值列：

# 创建示例数据集
data <- data.frame(
  A = c(1, 2, NA, 4, 5),
  B = c(NA, 2, 3, NA, 5),
  C = c(1, NA, 3, 4, NA)
)

现在，我们将编写一个名为median_fill的自定义函数，该函数接受一个数据框作为输入，并返回填充了中位数的数据框。

# 自定义函数：中位数填充
median_fill <- function(data) {
  for (col in names(data)) {
    col_values <- data[[col]]
    col_median <- median(col_values, na.rm = TRUE)
    col_values[is.na(col_values)] <- col_median
    data[[col]] <- col_values
  }