我得到以下错误消息: Error in if (sum(c(new$hour, new$min, new$sec))) { :
argument is not interpretable as logical
当我执行以下代码: keep$EstimateDate <- as.Date(keep$date + keep$days,"%Y-%m-%d")
keep$EstimateD
下面的代码失败 a = data.table(date=seq(ymd('2001-6-30'),ymd('2003-6-30'),by='weeks'))
a = a[,list(date=date,a=rnorm(105),b=rnorm(105))]
b = seq(ymd('2001-6-30'),ymd('2001-07-28'),by='weeks')
a[date %in%
This question询问R中的时间段聚合,大熊猫称为重新采样。最有用的答案是使用XTS包在给定时间段内进行分组,应用sum()或mean()等函数。 其中一条评论建议在lubridate中有类似的内容,但没有详细说明。有人可以使用lubridate提供一个惯用的例子吗?我已经阅读了几次润湿的小插图,并可以想象一些lubridate和plyr的组合,但是我想确保没有更简单的方法,我错过了。 为