Berechnungen mit Minuten und Sekunden im R

Ich bin neu in der R-Statistik-software und die I-roast-Kaffees und die aufgezeichnete Ereignisse während des Prozesses. Nach dem rösten, ich würde gerne verwenden Sie R, um einige der Berechnung und Analyse, und leiten daraus wichtige Laufzeiten während des Zeitraums, indem die Zeitspanne zwischen den Veranstaltungen - zum Beispiel:

00:00 Start
05:10 Gelb
07:15 Zimt
09:00 Der Erste Riss
11:30 Ende des röstvorgangs

(wenn Sie ein Kaffee-geek und wollen mehr wissen über Kaffee, rösten Parameter: https://coffee-mind.com/profile/)

Wie/zu welchem format kann ich diese speichern die Ereignisse und die Berechnung der Zeitspanne zwischen den Ereignissen? Ich möchte zeigen, dass die Zeitspanne, in MM:SS, sondern auch die Gesamtanzahl der Sekunden in einem MM:SS Zeit. Ich schaue mir die verschiedenen Pakete (wie Morbus chron und lubridate), aber Sie scheinen alle zu sein, die sich mit Zeit-zone, absolute Termine und so weiter, und ich bin nur daran interessiert, Minuten und Sekunden (unabhängig von Tag und Uhrzeit zone - überhaupt nicht interessant hier) und wie man Berechnungen wie einfache Abzüge auf diese aufgezeichneten Ereignisse.
Ich bin nicht daran interessiert, 'wie den code zu schreiben", sondern in Funktionen (wie Morbus chron und lubridate), die sind schon dafür ausgelegt, und wie um Sie direkt zu benutzen (was ich auch annehmen, ist das meistens interessanter Ansatz für diese Gemeinschaft?)

InformationsquelleAutor Morten Münchow | 2016-05-29

duration r seconds time

5

lubridate bietet die Funktionalität, die Sie benötigen. Zusätzlich zu den POSIXct - Klasse, die enthält Datum und Zeit, es bietet auch die Klasse period für die Dauer. Sie können konvertieren Sie Ihre Zeiten in %M:%S format period wie folgt:
```
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"
```
Dann können Sie as.period() zu konvertieren, um die Zeiteinheit, die Sie wünschen:
```
as.period(ms(times), unit = "sec")
## [1] "0S"   "310S" "435S" "540S" "690S"
```
Wenn Sie konvertieren numerische nun, Sie werden die Sekunden als zahlen:
```
seconds <- as.numeric(as.period(ms(times), unit = "sec"))
seconds
## [1]   0 310 435 540 690
```
Können Sie bekommen nun die Differenz in Sekunden zwischen den Ereignissen mit diff() :
```
diff(seconds)
##[1] 310 125 105 150
```
Beachten Sie, dass es andere Varianten der Funktion ms() mal in anderen Formaten: hm() (%H:%M:%S) und hms() (%H:%M).
- Super!!! Ich werde es ausprobieren 🙂
- Ich hatte das kleine Problem, dass meine Zeiten in der Röstung von Kaffee sind in Minuten und nicht in Stunden, so habe ich einige wirklich große Werte an, wenn Sie versuchen, die obigen code. Ich fand heraus, dass die hms-Funktion war das richtige zu tun, für Kaffee rösten, da es interpretiert 05:10 'fünf Minuten und 10 Sekunden", wo der hm Funktion interpretiert es als " 5 Stunden und 10 Minuten. Vielen Dank für Ihren text, gelöst ist meine Frage völlig mit der hm -> hms als einzige änderung die ich vornehmen musste, damit es funktioniert für meine Zwecke! Wenn Sie jemals in Kopenhagen können Sie einen braten-Klasse für freie 🙂 coffee-mind.com/shop
- Tut mir Leid für diesen Fehler. Ich war nicht vorsichtig genug, beim Lesen Ihrer Frage und einfach angenommen, du meintest, %H:%M. ich bin froh, dass Sie selbst eingerechnet, wie die Anpassung der Lösung, aber ich habe noch einige änderungen vorgenommen, um die Antwort. Viel Glück mit deinem Kaffee!
- Dank Stibu! Sehr geschätzt 🙂
InformationsquelleAutor Stibu

Auch nicht sicher, ob das hilft, aber ich habe diese Funktion, wenn ich brauchte, um zu konvertieren Zeitspanne von youtube-videos auf den zweiten. Sie sind formatiert mit hh:mm:ss, so könnte es für Sie arbeiten, wenn Sie die Eingabe ein Vektor mit den Zeiten wie in deinem 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
}

Vielen Dank für den code 🙂

InformationsquelleAutor Tomas H

vermeiden, laden andere Bibliothek...

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"

InformationsquelleAutor xm1

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.