使用R中的每周分割舍入月末数据

Question

输入表：

   Date             Qty
2017-01-01          234
2017-01-08          123
2017-01-15          445
2017-01-22          113
2017-01-29          674
2018-02-05          120
2018-02-12          921
2018-02-19          732
2018-02-26          634
2018-03-05          711

期望的表：

   Date             Qty
2017-01-01          234
2017-01-08          123
2017-01-15          445
2017-01-22          113
2017-01-29          708.28  #674+(120/7 * 2)
2018-02-05          85.71   #(120/7 * 5)
2018-02-12          921
2018-02-19          732  
2018-02-26          837.14  #634+(711/7 * 2)
2018-03-05          507.85  #(711/7 * 5)

在上面的o / p表中，预计使用新月份的第一个日期属于上个月的最后日期每周比例。

例如：

2017-02-26数量为634，2018-03-05数量为711 因此，数量711被7除（一周中的＃天），即711/7 = 101.571，二月份的月份通常有28天，因此2股（该行的当前日期为2017年2月的剩余＃天）将101.571的-02-26）添加到2017-02-26的现有数量中，从而使其为634+（101.571 * 2）=> 634 + 203.14 => 837.14（您可以在预期的表中看到）。同样，从2018-03-05中扣除剩余的2股，现在仍保留5股（该行的当前日期为2018-03-05，是本月第一周的＃天），即711/5 => 507.85（如您在预期表中所见）。

使用 R 应该如何概括这种情况？

Answer 1

此答案是否正确

margin-top

PS：使用了R: How to get the Week number of the month中的first_day_of_month_wday函数。