使用read.zoo代替read.table和zoo()？

Question

我有一个包含许多此类行的文件

2010-01-12 19:40   1021.00000   0.00001     1.00
2010-01-12 19:50   1031.00000   0.00000     -1.00

为了将其读取为动物园，我使用

tmp <- read.table("myfile")
GOEMD <- zoo(tmp[,3], as.chron(paste(tmp[,1],tmp[,2]), format="%Y-%m-%d %H:%M"))

它可以正常工作 但我想使用 read.zoo() 代替。

我尝试过

f <- function(x)  as.chron(paste(tmp[,1],tmp[,2]))
tmp <- read.zoo("myfile", index = 1:2, sep=" ", FUN  = f)

，甚至指定过

colClasses= c("character","character","numeric","numeric","numeric")

，但它不起作用； 它说： 第 136 行（我在上面粘贴的那一行）没有 14 个元素。

我也尝试过：

tmp <- read.zoo("myfile", index = 1:2, sep=" ", FUN  = as.chron)

Answer 1

1. f 中的拼写错误已经被指出。
2. 此外，您可能希望利用 read.zoo 的一些功能。首先，请注意，如果 index 参数的值是一个列表，则该列表的每个组件中引用的列将作为单独的参数传递给 FUN。另请注意，可以使用 FUN2 参数，该参数应用于 FUN 的输出，因此我们可以以紧凑的方式编写它，如下所示：

因此尝试以下操作：

library(zoo)
library(chron)

Lines <- "2010-01-12 19:40   1021.00000   0.00001     1.00
2010-01-12 19:50   1031.00000   0.00000     -1.00"

z <- read.zoo(textConnection(Lines), index = list(1, 2), 
        FUN = paste, FUN2 = as.chron)

上面是这样写的是独立的，因此您可以将其逐字复制到剪贴板，然后将其粘贴到 R 会话中。要将其与您的文件一起使用，请将 textConnection(Lines) 替换为 "myfile"。

Answer 2

您的函数 f 必须搜索 tmp。您可能想要：

f <- function(x)  as.chron(paste(x[,1],x[,2]))
tmp <- read.zoo("myfile", index = 1:2, sep=" ", FUN = f)

此外，您发布的示例数据看起来是制表符分隔的，而不是空格分隔的，因此您可能需要这样做：

tmp <- read.zoo("myfile", index = 1, sep="\t", FUN = as.chron)