I have a df as follows:
df <- data.frame( value = c(1,2,3,4), date_time = c(2016-11-15 13:30:00, 2016-11-15 14:30:00, , 2016-1