R:如何按行替换具有中位数的NAs？

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

# 定义一个函数，用于替换每行的NAs为中位数
replace_na_with_median <- function(row) {
  median_value <- median(row, na.rm = TRUE)  # 计算中位数
  row[is.na(row)] <- median_value  # 替换NAs为中位数
  return(row)
}

# 应用函数到每行
replaced_data <- t(apply(data, 1, replace_na_with_median))

# 输出替换后的数据框
print(replaced_data)