library(lubridate)
test <- data.frame(time_fac = c("1:38.109", "2:01.302", "0:23.12", "0:01"))
test$time_ms = as.numeric(lubridate::ms(as.character(test$time_fac)))*1000
as.character
используется для преобразования факторной переменной time_fac
в символ до того, как lubridate::ms
получит время в формате времени, которое преобразуется в числовое (в секундах) и умножается на 1000, чтобы получитьвремя в миллисекундах.
> test
time_fac time_ms
1 1:38.109 98109
2 2:01.302 121302
3 0:23.12 23120
4 0:01 1000