将 CSV 文件转换为 xts

Question

我有一个 CSV 文件，其中包含 Unix 时间戳中第一列的数据。如何直接将其转换为 xts 形式？目前我正在尝试使用as.xts 读取文件并进行转换，但每次尝试都会收到错误消息。

我使用的代码示例：

Data <- read.zoo("data.csv", index.column = 1, origin="01/01/1970",
                 sep = ",", header = TRUE, FUN = as.POSIXct)
as.xts(Data)

csv 的第一 2 行：

1366930371  143.7   0.25275
1366930368  143.7   0.02664867

Answer 1

可能有几处错误。首先是“csv”的前两行是制表符分隔的，而不是逗号分隔的。接下来，您指定header=TRUE，但前两行没有标题。第三，origin= 格式错误。应该是yyyy-mm-dd。

这行得通：

library(xts)
Lines <- "1366978862,133.08,0.48180896
1366978862,133.08,0.5"
tc <- textConnection(Lines)
Data <- read.zoo(tc, sep=",", FUN=function(i) as.POSIXct(i, origin="1970-01-01"))
close(tc)
Data <- as.xts(Data)