在R语言中如何用另外两列（含NA）的和替换含NA列的值

你的代码无法得到预期结果的核心原因是：替换某列后，后续的替换操作会依赖修改后的列值，而非原始数据的列值，这可能导致计算偏差或错误。以下是几种可靠的解决方案：

方案1：基于原始数据副本替换 #

先复制一份原始数据，所有替换计算均基于原始列值，避免修改后的数据干扰：

# 复制原始数据集
data_original <- data

# 替换Column_A的NA值
data$Column_A[is.na(data$Column_A)] <- data_original$Column_B[is.na(data$Column_A)] + data_original$Column_C[is.na(data$Column_A)]

# 替换Column_B的NA值
data$Column_B[is.na(data$Column_B)] <- data_original$Column_A[is.na(data$Column_B)] - data_original$Column_C[is.na(data$Column_B)]

# 替换Column_C的NA值
data$Column_C[is.na(data$Column_C)] <- data_original$Column_A[is.na(data$Column_C)] - data_original$Column_B[is.na(data$Column_C)]

执行后结果：

Column_A Column_B Column_C
1        2        0        2
2        7        5        2
3        2        1        1

方案2：用dplyr同步处理（推荐） #

借助dplyr的mutate函数，先保留原始列的副本，基于原始值完成替换后再移除临时列，代码更简洁易读：

library(dplyr)

data <- data %>%
  # 保存原始列的临时副本
  mutate(
    orig_A = Column_A,
    orig_B = Column_B,
    orig_C = Column_C
  ) %>%
  # 按规则替换NA值
  mutate(
    Column_A = ifelse(is.na(Column_A), orig_B + orig_C, Column_A),
    Column_B = ifelse(is.na(Column_B), orig_A - orig_C, Column_B),
    Column_C = ifelse(is.na(Column_C), orig_A - orig_B, Column_C)
  ) %>%
  # 删除临时列
  select(-orig_A, -orig_B, -orig_C)

方案3：逐行循环处理 #

如果你倾向于用for循环实现，可以逐行检查并替换NA值：

for (row_idx in 1:nrow(data)) {
  # 处理Column_A的NA
  if (is.na(data$Column_A[row_idx])) {
    data$Column_A[row_idx] <- data$Column_B[row_idx] + data$Column_C[row_idx]
  }
  # 处理Column_B的NA
  if (is.na(data$Column_B[row_idx])) {
    data$Column_B[row_idx] <- data$Column_A[row_idx] - data$Column_C[row_idx]
  }
  # 处理Column_C的NA
  if (is.na(data$Column_C[row_idx])) {
    data$Column_C[row_idx] <- data$Column_A[row_idx] - data$Column_B[row_idx]
  }
}

注意事项 #

如果你的数据集中存在同一行多列同时为NA的情况（比如Column_A和Column_B均为NA），现有规则无法计算出有效替换值，结果仍会是NA，你需要额外定义这类场景的处理逻辑。

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