R语言实现基于列值替换的If/then条件语句相关问题

原代码错误原因 #

• 混淆了R原生缺失值NA与字符串"NA"，判断缺失值必须使用is.na()函数，== "NA"只能匹配到文本内容为NA的字符串，无法识别真实缺失值
• 普通if语句不支持整列向量的逐行运算，处理逐行判断需要使用向量化判断函数
• rename()是用于修改列名的函数，不能用来修改列内的取值，修改列值需要用mutate()（dplyr环境下）或者直接对列赋值

推荐实现方案 #

你已经使用了管道符%>%，直接用dplyr内置函数即可实现需求，coalesce()函数会自动取两个列中第一个非缺失值，完全匹配你的业务逻辑：

# 加载dplyr包（如果已经加载可跳过）
library(dplyr)
# 生成新的最终名称列
df <- df %>%
  mutate(final_name = coalesce(NAME_1, NAME_2))
# 如果需要直接覆盖原NAME_1列，改成下面的写法即可
# df <- df %>% mutate(NAME_1 = coalesce(NAME_1, NAME_2))

其他可选实现 #

如果要显式写if/else逻辑，可使用if_else()函数：

df <- df %>%
  mutate(final_name = if_else(is.na(NAME_1), NAME_2, NAME_1))

基础R的实现版本：

df$final_name <- ifelse(is.na(df$NAME_1), df$NAME_2, df$NAME_1)

特殊情况处理 #

如果你的数据中缺失值实际存储为字符串"NA"，请先转成R原生缺失值再做处理：

df[df == "NA"] <- NA

数据样例 #

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