如果使用data.table，lubridate它可能看起来像这样

library(data.table)
library(lubridate)
#sample data
dt<-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对象做语法，但是那行很出名（或者至少和手册中的那行一样出名）