有没有更好的方法来计算前 3 个时间段(或 N 个时间段)的平均值,以使用超前或滞后计算函数(平均值、总和等)?
data_final <- data_final %>%
group_by(cars) %>%
mutate(last3_average = (lag(speed, 1) + lag(speed, 2) + lag(speed, 3))/3)
我使用了 zoo 包,如下所示:
data_final <- data_final %>%
group_by(cars) %>%
mutate(last3_average = lag(rollmean(speed, 3, na.pad = T, align = "right"), 1))