如何用replace_na函数将数据框列中的NA替换为列均值？

原始代码与问题 #

用户的原始数据处理代码：

data <- data.frame(x = c(1, 2, NA, 4, 5),
                   y = c(6, 7, NA, 9, 10))

# 计算所有列的均值（忽略NA）
mean_vals <- colMeans(data, na.rm = TRUE)

# 输出结果
mean_vals

用户尝试的错误替换代码：

data %>% replace_na(list(mean))

正确实现方式 #

replace_na要求传入的list参数是列名-替换值的键值对，直接传入list(mean)无法识别列与均值的对应关系。以下是两种可行的正确写法：

方法1：手动指定列名与对应均值 #

library(tidyr) # 需先加载tidyr包

data %>% replace_na(list(x = mean_vals["x"], y = mean_vals["y"]))

方法2：自动转换均值向量为匹配的list #

如果数据框列数较多，可直接用as.list()将均值向量转为list（向量名称会自动作为list的键，匹配数据框列名）：

library(tidyr)

data %>% replace_na(as.list(mean_vals))

执行后得到的结果数据框：

x  y
1  1  6
2  2  7
3  3  8
4  4  9
5  5 10

（注：x列均值为(1+2+4+5)/4=3，y列均值为(6+7+9+10)/4=8）

关键注意点 #

• 确保已加载tidyr包（replace_na属于tidyr，管道符%>%需要dplyr或tidyverse包支持）
• replace_na的list参数必须明确对应列名与替换值，不能直接传入原始均值向量，需转为列名映射的list结构

内容的提问来源于stack exchange，提问作者Laura