変数が変更されるまで月ごとに集計合計

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月から最初のものをカウントしなければならないし、すべての総計で6月17日に7月16日から数6をカウントする必要があります。番号4は、月の16日（翌日）から毎月カウントするほうがよいでしょう。

私が探している月額請求可能金額の総計を達成する方法がありますか？

Answer 1

ここでは、月ごとに金額を集計する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))