在R中不平衡面板上的简单移动平均

I am working with an unbalanced, irregularly spaced cross-sectional time series. My goal is to obtain a lagged moving average vector for the "Quantity" vector, segmented by "Subject".I am working with an unbalanced, irregularly sp