特定时期的总和值

Question

我有一些ID，日期和值。 我想对过去10天内每个ID的值进行求和。

此代码可以重现我的数据集：

date<-as.Date(c("05/03/2017","05/10/2017","05/14/2017","05/19/2017","05/22/2017"),format="%m/%d/%Y")
value<-rpois(20,50)
id<-NULL
for(i in 1:4){id<-c(id,rep(i,5))}

mydata<-data.frame(id,date=rep(date,4),value)

因此，输出将是上面带有新列的数据集。此列的总和值为10天。

提前致谢。