虚拟变量和上个月的每日平均值

Question

我有每日交易量数据：

    vol <- data.frame(year = c(2010,2010,2010,2010,2010,2010), 
month = c(1,1,1,2,2,2), 
day = c(1,2,3,1,2,3),vol = c(4,6,7,3,6,9))

我想创建一个虚拟变量，如果在每个当月日上vol大于或等于每日平均 {{ 1}}（上个月）。

到目前为止，我的尝试止于：

vol

您能推荐我应该添加到此代码（或其他方式）中的任何内容以获得我想要的输出吗？