如何用R的dplyr从最终余额反向重建每日账户余额？

Hey，这个反向推算的需求其实逻辑很清晰，咱们换个角度想就能搞定：正向计算是初始余额 - 当日收入 = 当日结束余额，那反向就是次日结束余额 + 当日收入 = 当日结束余额。基于这个逻辑，用dplyr的窗口函数就能轻松实现，我给你一步步拆解：

核心思路 #

1. 先把每日交易数据按日期倒序排列，这样我们可以从已知的最终余额开始往前推算
2. 以最终余额为起点，依次给每一日的余额赋值：当日余额 = 下一日的余额 + 当日收入（因为倒序后，"下一日"就是原数据里的后一天）
3. 最后把数据恢复成原日期顺序，得到完整的每日余额序列

具体代码示例 #

先构造一份模拟数据，方便你理解：

library(dplyr)

# 模拟按日汇总的交易收入数据（已按日期排序）
daily_transactions <- tibble(
  date = as.Date(c("2024-05-01", "2024-05-02", "2024-05-03", "2024-05-04")),
  daily_income = c(200, 180, 120, 250)
)

# 已知的最终账户余额（即2024-05-04当日结束后的余额）
final_balance <- 800

接下来用dplyr实现反向推算：

daily_balance <- daily_transactions %>%
  # 第一步：将数据按日期倒序，从最后一天开始推算
  arrange(desc(date)) %>%
  # 第二步：从最终余额出发，反向计算每日余额
  mutate(
    # 用lag()窗口函数：取上一行（倒序后的上一行=原数据的下一天）的余额，加上当日收入
    balance = lag(balance, default = final_balance) + daily_income
  ) %>%
  # 第三步：恢复原日期顺序
  arrange(date)

# 查看结果
print(daily_balance)

运行后你会得到这样的结果：

# A tibble: 4 × 3
  date       daily_income balance
  <date>            <dbl>   <dbl>
1 2024-05-01          200    1550
2 2024-05-02          180    1350
3 2024-05-03          120    1170
4 2024-05-04          250     800

逻辑验证 #

咱们用正向计算验证一下：如果初始余额是1550，那么：

• 5月1日结束余额：1550 - 200 = 1350
• 5月2日结束余额：1350 - 180 = 1170
• 5月3日结束余额：1170 - 120 = 1050
• 5月4日结束余额：1050 - 250 = 800
  和已知的最终余额完全匹配，说明反向推算的结果是正确的。

注意事项 #

• 确保数据已按日期排序：如果你的原始数据没排序，记得先加一步arrange(date)再进行倒序操作
• 补全缺失日期：如果存在日期断层（比如某天没有交易记录），建议先用tidyr::complete(date = seq(min(date), max(date), by = "day"), fill = list(daily_income = 0))补全所有日期，避免推算出错
• 处理特殊场景：如果有支出数据，只需要把支出当成负的收入即可，逻辑完全一致

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