Verwenden Sie eine for-Schleife, um die Differenzzeit von der Zeile über

Question

zu erhalten. Ich fand eine post on reddit und es hat mich darüber nachdenken, wie Sie den Unterschied aus der obigen Zeile mit einer for-Schleife erhalten. Ich habe versucht, den Ansatz unten, aber nicht ganz nageln. Gibt es eine bessere Methode, um den Unterschied aus der Reihe oben, Daten oder Zahlen zu erreichen?

test <- data.frame(Dates=rbind("2006-08-07 19:33:02","2006-08-07 19:34:02","2006-10-10 19:33:02","2006-10-11 19:34:02" ,"2006-10-12 19:34:02","2006-10-13 19:34:02","2006-10-14 19:34:02")) 


for (i in 2:nrow(Dates)){ 
    difftime(i[2-1,],i) 
} 

Answer 1

Stellen Sie sicher, Ihre Daten zu einem aktuellen Datumsformat

test <- data.frame(Dates=rbind("2006-08-07 19:33:02","2006-08-07 19:34:02","2006-10-10 19:33:02","2006-10-11 19:34:02" ,"2006-10-12 19:34:02","2006-10-13 19:34:02","2006-10-14 19:34:02")) 

df <- test %>% mutate(Dates = as.POSIXct(Dates), 
         Diff = Dates - lag(Dates)) 
df 
       Dates  Diff 
1 2006-08-07 19:33:02 NA mins 
2 2006-08-07 19:34:02  1 mins 
3 2006-10-10 19:33:02 92159 mins 
4 2006-10-11 19:34:02 1441 mins 
5 2006-10-12 19:34:02 1440 mins 
6 2006-10-13 19:34:02 1440 mins 
7 2006-10-14 19:34:02 1440 mins 

Answer 2

Da viele R-Funktionen vektorisiert werden zu konvertieren, müssen Sie gar nicht eine Schleife, in diesem Fall.

Versuchen Sie folgendes:

test <- data.frame(Dates=rbind("2006-08-07 19:33:02","2006-08-07 19:34:02","2006-10-10 19:33:02","2006-10-11 19:34:02" ,"2006-10-12 19:34:02","2006-10-13 19:34:02","2006-10-14 19:34:02")) 

test$Dates <- as.POSIXct(test$Dates) 

diff(test$Dates) 

Das Ergebnis:

Time differences in mins 
[1]  1 92159 1441 1440 1440 1440