le calcul de la différence de temps dans la R

J'ai une de données avec plus de 3 millions d'enregistrements d'avoir commencer.et la fin de l'.le temps que les deux variables. Les 10 premières obs sont comme suit:

   start.date start.time   end.date end.time
1  2012-07-13   15:01:32 2012-07-13 15:02:42
2  2012-07-05   18:26:31 2012-07-05 18:27:19
3  2012-07-14   20:23:21 2012-07-14 20:24:11
4  2012-07-29   16:09:54 2012-07-29 16:10:48
5  2012-07-21   14:58:32 2012-07-21 15:00:17
6  2012-07-04   15:36:31 2012-07-04 15:37:11
7  2012-07-22   18:28:31 2012-07-22 18:28:50
8  2012-07-09   21:08:42 2012-07-09 21:09:02
9  2012-07-05   09:44:52 2012-07-05 09:45:05
10 2012-07-02   18:50:47 2012-07-02 18:51:38

J'ai besoin de calculer la différence entre le départ.et la fin de l'.temps.

J'ai utilisé le code suivant:

mbehave11$diff.time <- difftime(mbehave11$end.time, mbehave11$start.time, units="secs")

Mais j'obtiens cette erreur:

Error in as.POSIXlt.character(x, tz, ...) : 
  character string is not in a standard unambiguous format
In addition: Warning messages:
1: In is.na.POSIXlt(strptime(xx, f <- "%Y-%m-%d %H:%M:%OS", tz = tz)) :
  Reached total allocation of 1535Mb: see help(memory.size)
InformationsquelleAutor user1702490 | 2012-09-29
  1. 39

    Vous doit tourner vos chaînes dans la date objets avant que vous pouvez faire de la date/heure de l'arithmétique. Essayez ceci:

    a) la Lecture de vos données:

    R> dat <- read.table(textConnection("start.date start.time end.date end.time
2012-07-13   15:01:32 2012-07-13 15:02:42
2012-07-05   18:26:31 2012-07-05 18:27:19 
2012-07-14   20:23:21 2012-07-14 20:24:11"), header=TRUE)

    b) de Travailler sur une observation:

     R>  strptime( paste(dat[,1], dat[,2]), "%Y-%m-%d %H:%M:%S")
 [1] "2012-07-13 15:01:32" "2012-07-05 18:26:31" "2012-07-14 20:23:21"

    c) Travail sur le plateau, de la conversion au numérique:

     R> as.numeric(difftime(strptime(paste(dat[,1],dat[,2]),"%Y-%m-%d %H:%M:%S"),
                        strptime(paste(dat[,3],dat[,4]),"%Y-%m-%d %H:%M:%S"))) 
 [1] -70 -48 -50
 R>
    • mais que serait le résultat signifie? Je veux dire le résultat -70 -48 -50.. comment puis-je interpréter comme différence en quelques minutes?
    • Voir help(difftime) -- il y a une unités argument qui, par défaut, à la deuxième, et que vous pouvez remplacer. Mais juste pour vérifier, regardez à -70 dans la première ligne et de penser à ce que la différence de temps dans la première rangée de vous définir est: soixante-dix secondes. Si vous voulez minutes, utilisez units="min"). C'est tout simple.
    InformationsquelleAutor Dirk Eddelbuettel
  2. 0

    Je pense que vous pouvez utiliser le lubridate paquet

    il a une méthode appelée ymd_hms

    vous pouvez l'utiliser pour obtenir le temps de chaîne:
    il est beaucoup plus rapide pour grand ensemble de données

    library(lubridate)
dat <- read.table(textConnection("start.date start.time end.date end.time
2012-07-13   15:01:32 2012-07-13 15:02:42
2012-07-05   18:26:31 2012-07-05 18:27:19 
2012-07-14   20:23:21 2012-07-14 20:24:11"), header=TRUE)
starttime = ymd_hms(paste(dat[,1], dat[,2]))
endtime = ymd_hms(paste(dat[,3], dat[,4]))
interval = difftime(endtime,starttime,units = "secs")

    ou vous pouvez le faire en une seule ligne, mais cela prend plus de temps pour les très gros fichiers:

    difftime(paste(dat[,3], dat[,4]),paste(dat[,1], dat[,2]),units = "secs")
    InformationsquelleAutor cloudscomputes