Как определить, находится ли время между двумя другими временами в R? - PullRequest
Новая
       37

Как определить, находится ли время между двумя другими временами в R?

1 голос
/ 13 июля 2020

Вот мой фрейм данных: 

  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

DATA 

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"))

1 Ответ

1 голос
/ 14 июля 2020

Мы конвертируем в класс datetime с помощью 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

data 

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"))
...