Конвертировать дату в факторы для последовательного анализа

Question

Я хочу преобразовать дату в фактор для последовательного анализа.

Я попробовал следующий код:

start_month <- '2019-01-01'



elapsed_month <- function(end_date, start_date) {
ed <- as.POSIXlt(end_date)
sd <- as.POSIXlt(start_date)
12 * (ed$year - sd$year) + (ed$mon - sd$mon)
}

trans_sequence$eventID <- elapsed_month(trans_sequence$repdate, 
start_month)

Но я получил следующий вывод:

Вместо этого я хочу следующий вывод:

Спасибо за помощь !!

Answer 1

Почему бы просто не использовать:

as.Date(trans_sequence$repdate)-as.Date('2019-01-01')

Пример:

cc<-as.Date(c("2019-01-02", "2019-01-03", "2019-01-04", "2019-01-05", "2019-01-06", "2019-01-07", "2019-01-08"))
cc
 [1] "2019-01-02" "2019-01-03" "2019-01-04" "2019-01-05"
 [5] "2019-01-06" "2019-01-07" "2019-01-08"
cc-as.Date('2019-01-01')
 Time differences in days
 [1] 1 2 3 4 5 6 7