Мы можем сделать что-то подобное в базе R:
# Convert to POSIXct
times <- as.POSIXct(time_array, format = "%H:%M:%S")
# Store in data.frame and flag entries
df <- data.frame(
time = time_array,
flag = as.numeric(
times > as.POSIXct("08:05:00", format = "%H:%M:%S") &
times < as.POSIXct("08:15:00", format = "%H:%M:%S")))
head(df);
# time flag
#1 08:05:02 1
#2 08:46:08 0
#3 09:13:54 0
#4 09:51:21 0
#5 10:07:31 0
#6 11:34:12 0
Пример данных
time_array <- c(
'08:05:02', '08:46:08', '09:13:54', '09:51:21', '10:07:31', '11:34:12',
'11:45:28', '12:18:14', '12:26:05', '12:58:35', '13:11:09', '14:14:29',
'15:28:47', '15:56:47', '16:22:06', '16:40:15', '18:15:00', '19:01:39',
'20:36:22', '21:16:27', '21:26:11', '21:43:06', '23:51:47', '00:18:35',
'01:02:37', '02:08:14', '02:52:09', '04:02:01', '04:37:46', '05:41:58',
'05:59:22', '07:22:07', '08:32:47', '09:13:23', '09:39:01', '10:19:35',
'11:53:18', '12:05:53', '12:18:42', '12:33:04', '13:16:19', '13:37:34',
'13:54:14', '14:31:39', '14:44:46', '15:26:23', '16:03:25', '17:21:44',
'18:00:24', '19:10:50', '19:44:01', '20:55:16', '21:09:06', '22:02:01',
'22:53:00', '23:19:43', '23:59:01', '01:39:20', '02:28:35', '02:41:08',
'02:57:42', '03:03:45', '03:10:13', '04:57:44', '06:00:59', '07:51:50',
'08:10:19', '08:23:24', '08:32:52', '09:37:47', '10:43:16', '11:17:07')