如何用另一列值替换R语言数据框（data frame）中的NA值？

针对你给出的示例数据，这里有两种简单高效的方法可以实现把a1列里的NA值替换成其他列对应位置的值，我会一步步演示：

首先先确认你的示例数据：

a1 <- c(1, 2, 4, NA, 2, NA)
b1 <- c(3, NA, 4, 4, 4, 3)
c1 <- c(NA, 3, 3, 4, 2, 3)
a2 <- c(2, 3, 5, 5, 3, 4)
b2 <- c(1, 2, 4, 5, 6, 3)
c2 <- c(3, 3, 2, 3, 4, 3)
df <- as.data.frame(cbind(a1, b1, c1, a2, b2, c2))

方法1：基础R原生操作 #

这种方法不需要额外加载包，直接用索引定位NA值并替换：

# 定位a1中的NA位置，替换为a2对应位置的值
df$a1[is.na(df$a1)] <- df$a2[is.na(df$a1)]

原理很简单：is.na(df$a1)会生成一个逻辑向量，标记出a1列里所有NA的位置，然后我们把这些位置的a1值替换成a2列对应位置的值。如果想换成其他列（比如b1或c2），只需要把代码里的a2改成对应的列名即可。

方法2：用dplyr的coalesce函数（tidyverse风格） #

如果你习惯用tidyverse工具链，dplyr里的coalesce()函数专门处理这种"取第一个非NA值"的场景，代码更简洁：

library(dplyr)

df <- df %>%
  mutate(a1 = coalesce(a1, a2))

coalesce(a1, a2)会逐行检查：如果a1不是NA就保留原值，是NA就用a2的值。同样，你可以把a2换成任何你想用的列名，甚至可以多列依次判断（比如coalesce(a1, a2, b1)会优先用a1，没有的话用a2，再没有用b1）。

替换后的结果 #

执行上述任意一种方法后，df的a1列会变成：1, 2, 4, 5, 2, 4，原来的两个NA值（第4、6行）已经被替换成了对应a2列的数值。

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