Date difference calcuation in R -
i have weird formatting date , time data, , need calculate difference in r. appreciated. thanks.
timestart timeend may 1 2016 1:00am may 1 2016 1:28am may 1 2016 1:01am may 1 2016 1:21am may 1 2016 1:00pm may 1 2016 1:13pm may 1 2016 1:00pm may 4 2016 5:42pm may 1 2016 1:02pm may 1 2016 1:37pm may 1 2016 1:02pm may 1 2016 1:14pm may 1 2016 1:02pm may 1 2016 1:39pm may 1 2016 1:02pm may 1 2016 1:18pm
take @ ?strptime see how format date/time objects.
library(data.table) dat <- read.table(text = "may 1 2016 1:00am may 1 2016 1:28am may 1 2016 1:01am may 1 2016 1:21am may 1 2016 1:00pm may 1 2016 1:13pm may 1 2016 1:00pm may 4 2016 5:42pm may 1 2016 1:02pm may 1 2016 1:37pm may 1 2016 1:02pm may 1 2016 1:14pm may 1 2016 1:02pm may 1 2016 1:39pm may 1 2016 1:02pm may 1 2016 1:18pm") dat2 <- setdt(dat)[ , list(start = paste(v1, v2, v3, v4), end = paste(v5, v6, v7, v8))] dat2[] <- lapply(dat2, as.posixct, format = "%b %d %y %h:%m%p") dat2[ , diff := end - start] dat2 # start end diff # 1: 2016-05-01 01:00:00 2016-05-01 01:28:00 28 mins # 2: 2016-05-01 01:01:00 2016-05-01 01:21:00 20 mins # 3: 2016-05-01 01:00:00 2016-05-01 01:13:00 13 mins # 4: 2016-05-01 01:00:00 2016-05-04 05:42:00 4602 mins # 5: 2016-05-01 01:02:00 2016-05-01 01:37:00 35 mins # 6: 2016-05-01 01:02:00 2016-05-01 01:14:00 12 mins # 7: 2016-05-01 01:02:00 2016-05-01 01:39:00 37 mins # 8: 2016-05-01 01:02:00 2016-05-01 01:18:00 16 mins
Comments
Post a Comment