Get the moving average considering relative proportions of variables in another column

Question

I want to get the moving average (e.g. using movavg()) and get the relative proportions of categorical variables from another column. For intance, take the followin