Question

我一直在尝试转换我的数据，因此我可以获得带有时间索引和两个列价格和数量的xts数据框“数据”。但到目前为止，我对代码没有运气。

可在此处找到数据示例。 ftp://ftp.cmegroup.com/datamine_sample_data/ts/2012-11-05-e-mini-s-p-futures.csv

到目前为止我只进入了这个阶段：

require(data.table); require(xts)
data=fread("2012-11-05-e-mini-s-p-futures.csv");      
data=data[,c(2,8,10),with=FALSE]
setnames(data,colnames(data),c('Time','Volume','Price'));

然后我尝试使用xts和POSIXct，但没有运气。任何人都有神奇的翅膀让它发挥作用？

Answer 1

我没有使用data.table，只是用R来读取csv。然后我结合总日期时间并解析它。

data2 <- read.csv("~/Downloads/2012-11-05-e-mini-s-p-futures.csv", head=TRUE)
data2$index <- paste(data2$T.Date, data2$T.Time)
datax <- xts(data2[, c("Volume", "T.Price")], 
             strptime(data2$index, "%Y%m%d %H:%M:%S"))
head(datax)
                    Volume T.Price
2012-11-05 00:00:01      1  1408.5
2012-11-05 00:00:01      7  1408.5
2012-11-05 00:00:01      1  1408.5
2012-11-05 00:00:01      1  1408.5
2012-11-05 00:00:01      8  1408.5
2012-11-05 00:00:01      6  1408.5

使用日内数据集

1 个答案: