R语言中使用case_when函数时的向量大小错误问题

你的代码中v2011的行为不符合预期，核心原因是混淆了组级判断和行级判断的逻辑，或者在组级填充时未确保返回值长度匹配组内行数：

场景1：仅当前行Year为2011时保留value，否则为NA #

如果你想实现“标记每行是否为2011年，是则取对应value，否则为NA”，原代码的条件逻辑错误。2011 %in% Year是判断整个组是否存在2011年，而非当前行的Year是否等于2011。正确写法需针对每行的Year做判断：

myDf %>%
  group_by(group) %>%
  mutate(v2010 = case_when(Year == 2010 ~ value, TRUE ~ NA),
         v2011 = case_when(Year == 2011 ~ value, TRUE ~ NA))

处理后只有Year等于目标年份的行会填充对应value，其他行均为NA。

场景2：将组内2011年的value填充到该组所有行 #

如果你想实现“每个组若存在2011年，就把该年的value赋值给组内所有行的v2011，否则为NA”，原写法在组内仅有一个目标年份行时可工作，但多目标行时会因长度不匹配报错。更稳健的写法有两种：

方法1：使用match #

myDf %>%
  group_by(group) %>%
  mutate(v2010 = value[match(2010, Year)],
         v2011 = value[match(2011, Year)])

match(2011, Year)会返回2011在组内Year列中的位置，不存在则返回NA，value[NA]直接得到NA，完全符合需求。

方法2：使用filter+pull #

myDf %>%
  group_by(group) %>%
  mutate(v2010 = if (2010 %in% Year) filter(cur_data(), Year == 2010) %>% pull(value) else NA,
         v2011 = if (2011 %in% Year) filter(cur_data(), Year == 2011) %>% pull(value) else NA)

这种写法逻辑更直观：先判断组内是否存在目标年份，再提取对应value填充整组。

原代码问题根源 #

原代码中，当组内存在2011年时，value[Year == 2011]仅返回组内Year=2011那一行的value（长度为1），R会自动循环该值填充组内所有行——这在单一行场景下可行，但如果组内有多个2011年的行，该表达式会返回多个值，导致mutate因长度不匹配抛出错误，这就是你觉得“v2011未被正确定义”的核心原因。

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