Search code examples
rdatetimechron

R / chron - data.frame tag by time-range

First question to stackoverflow so apologies if I don't follow etiquette...

I have a table df similar to the following:

subject_id date_time
1          1999-10-20 19:08:00
2          1983-03-16 00:28:14
....

I'm trying to add further columns to flag the day of the event (which I've figured out using wday) but I need a further flag for whether the event was in working hours (i.e. between 0800 and 1700). So far I can extract the hour from date_time using

df$hour = as.numeric(format(df$date_time, "%H"))

but I'm struggling to add a column to the end of df which would be conditional 0 (in hours) or 1 based on df$hour. Could anyone point me in the right direction? Thanks!

Solution

  • Since you are already using chron: 

    library(dplyr)
library(chron)
df <- df%>% mutate(Hour = hours(date_time), Value = ifelse((Hour > 7 & Hour < 18), 0, 1))