dates<-c('2016-09-01', '2016-09-01', '2016-09-01', '2016-09-02', '2016-09-02', '2016-09-03', '2016-09-03', '2016-09-04', '2016-09-05', '2016-09-05', '2016-09-05', '2016-09-05', '2016-09-06', '2016-09-07')
Учитывая приведенные выше даты в виде символьных строк, преобразуйте их в Date
:
dates<-as.Date(dates,format = '%Y-%m-%d')
dates
# [1] "2016-09-01" "2016-09-01" "2016-09-01" "2016-09-02" "2016-09-02" "2016-09-03" "2016-09-03" "2016-09-04" "2016-09-05"
#[10] "2016-09-05" "2016-09-05" "2016-09-05" "2016-09-06" "2016-09-07"
Затем просто вычтите из минимальной / первой даты:
hrs<-as.numeric(dates-min(dates))*24
hrs
# [1] 0 0 0 24 24 48 48 72 96 96 96 96 120 144
Или первое свидание:
hrs<-as.numeric(dates-dates[1])*24
hrs
# [1] 0 0 0 24 24 48 48 72 96 96 96 96 120 144