R中使用dplyr的mutate计算数值正负切换后累计天数的方法

首先确保你已经安装并加载dplyr包：

# 未安装先执行安装
install.packages("dplyr")
# 加载包
library(dplyr)

核心实现逻辑 #

• 第一步：将数据按日期升序排列，保证时间顺序正确
• 第二步：标记Values列的正负符号，识别出发生正负切换的行
• 第三步：将连续正负相同的行划分为同一组，每个组内按顺序生成从0开始递增的天数，即为Days列

完整可运行代码 #

# 这里的df替换为你自己的原始数据框（仅含Date、Values两列）
df_result <- df %>%
  # 转换日期格式并排序，请根据你实际的日期格式调整format参数
  arrange(as.Date(Date, format = "%m/%d/%Y")) %>%
  # 生成数值正负标记，正数返回1，负数返回-1
  mutate(val_sign = sign(Values),
         # 标记切换点：第一行/和上一行符号不同即为切换点
         is_switch = is.na(lag(val_sign)) | val_sign != lag(val_sign),
         # 给同一段连续相同符号的行分配同一个分组ID
         group_id = cumsum(is_switch)) %>%
  # 按分组计算天数
  group_by(group_id) %>%
  mutate(Days = row_number() - 1) %>%
  # 清除中间辅助列，保留需要的字段
  ungroup() %>%
  select(-val_sign, -is_switch, -group_id)

注意事项 #

• 请务必先按日期升序排序数据，否则计算结果会出错，若你的原始数据已经按时间排好序，也建议保留arrange步骤避免意外
• 若Values列存在0值，可以自定义符号规则，比如val_sign = ifelse(Values >= 0, 1, -1)将0归为正，避免0值引发的误切换

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