我在时间序列上工作很多。我的大部分操作都通过data.table
做,但往往我要检查数据通过特定的时间调用,并为我用xts
方法:向data.table添加新方法
> timedata['2014-01-02/2014-01-03']
我data.table
数据基本上是xts
的精确副本,与第一colums index
,包含时间:
> dt_timedata <- data.table(index=index(timedata), coredata(timedata))
在某一点上的数据变得太大,因此保持双方或将他们所有的时间是不是真的一个很好的选择(这不可能是真的),所以我想制作的相同方法。但是,我只找到修改通用方法的简单例子。
是我想甚至可能的,如果是的话,我可以在哪里读到它?
PS即使我可以abviosly使用类似
> from <- '2014-01-02'
> to <- '2014-01-03'
> period <- as.POSIXct(c(from, to))
> dt_timedata[index %between% period]
是远远不够直观和美观,所以我宁愿写一个新的方法。
EDIT1(由请求示例)
require(xts)
require(data.table)
days <- as.POSIXct(c('2014-01-01', '2014-01-02', '2014-01-03', '2014-01-04'), origin='1970-01-01')
timedata <- xts(1:4, days)
dt_timedata <- data.table(index=index(timedata), coredata(timedata))
我可以在xts
做些什么:
> timedata['2014-01-01/2014-01-02']
[,1]
2014-01-01 1
2014-01-02 2
我要为[.data.table
完全一样的。
EDIT2(说明我做什么)
'[.data.table' = function(x, i, ...) {
if (!missing('i')) {
if (all(class(i) == "character")) {
# do some weird stuff
return(x[ *some indices subset I just created* ])
}
}
data.table:::'[.data.table'(x, i, ...)
}
所以基本上如果i
是性格和适合我的格式(检查发生在怪异的东西节)我返回的东西和功能从来就没有到最后的命令。否则什么也没有发生,我只是叫
data.table:::'[.data.table'(x, i, ...)
而事实是,这打破这样的表达式
ind <- as.POSIXct('2014-01-01', origin='1970-01-01')
dt_timedata[index==ind]
这里有一个简单的例子,您可以尝试:
require(data.table)
days <- as.POSIXct(c('2014-01-01', '2014-01-02', '2014-01-03', '2014-01-04'), origin='1970-01-01')
dt_timedata <- data.table(index=days, value=1:4)
ind <- as.POSIXct('2014-01-01', origin='1970-01-01')
# now it works
dt_timedata[index==ind]
# new trivial [.data.table
'[.data.table' = function(x, I, ...) {
data.table:::`[.data.table`(x, I, ...)
}
# and now it doesn't work
dt_timedata[index==ind]
你可以提供一个可重复的例子吗? – nsheff 2014-09-19 14:25:38
@sheffien添加到帖子 – user2794728 2014-09-19 14:42:09