如何获得每n个值的移动平均值

如何解决如何获得每n个值的移动平均值

我有一个这样的数据框

date <- c("2020-09-01","2020-09-01","2020-09-02","2020-09-03","2020-09-04","2020-09-04")
group <- c("red","green","yellow","red","yellow")
number <- c(1,2,3,4,5,6,7,8,9,10,11,12)
df <- data.frame(date,group,number)

我想按“分组”分组，并有一个新列称为“移动平均值”，即第一和第二值的平均值，然后是第二和第三值的平均值，然后是第三和第四值的平均值等等。然后是另一个称为“ stdev”的新列，它是前两个移动平均值的标准偏差。 （在我的真实单词示例中，我需要有自由度，不仅可以平均连续的2个值，还可以平均30个）

我希望输出是这样的：

非常感谢您的提前帮助！

解决方法

dplyr方法，假设您的数据已经按日期排列：

df %>%
  group_by(group) %>%
  mutate(
    `moving average` = (number + lag(number)) / 2,stdev = abs(`moving average` - lag(`moving average`))/sqrt(2)
  )

存在基本的方法，但涉及更多。