如何对特定日期范围内发生的变化求和？

Question

df <- data.frame("Date"=seq(as.Date("2020/1/1"),by="day", length.out = 20),events=sample(0:100,20))

尝试将最接近的求和

df <- df %>% mutate(seven_sum=sum(events[Date <= Date & Date > Date-7]) )

然后我想总结一下过去7天发生的所有事情，我可以理解为什么这不起作用，但不是真正如何解决它。所以基本上我想为每一行加上该日期和7天内的所有其他日期。这是很难修复，如果我使用一个固定的日期范围，但我想改变为每一行…

任何关于如何继续的建议都会非常有帮助。

Answer 1

使用purrr::map_int：

library(dplyr)
library(purrr)
df %>% mutate(seven_sum=map_int(Date, ~sum(events[Date <= .x & Date > (.x-7)])))

#         Date events seven_sum
#1  2020-01-01     66        66
#2  2020-01-02     94       160
#3  2020-01-03     49       209
#4  2020-01-04     39       248
#5  2020-01-05     84       332
#6  2020-01-06     29       361
#7  2020-01-07     36       397
#8  2020-01-08     20       351
#9  2020-01-09     40       297
#10 2020-01-10     25       273
#11 2020-01-11      3       237
#12 2020-01-12     97       250
#13 2020-01-13     22       243
#14 2020-01-14     63       270
#15 2020-01-15     58       308
#16 2020-01-16     91       359
#17 2020-01-17     26       360
#18 2020-01-18     47       404
#19 2020-01-19     35       342
#20 2020-01-20     38       358

和基数R中的相同逻辑：

sapply(df$Date, function(x) sum(df$events[df$Date <= x & df$Date > (x-7)]))

Answer 2

我们可以使用data.table方法进行非对等连接，这会更有效率

library(data.table)
v1 <- setDT(df)[df[, Date1 := Date - 7],  sum(events), 
   on = .(Date <= Date, Date > Date1), allow.cartesian =TRUE, by = .EACHI]$V1
df[, seven_sum := v1][]