R基于产品的移动平均线（或当我看到新的产品时，从新的移动平均值开始）

Question

我在发布这个问题之前试图找到答案但不幸运。 我有一个包含100个产品的大数据集。我想根据产品计算“移动平均线”。 我正在使用下面的代码，但是当我从一个产品转移到其他产品时，MA没有重新设置。

是否可以根据产品计算MA？请帮忙

library(TTR)
df <- data.frame(product=c('milk','milk','milk','milk','milk','milk','milk','milk',
                           'eggs','eggs','eggs','eggs','eggs','eggs','eggs','eggs'), 
                 sales=c(404,410,500,520,480,400,590,500,
                        400,499,520,500,444,400,570,580
                       ));
df$sma2 <- SMA(df[,"sales"],3)