如果使用
data.table,
lubridate它可能看起来像这样
library(data.table)library(lubridate)#sample datadt<-data.table(ts=seq(from=ymd('2015-01-01'), to=ymd('2015-07-01'),by='mins'), datum=runif(260641,0,100))
如果您想从分钟到每小时获取数据,则可以
dt[,mean(datum),by=floor_date(ts,"hour")]
如果您有一堆列,并且希望将所有列平均化,则可以执行
dt[,lapply(.SD,mean),by=floor_date(ts,"hour")]
您可以替换
mean任何所需的功能。您可以将“小时”替换为“秒”,“分钟”,“小时”,“日”,“周”,“月”,“年”。好吧,您不能从几分钟到几秒钟,因为那需要魔术,但是无论如何您都可以从微秒到几秒。
不可能将序列从较低的周期性转换为较高的周期性-例如,每周一次,每天一次或每天一次到5分钟小节,因为这需要魔术。
-xts手册的Jeffrey Ryan。
我从没学过xts,所以我不知道用xts对象做语法,但是那行很出名(或者至少和手册中的那行一样出名)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)