在 read.zoo 中使用 Fun 更改日期格式

Question

我尝试使用此代码通过 read.zoo 读取多个 CSV 文件，但我遇到了问题。方向不同，所以我使用了file.path()。问题是：原始文件中的 Date.Time 有 Date format= "%m/%d %HH:%MM:%SS" ，我需要在 read.zoo() 函数之前或内部添加 "%Y/" 。我怎么能这样做？我尝试使用子函数，但我需要一个参数。哪一个？有没有可能绕过这个问题？

library(zoo)
for(i in Dir1){
   filepath <- file.path(paste(i,".csv",sep=""))
   #f<-function(x) sub("([[:print:]]{15})$", "2005/\\1",x)
   dat<-read.zoo(filepath,header=TRUE,sep=",",
                 FUN = function(x) sub("([[:print:]]{15})$", "2005/\\1"))
   filenames <- substr(filepath,122,155)
   names <-substr(filenames,1,21)
   assign(names, dat)
}

   Some of my data:
   Date.time,Outdoor Dry Bulb [C],Outdoor Relative Humidity [%],Air Temperature [C],Surface Temperature [C]
   01/01  00:03:00,0.0,50.,23.,16.3588068633603
   01/01  00:06:00,0.0,50.,23.,16.1696661072302
   01/01  00:09:00,0.0,50.,23.,13.8864861630478 
   01/01  00:12:00,0.0,50.,23.,13.006618496734
   01/01  00:15:00,0.0,50.,23.,12.5542552024807 
   01/01  00:18:00,0.0,50.,23.,11.6201669301972

Answer 1

我认为您想从 R 的角度考虑这一点，并将 paste() 字符串放在一起，而不是使用正则表达式，这在这里有点过分了。例如：：

f <- function(x, format) {
    as.POSIXct(paste0("2005/", as.character(x)), format = format)
}

然后调用为：

read.zoo(filepath, format = "%Y/%m/%d %H:%M:%S", header=TRUE,
         sep=",", FUN = f)

f()的解释

为了解释f()，请注意read.zoo() 将从读入的文件中传递FUN index.column 列。这将是一个字符向量或一个因子（取决于所使用的设置），其中包含来自你的文件。所以我们可以通过as.character(x) 强制转换为字符（x 是我们用来引用来自index.column 的数据）。接下来，我们将字符串"2005/" 粘贴到文件x 的index.column 列中的数据上。我为此使用paste0()，因为我们想要paste(...., sep = "")，这是一种快速的方法。

最后阶段是将生成的字符向量转换为适合 R 的 DateTime 类。我为此使用as.POSIXct()。 read.zoo() 确保将 format 参数传递给 FUN，以便我们可以使用我们的 f()，并将其传递给 format 函数的 format 参数，以便它理解结构我们传递给它的日期时间信息。

示例用法

这是一个例子：

set.seed(1)
dat <- data.frame(Index = seq(Sys.time(), by = "2 hours", length = 50),
                  Data  = rnorm(50))
dat <- transform(dat, Index = strftime(Index, format = "%m/%d %H:%M:%S"))
head(dat)

> head(dat)
           Index       Data
1 10/17 12:53:35 -0.6264538
2 10/17 14:53:35  0.1836433
3 10/17 16:53:35 -0.8356286
4 10/17 18:53:35  1.5952808
5 10/17 20:53:35  0.3295078
6 10/17 22:53:35 -0.8204684

## write to file
write.csv(dat, file = "mydata.csv", row.names = FALSE)

现在假设mydata.csv 是您的数据文件，使用上面的read.zoo() 函数和用户函数f 读取它：

myzoo <- read.zoo("mydata.csv", format = "%Y/%m/%d %H:%M:%S",
                  header = TRUE, sep = ",", FUN = f)
head(myzoo)

给出：

> head(myzoo)
2005-10-17 12:53:35 2005-10-17 14:53:35 2005-10-17 16:53:35 2005-10-17 18:53:35 
         -0.6264538           0.1836433          -0.8356286           1.5952808 
2005-10-17 20:53:35 2005-10-17 22:53:35 
          0.3295078          -0.8204684