2

我有两个包含时间序列数据的 CSV 文件。我想将两者合并到一个文件中。File1 具有 1 分钟间隔的周期性数据。File2 具有非周期性的事件触发数据。File2 中数据的时间戳可能与 File1 中的数据一致，也可能不一致。我想合并这两个数据集以创建一个数据集，其时间戳是 Data1 和 Data2 的并集。对于两者都不通用的时间戳，我希望将相应数据集的缺失条目指示为 NA。

这是 File1 的示例输入： 

     Time                 A1  A2       
  2013-08-05 00:00:00     2   1               
  2013-08-05 00:01:00     2   1                      
  2013-08-05 00:02:00     1   1

这是 File2 的示例输入： 

     Time               B1     B2       B3
2013-08-01 12:10:21       5     1          1    
2013-08-05 00:02:00       5     1          1                
2013-08-05 12:13:44      14     1          2

预期输出如下：

  Time                 A1   A2      B1     B2       B3
2013-08-01 12:10:21    NA    NA     5     1          1    
2013-08-05 00:00:00    2     1      NA    NA         NA  
2013-08-05 00:01:00    2     1      NA    NA         NA        
2013-08-05 00:02:00    1      1     5     1          1 
2013-08-05 12:13:44    NA    NA     14     1          2

我使用了merge.zoo，也尝试了本论坛其他相关帖子所建议的merge.xts。但我没有得到预期的输出。这是我使用的代码。 

A <- read.zoo(read.csv("File1.csv", header=TRUE));
B <- read.zoo(read.csv("File2.csv", header=TRUE));
C <- merge.zoo(A,B);

我将不胜感激您能提供的任何帮助。谢谢你。

4

1 回答 1

2

在文件中读取的行应该被替换，如下所示：

> A <- read.zoo("File1.csv", header = TRUE, tz = "", sep = ",")
> B <- read.zoo("File2.csv", header = TRUE, tz = "", sep = ",")
> merge(A, B)
                    A1 A2 B1 B2 B3
2013-08-01 12:10:21 NA NA  5  1  1
2013-08-05 00:00:00  2  1 NA NA NA
2013-08-05 00:01:00  2  1 NA NA NA
2013-08-05 00:02:00  1  1  5  1  1
2013-08-05 12:13:44 NA NA 14  1  2

这是可复制的形式：

Lines1 <- "   Time,                A1,  A2       
  2013-08-05 00:00:00,    2,  1               
  2013-08-05 00:01:00,    2,  1                      
  2013-08-05 00:02:00,    1,  1  
"

Lines2 <- " Time,              B1,    B2,      B3
2013-08-01 12:10:21,       5,    1,          1    
2013-08-05 00:02:00,      5,    1,          1                
2013-08-05 12:13:44,     14,    1,          2   
"

library(zoo)
A <- read.zoo(text = Lines1, header = TRUE, tz = "", sep = ",")
B <- read.zoo(text = Lines2, header = TRUE, tz = "", sep = ",")
merge(A, B)
于 2013-09-07T04:10:33.730 回答