dplyr问题：新增列中出现意外NA值

问题根源 #

你的代码出现意外NA的核心原因是lead()函数的特性：

• 每个分组的最后一行，lead(Number)会返回NA（因为没有下一个观测值可提取）
• 当lead(Number)为NA时，条件表达式lead(Number)=="LWC"的结果也是NA，而if_else在条件为NA时不会执行任何分支，直接返回NA，这就导致每个分组最后一行的Number2变成NA，与预期不符。

解决方案 #

你需要调整逻辑，明确处理lead()返回NA的情况——所有非"下一行是LWC"的场景（包括没有下一行的最后一行），都让Number2等于原Number值。以下是几种可行写法：

方法1：用case_when（最直观清晰）

library(dplyr)
df3 <- df3 %>% 
  group_by(Xnumber) %>% 
  mutate(Number2 = case_when(
    lead(Number) == "LWC" ~ "Unknown",
    TRUE ~ Number  # 覆盖所有其他情况：包括lead为NA的最后一行
  ))

方法2：给lead()设置默认值

通过lead()的default参数，将分组最后一行的"下一个值"设为非"LWC"的内容，让条件判定为FALSE，直接返回原Number：

df3 <- df3 %>% 
  group_by(Xnumber) %>% 
  mutate(Number2 = if_else(lead(Number, default = "") == "LWC", "Unknown", Number))

方法3：在条件中排除NA

通过!is.na()明确过滤lead为NA的情况，确保只有当lead存在且等于"LWC"时才修改值：

df3 <- df3 %>% 
  group_by(Xnumber) %>% 
  mutate(Number2 = if_else(!is.na(lead(Number)) & lead(Number) == "LWC", "Unknown", Number))

验证结果 #

执行上述任意代码后，得到的结果会与你预期完全一致：

Xnumber   Number   Number2
    X17339    EWY      EWY
    X17339    LW2Y     LW2Y
    X17401    EWC      EWC
    X17401    LWY      LWY
    X17466    EWC      EWC
    X17466    LWY      LWY
    X17466    EWY      Unknown
    X17466    LWC      LWC

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