1

我希望将 10 分钟时间块转换为大向量的 1 分钟时间块。我的数据时间值以 10 分钟为间隔，表示以给定时间戳结束的 10 分钟时间块。下面的示例数据：

data<- structure(list(datetime = structure(1:7,  .Label = c("30/11/2011 02:32",
 "30/11/2011 02:42", "30/11/2011 02:52", "30/11/2011 03:02", "30/11/2011 03:12",
 "30/11/2011 03:22", "30/11/2011 03:32"), class = "factor"), count =
c(100L, 60L, 10L, 10L, 200L, 180L, 190L)), .Names = c("datetime", "count"), class =  
"data.frame", row.names = c(NA, -7L))

我已经成功地将 10 分钟的时间块转换为 1 分钟的块，在我的向量中的第一个和最后一个日期时间值之间，使用 xts 包如下：

data$datetime <- strptime(data$datetime, format="%d/%m/%Y %H:%M") 
data$datetime <- as.POSIXct(data$datetime)
data_xts <- as.xts(data, order.by=data$datetime)
dtmins <- seq(start(data_xts$datetime), end(data_xts$datetime), by = "1 min")

但是，由于时间值与​​ 10 分钟块的“结束”相关，我还需要在向量中的第一个日期时间行之前创建九行 1 分钟的日期时间值。我希望得到一个如下所示的输出向量（并继续到原始向量中的最后一个日期时间值）：

datetime
30/11/2011 02:23
30/11/2011 02:24
30/11/2011 02:25
30/11/2011 02:26
30/11/2011 02:27
30/11/2011 02:28
30/11/2011 02:29
30/11/2011 02:30
30/11/2011 02:31
30/11/2011 02:32
30/11/2011 02:33
30/11/2011 02:34
30/11/2011 02:35
30/11/2011 02:36
30/11/2011 02:37
etc...

我正在努力寻找解决方案。任何帮助将非常感激！

4

1 回答 1

2

只需将您的 xts 对象与您想要的时间序列合并即可。

Data <- structure(list(datetime=structure(c(1322641920, 1322642520, 1322643120,
  1322643720, 1322644320, 1322644920, 1322645520), class=c("POSIXct", "POSIXt"),
  tzone=""), count=c(100L, 60L, 10L, 10L, 200L, 180L, 190L)),
 .Names=c("datetime", "count"), row.names=c(NA, -7L), class="data.frame")

data_xts <- as.xts(Data[,-1], order.by=Data$datetime)
data_xts <- merge(data_xts, seq(start(data_xts)-60*9, end(data_xts), by="1 min"))

然后，如果需要，您可以使用na.locf或类似方法来填写缺失值。

data_xts <- na.locf(data_xts)
于 2013-07-01T15:25:11.453 回答