每月合计，直到变量发生变化

Question

我在处理发票。我想要计算每月可申请的金额(发票金额一旦超过到期日)。关键是发票可以取消并支付。因此，我想逐月汇总发票的价值，只考虑到期日后一天对应的月份到支付或取消的月份(包括该月)的发票。

下面是我的矩阵的一个例子

   Client.Code.     Invoice  Expiration.Date    Amount Payment.date Out.Of.Process
1:      1004773 21506000409      2016-09-28   6993.80         <NA>        Current
2:      1004773 21506000670      2016-08-29  30034.62         <NA>        Current
3:      1004773 21507000583      2017-10-29   3872.00         <NA>        Current
4:      1005109 21601000237      2016-04-30   3594.31         <NA>        Current
5:      1005109 21606000480      2016-08-29   6301.68         <NA>        Current
6:      1004737 20170500125      2016-07-24 142818.72   2017-06-19           Paid

例如，代码应该计算每个聚合中从9月份开始的第一个数字，并且应该在每个聚合中计算从7月16日到6月17日的数字6。从5月16日(第二天)开始每个月计算数字4会更好。

有一种方法可以实现每月可索赔发票的总金额吗？

Answer 1

这是一个按月汇总金额的解决方案。我不知道这是不是你想要的，但我希望它很接近。

library(dplyr)
library(lubridate) # to floor_date function
your_df %>% mutate(exp_date = as.Date(expiration.Date), #you might not need this if you expiration date is in Date format
monthly_date = floor_date(exp_date, "month")) %>%
select(Amount,monthly_date) %>%
group_by(monthly_date) %>%
summarise(aggregate_amt = sum(Amount))