R：加入两个时间序列

Question

关于在R中加入时间序列表的问题...

我有以下两个数据框； “到达”和“临时”（见下文）。 “arrivals”描述了到达数据包的日期/时间/大小，而“temps”具有每分钟的温度数据。我想做的是在“arrivals”中添加一个列，arrivals$tempAtArrivalTime，它列出了给定到达时间的当前温度。例如，对于第一次到达，在 8:39:04，我希望相应的“tempAtArrivalTime”为 76（最近记录的温度，在 8:39:00）。最简单的方法是什么？谢谢！

>arrivals
           date     time size of arrival
2012 2013-09-09 08:39:04              15
2013 2013-09-09 08:43:15               3
2014 2013-09-09 08:47:50               7
2015 2013-09-09 08:54:47              10

> temps
      date     time temperature
2013-09-09 08:33:00          76
2013-09-09 08:34:00          75
2013-09-09 08:35:00          74
2013-09-09 08:36:00          75
2013-09-09 08:37:00          76
2013-09-09 08:38:00          76
2013-09-09 08:39:00          76
2013-09-09 08:40:00          76
2013-09-09 08:41:00          77
2013-09-09 08:42:00          78
2013-09-09 08:43:00          77
2013-09-09 08:44:00          78
2013-09-09 08:45:00          77
2013-09-09 08:46:00          77
2013-09-09 08:47:00          77
2013-09-09 08:48:00          77
2013-09-09 08:49:00          78
2013-09-09 08:50:00          79
2013-09-09 08:51:00          80
2013-09-09 08:52:00          80
2013-09-09 08:53:00          79
2013-09-09 08:54:00          78

Answer 1

试试这个：

library(zoo)
arrivals.z <- read.zoo(arrivals, index = 1:2, tz = "")
temp.z <- read.zoo(temp, index = 1:2, tz = "")

na.locf(merge(arrivals.z, temp.z))[time(arrivals.z)]

给出：

                    arrivals.z temp.z
2013-09-09 08:39:04         15     76
2013-09-09 08:43:15          3     77
2013-09-09 08:47:50          7     77
2013-09-09 08:54:47         10     78

注意：为了得到arrivals 和temp，我们使用了这个。 （下次请使用dput 以可重现的形式提供输入。）

Lines1 <- " date     time size of arrival
2012 2013-09-09 08:39:04              15
2013 2013-09-09 08:43:15               3
2014 2013-09-09 08:47:50               7
2015 2013-09-09 08:54:47              10
"

Lines2 <- "      date     time temperature
2013-09-09 08:33:00          76
2013-09-09 08:34:00          75
2013-09-09 08:35:00          74
2013-09-09 08:36:00          75
2013-09-09 08:37:00          76
2013-09-09 08:38:00          76
2013-09-09 08:39:00          76
2013-09-09 08:40:00          76
2013-09-09 08:41:00          77
2013-09-09 08:42:00          78
2013-09-09 08:43:00          77
2013-09-09 08:44:00          78
2013-09-09 08:45:00          77
2013-09-09 08:46:00          77
2013-09-09 08:47:00          77
2013-09-09 08:48:00          77
2013-09-09 08:49:00          78
2013-09-09 08:50:00          79
2013-09-09 08:51:00          80
2013-09-09 08:52:00          80
2013-09-09 08:53:00          79
2013-09-09 08:54:00          78
"

arrivals <- read.table(text = Lines1, skip = 1)[, -1]
temp <- read.table(text = Lines2, header = TRUE)