Berechnungen mit Minuten und Sekunden in R

Question

Ich bin neu in der R-Statistik-Software und röste Kaffee und zeichne verschiedene Ereignisse während des Prozesses auf. Nach dem Röstvorgang eine Berechnung und Analyse zu tun und leiten wichtige Dauern während der Laufzeit zu finden, die Zeitspanne zwischen Ereignissen Ich mag R verwenden - zum Beispiel:

• 00:00 starten
• 05:10 Yellow
• 07:15 Cinnamon
• 09:00 Erster Sprung
• 11:30 Ende der Röstung

(wenn Sie ein Kaffee-aussenseiter sind und möchten mehr über Kaffeeröstparameter wissen: https://coffee-mind.com/profile/)

Wie/in welchem ​​Format kann ich diese Ereignisse speichern und die Zeitspanne zwischen Ereignissen berechnen? Ich möchte die Zeitspanne in MM: SS zeigen, aber auch die gesamten Sekunden in einer MM: SS-Periode sehen. Ich habe mir die verschiedenen Pakete angeschaut (wie chron und lubridate), aber alle scheinen sich um Zeitzone, absolute Daten und so weiter zu kümmern und ich bin nur an Minuten und Sekunden interessiert (unabhängig von Tag und Zeitzone - nicht interessant überhaupt hier) und wie man Berechnungen wie einfache Subtraktionen an diesen aufgezeichneten Ereignissen durchführt. Ich bin nicht daran interessiert, wie man den Code schreibt, sondern in Funktionen (wie chron und lubridate), die bereits dafür entwickelt sind und wie man sie direkt benutzt (was ich auch für den allgemein interessantesten Ansatz für diese Community halte).)

Answer 1

lubridate bietet die Funktionalität arbeiten können, die Sie benötigen. Neben der Klasse POSIXct, die Datum und Uhrzeit enthält, bietet sie auch die Klasse period für die Dauer an. Sie können Ihre Zeit in %M:%S Format period wie folgt konvertieren:

library(lubridate) 
times <- c("00:00", "05:10", "07:15", "09:00", "11:30") 
ms(times) 
## [1] "0S"  "5M 10S" "7M 15S" "9M 0S" "11M 30S" 

Sie dann as.period() auf die Zeiteinheit konvertieren können Sie sich wünschen:

as.period(ms(times), unit = "sec") 
## [1] "0S" "310S" "435S" "540S" "690S" 

Wenn Sie jetzt auf numerische konvertieren, werden Sie Holen Sie sich die Sekunden als Zahlen:

Sie können jetzt die Differenz in Sekunden zwischen den Ereignissen miterhalten:

diff(seconds) 
##[1] 310 125 105 150 

anzumerken, dass es in anderen Formaten andere Varianten der Funktion ms() für Zeiten ist: hm() (% H:% M:% S) und hms() (% H:% M).

Answer 2

Nun, nicht sicher, ob das hilft, aber ich habe diese Funktion gemacht, wenn ich die Zeitspanne von Youtube-Videos in Sekunde konvertieren musste. Sie sind formatiert hh: mm: ss, so dass es für Sie, wenn Sie Eingabe einen Vektor mit Zeiten wie in Ihrem Beispiel

toseconds<-function(x){ 
    sec<-rep(NA,length(x)) 
    minu<-rep(NA,length(x)) 
    hodina<-rep(NA,length(x)) 
    total<-rep(NA,length(x)) 
    for (i in 1:length(x)) { 
    if (str_count(x[i],":")==2) { 
     sec[i]<-as.numeric(str_sub(str_replace(x[i],":",""),str_locate(str_replace(x[i],":",""),":")[ ,1]+1)) 
     minu[i]<-as.numeric(str_sub(x[i],str_locate(x[i],":")[ ,1]+1,str_locate(x[i],":")[ ,1]+2)) 
     hodina[i]<-as.numeric(str_sub(x[i],1,str_locate(x[i],":")[ ,1]-1)) 
    } else { 
     sec[i]<- as.numeric(str_sub(x[i],str_locate(x[i],":")[ ,1]+1)) 
     minu[i]<-as.numeric(str_sub(x[i],1,str_locate(x[i],":")[ ,1]-1)) 
     hodina[i]<-0 
    } 

    total[i]<-hodina[i]*3600+minu[i]*60+sec[i] 
    } 

    total 
} 

Answer 3

Laden eine andere Bibliothek zu vermeiden ...

MinSeg=function(fim, ini){ 
    dif=as.numeric(difftime(fim, ini, units='min')) 
    return(paste0(sprintf('%02d', as.integer(dif)), ":" 
       ,sprintf('%02.0f', (dif-as.integer(dif))*60))) 
} 
ini=Sys.time() 
fim=Sys.time() 
MinSeg(fim,ini) 
[1] "00:03"