0

有没有更好的方法来计算前 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))
4

0 回答 0