R语言中如何基于其他列数值更新指定列中取值为0的记录

需求核心逻辑：将Group5列的0值替换为同行Group1的取值，Group6列的0值替换为同行Group2的取值，非0值保持不变，以下是两种常用实现方式：

步骤1：构造示例数据（可跳过，直接替换为你自己的数据集即可） #

df <- data.frame(
  Group1 = c(1,0,0,1,1),
  Group2 = c(0,1,0,0,0),
  Group3 = c(1,0,1,1,0),
  Group4 = c(0,1,0,0,0),
  Group5 = c(0,0,1,0,1),
  Group6 = c(0,0,0,0,0)
)

方法1：基础R实现（无需安装额外依赖包） #

# 替换Group5的0值为对应Group1的值
df$Group5[df$Group5 == 0] <- df$Group1[df$Group5 == 0]
# 替换Group6的0值为对应Group2的值
df$Group6[df$Group6 == 0] <- df$Group2[df$Group6 == 0]

方法2：dplyr包实现（适合管道流批量处理场景） #

library(dplyr)
df <- df %>%
  mutate(
    Group5 = ifelse(Group5 == 0, Group1, Group5),
    Group6 = ifelse(Group6 == 0, Group2, Group6)
  )

扩展：多列批量处理 #

如果后续有更多同规则的配对列需要处理，可以用批量逻辑避免重复编写代码：

# 定义要处理的列对：c(待更新列, 取值来源列)
col_pairs <- list(c("Group5","Group1"), c("Group6","Group2"))
for (p in col_pairs) {
  df[[p[1]]][df[[p[1]]] == 0] <- df[[p[2]]][df[[p[1]]] == 0]
}

运行上述任意一种方法后得到的结果和你给出的预期输出完全一致。

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