R-基于其他列中其他行的值的新列

我有一个每个日期的日期和值的表，我想在一个新的列中对之前三个日期的值进行平均。我在R怎么做

我有这个：

date unit_sales 
2013-01-10   1
2013-01-11   1 
2013-01-14   1 
2013-01-18   2 
2013-01-21   1  
2013-01-25   1

并且我想要平均三天之前（如果没有可用日期，考虑它在Excel中）：

---

我们可以使用

rollmean

library(dplyr)
library(zoo)
df1 %>%
    mutate(Average = rollmean(unit_sales, k= 3, fill = TRUE))

---

你能检查一下平均值吗？这些值很好，取三天前的平均值。例如，2013-01-14，它需要13、12和11天，并且只有11的信息可用，平均值达到1I，认为这个值在三行之前的平均值（并且我不完全明白），并且不考虑行的日期。我想要类似于考虑日期-1、日期-2或日期-3的单元销售平均值的东西

library(dplyr)
library(zoo)
df1 %>%
    mutate(Average = rollmean(unit_sales, k= 3, fill = TRUE))