R 如何在桶的滚动集合中创建包含数据计数的集合
我有一个月的流量服务器日志。下面的部分示例R 如何在桶的滚动集合中创建包含数据计数的集合,r,xts,R,Xts,我有一个月的流量服务器日志。下面的部分示例 "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等)从中,我可以提取最大负载、9
"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%负载、绘制漂亮的负载图等。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
库(xts)
选项卡在@PLapointe上展开:
endp Close,但这不会创建滚动窗口。您需要聚合到1分钟,然后使用rollsum.zoo
。这太好了。顺便说一句,你提到了rollsum.zoo,我记得我曾经用过它。但是?rollsum.zoo
是空的。那个函数曾经存在过吗?@PLapointe:我不确定。。。我想是的(正如我对你答案的评论所暗示的),但我没有看到。
res<- align.time( fivemin[endpoints(fivemin, on="mins", k=5)], n=60*5)
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)