lubridate :: interval() returns for 循环中的数值一次

Question

我有上周工作的代码，本周不工作。我正在使用 lubridate::interval()，它非常适用于 for loop 之外的以下数据，但是一旦我将它放在 for loop 中，它就会变成 returns 数值比间隔。

# sample code
    sunset <- as.POSIXct(c("2019-11-05 19:12:17", "2019-11-06 19:13:04", "2019-11-07 19:13:51"), 
                     tz = "Pacific/Norfolk") 

sunrise <- as.POSIXct(c("2019-11-06 05:53:04", "2019-11-07 05:52:23", "2019-11-08 05:51:43"), 
                      tz = "Pacific/Norfolk")
# sample data frame

ds <- data.frame( "sunset" = sunset, 
                 "sunrise" = sunrise)

interval(start = ds$sunset[1],  # check the interval function is working
         end = ds$sunrise[1])

哪个returns:

[1] 2019-11-05 19:12:17 +12--2019-11-06 05:53:04 +12

但在 for 循环中：

for (i in seq_along(ds$sunset)) {
  
  ds$interval[i] <- interval(start = ds$sunset[i],
                                   end = ds$sunrise[i])
}

它returns:

> ds
               sunset             sunrise interval
1 2019-11-05 19:12:17 2019-11-06 05:53:04    38447
2 2019-11-06 19:13:04 2019-11-07 05:52:23    38359
3 2019-11-07 19:13:51 2019-11-08 05:51:43    38272

我试过将 interval() 部分包装在 as.interval() 中，但只是再次返回数值。我将不胜感激任何帮助。谢谢:)

Answer 1

您遇到的问题是您需要将 ds 的列预初始化为 class interval:

library(lubridate)

ds$interval <- rep(interval(as.POSIXct(NA,tz = "Pacific/Norfolk"),
                   as.POSIXct(NA,tz = "Pacific/Norfolk")),
                   3)

for (i in seq_along(ds$sunset)) {  
  ds$interval[i] <- interval(start = ds$sunset[i],
                                   end = ds$sunrise[i])
}
ds
#               sunset             sunrise                                         interval
#1 2019-11-05 19:12:17 2019-11-06 05:53:04 2019-11-05 07:12:17 UTC--2019-11-05 17:53:04 UTC
#2 2019-11-06 19:13:04 2019-11-07 05:52:23 2019-11-06 07:13:04 UTC--2019-11-06 17:52:23 UTC
#3 2019-11-07 19:13:51 2019-11-08 05:51:43 2019-11-07 07:13:51 UTC--2019-11-07 17:51:43 UTC

lubridate :: interval() returns for 循环中的数值一次

lubridate :: interval() returns numeric values once in a for loop

for-loop

r

lubridate