R: Konwersja godziny: minuty: sekundy

Question

Mam wektor „Time.Training” w formacie godziny: minuty: sekundy (np

Time.Training<- c("1:00:00", "0:45:00", "0:30:00", "1:30:00") 

Chciałbym przekonwertować to do minut w formacie:

Time.Training.Minutes<-c(60, 45, 30, 90) 

Zastanawiam się, czy ktoś posiada prosty sposób robić to w R.

Wielkie dzięki.

Matt

Answer 1

Oto kilka alternatyw:

1) CH Pakiet ron ma "times" klasy, w której jedna jednostka jest dzień i jest 60 * 24 minut na dzień, tak:

library(chron) 
60 * 24 * as.numeric(times(Time.Training)) 

podaniem:

[1] 60 45 30 90 

1a) Inny sposób korzystania Kron jest następujące (dając ta sama odpowiedź):

library(chron) 

ch <- times(Time.training) 
60 * hours(ch) + minutes(ch) 

2) Oto podejście za pomocą read.table i mnożenie macierzy/wektora. potrzebne żadne pakiety są:

c(as.matrix(read.table(text = Time.Training, sep = ":")) %*% c(60, 1, 1/60)) 

(Korzystanie "POSIXlt" jest chyba podejście najbardziej prosta bez pakietów, ale inna odpowiedź już przewiduje, że.)

Answer 2

Spróbuj tego. W zasadzie konwersji do POSIXlt klasy najpierw przez wklejenie prawdziwe datę do wektora przy użyciu funkcji Sys.Date() (ponieważ nie ma klasy godzin w bazie R), a następnie za pomocą hour i min argumentów w celu osiągnięcia ekranu o

Res <- as.POSIXlt(paste(Sys.Date(), Time.Training)) 
Res$hour*60 + Res$min 
## [1] 60 45 30 90 

Answer 3

Korzystanie lubridate:

Time.Training<- c("1:00:00", "0:45:00", "0:30:00", "1:30:00") 

library(lubridate) 
res <- hms(Time.Training)  # format to 'hours:minutes:seconds' 
hour(res)*60 + minute(res)  # convert hours to minutes, and add minutes 
## [1] 60 45 30 90 

Answer 4

Zastosowanie as.difftime:

> Time.Training<- c("1:00:00", "0:45:00", "0:30:00", "1:30:00") 
> strtoi(as.difftime(Time.Training, format = "%H:%M:%S", units = "mins")) 
[1] 60 45 30 90