2

我有不同名称的不同 csv 文件。我想进行一些计算，然后我想将结果保存到一个 csv 文件中。

我的两个 csv 文件的数据具有以下格式：

文件 1：

 day                 price
 2000-12-01 00:00:00 2 
 2000-12-01 06:00:00 3 
 2000-12-01 12:00:00 NA 
 2000-12-01 18:00:00 3

文件 2：

 day                 price
 2000-12-01 00:00:00 12 
 2000-12-01 06:00:00 NA 
 2000-12-01 12:00:00 14 
 2000-12-01 18:00:00 13

要阅读我使用的文件：

file1 <- read.csv(path_for_file1, header=TRUE, sep=",")
file2 <- read.csv(path_for_file2, header=TRUE, sep=",")

计算过程示例：

library(xts)
file1 <- na.locf(file1)
file2 <- na.locf(file2)

并将结果保存到 csv 中，其中 csv 文件的时间戳相同：

merg <- merge(x = file1, y = file2, by = "day", all = TRUE)
write.csv(merge,file='path.csv', row.names=FALSE)

要读取多个文件，我试过这个。任何想法如何使 2 个文件的过程成为 n 个文件？

4

1 回答 1

3

您说您的数据是逗号分隔的，但您将它们显示为空格分隔。我将假设您的数据是真正用逗号分隔的。

与其将它们读入单独的对象，不如将它们读入列表更容易。它也更容易使用read.zoo，而不是read.csv因为使用 xts/zoo 对象合并时间序列要容易得多。

# get list of all files (change pattern to match your actual filenames)
files <- list.files(pattern="file.*csv")
# loop over each file name and read data into an xts object
xtsList <- lapply(files, function(f) {
  d <- as.xts(read.zoo(f, sep=",", header=TRUE, FUN=as.POSIXct))
  d <- align.time(d, 15*60)
  ep <- endpoints(d, "minutes", 15)
  period.apply(d, ep, mean)
})
# set the list names to the file names
names(xtsList) <- files
# merge all the file data into one object, filling in NA with na.locf
x <- do.call(merge, c(xtsList, fill=na.locf))
# write out merged data
write.zoo(x, "path.csv", sep=",")
于 2013-07-27T14:01:01.590 回答