如何確定一個時間是否在 R 中的其他兩個時間之間？

Question

這是我的 dataframe：

  TIME      data   sunrise     sunset     
  <chr>     <chr>  <chr>       <chr>      
1 6:00 AM   ddd    07:19:53 AM 04:41:13 PM
2 1:15 PM   fff    07:19:53 AM 04:41:13 PM
3 01:00 AM  rrrr   07:19:52 AM 04:42:08 PM
4 10:28 AM  btv    07:19:52 AM 04:42:08 PM
5 11:45 AM  gored  07:19:52 AM 04:42:08 PM

我想創建一個新列來指示TIME是否介於sunrise和sunset之間。

我認為它會像 ifelse 一樣簡單，但這不起作用，我認為這是因為角色......

df  %>% 
  mutate(daylight = ifelse(between(TIME, sunrise,sunset) == TRUE,1,0))

它應該如下所示：

  TIME      data   sunrise     sunset       daylight
  <chr>     <chr>  <chr>       <chr>      
1 6:00 AM   ddd    07:19:53 AM 04:41:13 PM  0
2 1:15 PM   fff    07:19:53 AM 04:41:13 PM  1
3 01:00 AM  rrrr   07:19:52 AM 04:42:08 PM  0
4 10:28 AM  btv    07:19:52 AM 04:42:08 PM  1
5 11:45 AM  gored  07:19:52 AM 04:42:08 PM  1

數據

df <- structure(list(TIME = c("6:00 AM", "1:15 PM", "1:00 AM", "10:28 AM", 
"11:45 AM"), sunrise = c("07:19:53 AM", "07:19:53 AM", "07:19:52 AM", 
"07:19:52 AM", "07:19:52 AM"), sunset = c("04:41:13 PM", "04:41:13 PM", 
"04:42:08 PM", "04:42:08 PM", "04:42:08 PM")), row.names = c(NA, 
-5L), groups = structure(list(.rows = structure(list(1L, 2L, 
    3L, 4L, 5L), ptype = integer(0), class = c("vctrs_list_of", 
"vctrs_vctr", "list"))), row.names = c(NA, -5L), class = c("tbl_df", 
"tbl", "data.frame")), class = c("rowwise_df", "tbl_df", "tbl", 
"data.frame"))

Answer 1

我們使用 POSIXct 轉換為日期時間POSIXct ，將其更改為ITime並進行比較

library(dplyr)
library(data.table)
df %>%
   mutate(TIME = as.ITime(as.POSIXct(TIME, format = '%I:%M %p')), 
          sunrise = as.ITime(as.POSIXct(sunrise, format = '%I:%M:%S %p')), 
          sunset = as.POSIXct(sunset, format = '%I:%M:%S %p'), 
          daylight = as.integer(TIME >= sunrise & TIME <= sunset))
#      TIME  data  sunrise              sunset daylight
#1 06:00:00   ddd 07:19:53 2020-07-13 16:41:13        0
#2 13:15:00   fff 07:19:53 2020-07-13 16:41:13        1
#3 01:00:00  rrrr 07:19:52 2020-07-13 16:42:08        0
#4 10:28:00   btv 07:19:52 2020-07-13 16:42:08        1
#5 11:45:00 gored 07:19:52 2020-07-13 16:42:08        1

數據

df <- structure(list(TIME = c("6:00 AM", "1:15 PM", "01:00 AM", "10:28 AM", 
"11:45 AM"), data = c("ddd", "fff", "rrrr", "btv", "gored"), 
    sunrise = c("07:19:53 AM", "07:19:53 AM", "07:19:52 AM", 
    "07:19:52 AM", "07:19:52 AM"), sunset = c("04:41:13 PM", 
    "04:41:13 PM", "04:42:08 PM", "04:42:08 PM", "04:42:08 PM"
    )), class = "data.frame", row.names = c("1", "2", "3", "4", 
"5"))