如何创建一个包含滚动桶集合中数据计数的集合

Question

我有一个月的服务器日志记录，以下是部分示例：

"UploadDateGMT","UserFileSize","TotalBusinessUnits"
"2012-01-01 00:00:38","1223","1"
"2012-01-01 00:01:16","1302","1"
"2012-01-01 00:08:10","1302","1"

我希望将此转换为数据集，其中我可以在滚动基础上计算每个五分钟窗口中提交的字节数量。 （即0-5、1-6、2-7等）。从这里，我可以提取最大负载、95％的负载，制作漂亮的负载图表等。

- Ben Mathews

Answer 1

以下是@PLapointe 回答的详细说明：

endp <- endpoints(tab2, on="mins", k=1) # 1 minute endpoints
onemin <- period.apply(tab2,endp,sum)   # sum per 1-minute period
onemin <- align.time(onemin)            # align to end-of-period times
# all one-minute increments from start--end of onemin
allonemin <- seq(start(onemin), end(onemin), by="1 min")
onemin <- merge(onemin, xts(,allonemin))
fivemin <-  rollapplyr(onemin, 5, sum, na.rm=TRUE, fill=NA)

- Joshua Ulrich

---

太好了。顺便说一下，你提到了 rollsum.zoo，我记得曾经用过它。但是 ?rollsum.zoo 没有任何结果。这个函数是否真的存在过？ - Pierre Lapointe

@PLapointe：我不确定……我认为它是这样的（正如我在您的答案评论中所暗示的），但我没有看到它。 - Joshua Ulrich

Answer 2

< p> xts包可以解决这个问题：

library(xts)
tab <-read.table(text="UploadDateGMT,UserFileSize,TotalBusinessUnits
'2012-01-01 00:00:38',1223,1
'2012-01-01 00:01:16',1302,1
'2012-01-01 00:08:10',1302,1", header=TRUE, as.is=TRUE,sep = ",")

tab2<-xts(tab$UserFileSize,order.by=as.POSIXct(tab$UploadDateGMT) ) #create xts object
endp <-endpoints(tab2, on="mins", k=5) #5 minutes endpoints
fivemin <-period.apply(tab2,endp,sum) #sum per 5-minute period
fivemin

                    [,1]
2012-01-01 00:01:16 2525
2012-01-01 00:08:10 1302

如果您希望时间列以5分钟为增量：

res<- align.time( fivemin[endpoints(fivemin, on="mins", k=5)], n=60*5)

- Pierre Lapointe

---

接近了，但这并没有创建滚动窗口。您需要先聚合为1分钟，然后使用rollsum.zoo函数。 - Joshua Ulrich