R语言ifelse内算术运算用法及按条件生成水文年列问题

你当前的代码写法存在语法错误，输出结果符合预期只是运行环境的巧合，不具备可复现性。

• 错误核心：%>%管道符会将左侧的输出作为右侧函数的第一个参数传入，你写的df %>% ifelse(month_num >=5, (year+1), year)等价于执行ifelse(test = df, yes = month_num >=5, no = (year+1))——完全打乱了ifelse的参数顺序。ifelse的标准参数结构是ifelse(逐行判断条件, 条件成立返回值, 条件不成立返回值)，你把整个数据框传给了判断条件位，正常情况下R会将非空数据框强制转换为单个逻辑值TRUE，最终所有行都会返回year+1，根本不会逐行判断月份。你现在能得到看似正确的结果，大概率是之前运行过attach(df)或者全局环境中存在和列名同名的month_num、year向量，属于偶发情况。
• ifelse内部的算术运算本身没有语法问题，year + 1的写法完全合法，问题出在你没有将ifelse放在可逐行读取数据框列的执行语境中。

可复现的正确实现方案 #

基础R原生写法 #

不需要加载dplyr，直接显式引用数据框列即可：

df$water_year <- ifelse(df$month_num >= 5, df$year + 1, df$year)

dplyr管道规范写法 #

管道操作需要配合mutate函数创建新列，mutate内部可直接调用列名，无需重复写df$前缀：

library(dplyr)
df <- df %>%
  mutate(water_year = ifelse(month_num >= 5, year + 1, year))

验证逻辑：按照你的水文年规则，5-12月年份加1、1-4月保留原年份，上述两种写法运行后，2021年11-12月返回2022，2022年1-4月返回2022，2022年5-10月返回2023，和你贴出的预期结果完全一致，且在任何干净R环境下都能稳定运行。

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