The data im working on :
> dput(head(data1)) structure(list(datetime_utc = c("2010-01-04 00:00:00", "2010-01-04 01:00:00", "2010-
