r - 順次分析のために日付を係数に変換する

Question

Date を逐次分析用の factor に変換したい。

次のコードを試しました：

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)

しかし、私は次の出力を得ました：

代わりに、次の出力が必要です。

ご協力ありがとうございました ！！