Пакет lubridate
имеет приятные функции, такие как hour()
, year()
и т. Д., Которые извлекают соответствующий компонент объекта даты. Вот пример того, как вы могли бы использовать это для создания нового столбца в наборе данных игрушек с 24-часовым временем и использовать ifelse()
, который является векторизованным if
, чтобы классифицировать время как раннее, если оно до 06 : 00: 00
fake_times <- data.frame(time = as.POSIXct('2018-04-01 00:00:01') + (0:23) * 3600)
library(lubridate)
fake_times$hour <- hour(fake_times$time)
fake_times$timeperiod <- ifelse(fake_times$hour < 6, 'early', 'late')
Вывод выглядит следующим образом.
time hour timeperiod
1 2018-04-01 00:00:01 0 early
2 2018-04-01 01:00:01 1 early
3 2018-04-01 02:00:01 2 early
4 2018-04-01 03:00:01 3 early
5 2018-04-01 04:00:01 4 early
6 2018-04-01 05:00:01 5 early
7 2018-04-01 06:00:01 6 late
8 2018-04-01 07:00:01 7 late
9 2018-04-01 08:00:01 8 late
10 2018-04-01 09:00:01 9 late
11 2018-04-01 10:00:01 10 late
12 2018-04-01 11:00:01 11 late
13 2018-04-01 12:00:01 12 late
14 2018-04-01 13:00:01 13 late
15 2018-04-01 14:00:01 14 late
16 2018-04-01 15:00:01 15 late
17 2018-04-01 16:00:01 16 late
18 2018-04-01 17:00:01 17 late
19 2018-04-01 18:00:01 18 late
20 2018-04-01 19:00:01 19 late
21 2018-04-01 20:00:01 20 late
22 2018-04-01 21:00:01 21 late
23 2018-04-01 22:00:01 22 late
24 2018-04-01 23:00:01 23 late