gpt4 book ai didi

按时间段滚动平均值而不是 R 中的观察

转载 作者:行者123 更新时间:2023-12-03 19:55:13 25 4
gpt4 key购买 nike

我有一个日期随机发生的数据集。例如:

10/21/15、11/21/15、11/22/15、11/28/15、11/30/15、12/12/15...等

我希望按时间段而不是在观察级别创建滚动平均值。例如,如果我想计算过去 7 天的移动平均线。我不想查看最后 7 行,而是查看过去 7 天

举个小例子:

 dates = c('2015-08-07', '2015-08-08','2015-08-09','2015-09-09','2015-10-10')
value = c(5,10,5,3,2)
df=data.frame(dates, value)
df$desired = c(NA,5,7.5, NA,NA)

我显然希望为更大的数据集做这件事,但我希望你能明白。例如,如果我使用 7 天,这就是我期望的结果。

请注意,我没有将当前的观察值包含在滚动平均值中,只包含前一个。我想要按时间段滚动平均值,而不是观察行号。

我尝试查看 rollmean 和 dplyr,但我无法弄清楚。不过我真的不在乎它是如何发生的。

谢谢!

最佳答案

尝试这个:

rollavgbyperiod <- function(i,window){
startdate <- dates[i]-window
enddate <- dates[i]-1
interval <- seq(startdate,enddate,1)

tmp <- value[dates %in% interval]
return(mean(tmp))
}

dates <- as.Date(dates)
window <- 7
res <- sapply(1:length(dates),function(m) rollavgbyperiod(m,window))
res[is.nan(res)] <- NA

> data.frame(dates,value,res)
dates value res
1 2015-08-07 5 NA
2 2015-08-08 10 5.0
3 2015-08-09 5 7.5
4 2015-09-09 3 NA
5 2015-10-10 2 NA

关于按时间段滚动平均值而不是 R 中的观察,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34259024/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com