如何在R中实现数据集负值向前追溯调整的自动化处理？

你的需求完全可以实现，核心逻辑是将负值的绝对值从其之前最近的非零数据中依次扣除，直到负值完全抵消，同时将原负值位置设为0。你的原始代码仅处理了紧邻前一天的数据，无法应对需要向前追溯多个日期的场景，这是导致效果不稳定的原因。

以下是正确的实现代码：

library(tidyverse)
library(lubridate)

# 原始数据
nums <- tibble(
  date = ymd(c("2022-01-01","2022-01-02","2022-01-03",
               "2022-01-04","2022-01-05","2022-01-06",
               "2022-01-07","2022-01-08","2022-01-09")),
  value = c(18, 12, 1, 0, 0, -3, 1, 0, 0 )
)

# 创建新列存储修正后的值
nums$new_value <- nums$value

# 从后往前遍历处理负值
n <- nrow(nums)
for (i in n:1) {
  if (nums$new_value[i] < 0) {
    # 需要抵扣的金额
    debit <- abs(nums$new_value[i])
    # 当前负值设为0
    nums$new_value[i] <- 0
    # 向前找可抵扣的非零值
    j <- i - 1
    while (debit > 0 && j >= 1) {
      if (nums$new_value[j] > 0) {
        # 计算本次可抵扣的金额
        take <- min(nums$new_value[j], debit)
        nums$new_value[j] <- nums$new_value[j] - take
        debit <- debit - take
      }
      j <- j - 1
    }
  }
}

# 查看结果
nums |> select(date, value, new_value)

运行后得到的new_value列会和你给出的示例完全一致：

代码说明 #

• 逆向遍历：从最后一行开始往前检查，确保每次处理负值时，优先从最近的前序非零数据中抵扣。
• 循环抵扣：当遇到负值时，先将当前值设为0，然后向前逐个查找有剩余可抵扣空间（值>0）的行，扣除对应金额，直到负值完全抵消。
• 稳定性：这种方法能处理任意数量的连续或分散负值，也能应对需要向前追溯多个日期的场景，解决了你原始代码的局限性。

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