R中不同列划分的滚动平均值

Question

我在 R 中工作，我需要对数据集的最后 3 个值进行滚动平均，这些值由 3 个不同的列分区。每次列的值之一发生变化时，滚动均值应重新开始滚动。

以下示例描述了我的目标：

Material   Channel   client   value   mean   
---------------------------------------------
    1         2        2        5      NA
    1         2        2        10     NA
    1         2        2        7      7,3
    1         2        2        10     9
    1         2        5        5      NA
    1         2        5        3      NA
    1         2        5        5      13

我尝试使用 rollmean 函数，但它不会按列对数据集进行分区。

input_mes_cluster[, peso_medio:=rollmean(peso, k = 12) , by= c("cluster","material","canal", "cliente", "regiao")]

我怎样才能得到预期的结果？

谢谢！

Answer 1

library(tidyverse)
library(roll)

data.frame(Material = rep(1,7), 
           Channel = rep(2,7), 
           client = c(2,2,2,2,5,5,5), 
           value = c(5,10,7,10,5,3,5)) %>% 
  as_tibble() %>% 
  group_by(Material, Channel, client) %>% 
  mutate(mean = roll::roll_mean(as.matrix(value), width = 3))