R Trouvez le décalage horaire en secondes pour le format AAAA-MM-JJ HH: MM: SS.MMM

J'essaie de soustraire 2 caractère vecteurs contenant la date de l'information en temps dans le format suivant:

> dput(train2)

structure(list(time2 = c("2011-09-01 23:44:52.533", "2011-09-05 12:25:37.42", 
"2011-08-24 12:56:58.91", "2011-10-25 07:18:14.722", "2011-10-25 07:19:51.697"
), time3 = c("2011-09-01 23:43:59.752", "2011-09-05 12:25:01.187", 
"2011-08-24 12:55:13.012", "2011-10-25 07:16:51.759", "2011-10-25 07:16:51.759"
)), .Names = c("time2", "time3"), row.names = c(NA, 5L), class = "data.frame")

J'ai chassé autour et a joué avec zooas.Dateas.POSIXctetc. pour essayer et trouver le bon code pour soustraire 2 datetime objets et d'obtenir une réponse en quelques secondes, mais sans succès.

J'apprécierais toutes les suggestions.

source d'informationauteur screechOwl | 2012-09-26

  1. 15

    Facile comme bonjour:

    R> now <- Sys.time()
R> then <- Sys.time()
R> then - now
Time difference of 5.357 secs
R> class(then - now)
[1] "difftime"
R> as.numeric(then - now)
[1] 5.357
R>

    Et pour vos données:

    R> df
                    time2                   time3
1 2011-09-01 23:44:52.533 2011-09-01 23:43:59.752
2  2011-09-05 12:25:37.42 2011-09-05 12:25:01.187
3  2011-08-24 12:56:58.91 2011-08-24 12:55:13.012
4 2011-10-25 07:18:14.722 2011-10-25 07:16:51.759
5 2011-10-25 07:19:51.697 2011-10-25 07:16:51.759
R> df$time2 <- strptime(df$time2, "%Y-%m-%d %H:%M:%OS")
R> df$time3 <- strptime(df$time3, "%Y-%m-%d %H:%M:%OS")
R> df
                    time2                   time3
1 2011-09-01 23:44:52.533 2011-09-01 23:43:59.752
2 2011-09-05 12:25:37.420 2011-09-05 12:25:01.187
3 2011-08-24 12:56:58.910 2011-08-24 12:55:13.012
4 2011-10-25 07:18:14.722 2011-10-25 07:16:51.759
5 2011-10-25 07:19:51.697 2011-10-25 07:16:51.759
R> df$time2 - df$time3
Time differences in secs
[1]  52.781  36.233 105.898  82.963 179.938
attr(,"tzone")
[1] ""
R>

    et ajouté comme un numérique à la trame de données:

    R> df$dt <- as.numeric(df$time2 - df$time3)
R> df
                    time2                   time3      dt
1 2011-09-01 23:44:52.533 2011-09-01 23:43:59.752  52.781
2 2011-09-05 12:25:37.420 2011-09-05 12:25:01.187  36.233
3 2011-08-24 12:56:58.910 2011-08-24 12:55:13.012 105.898
4 2011-10-25 07:18:14.722 2011-10-25 07:16:51.759  82.963
5 2011-10-25 07:19:51.697 2011-10-25 07:16:51.759 179.938
R>
  2. 16
    >  x1<-"2013-03-03 23:26:46.315" 
>  x2<-"2013-03-03 23:31:53.091"
>  x1 <- strptime(x1, "%Y-%m-%d %H:%M:%OS")
>  x2 <- strptime(x2, "%Y-%m-%d %H:%M:%OS")
> x1
[1] "2013-03-03 23:26:46"
> x2
[1] "2013-03-03 23:31:53"

    J'ai suivi la réponse de @Dirk Eddelbuettel, mais je suis de perdre de la précision. Comment puis-je la force de R pour ne pas être en coupant des pièces de seconde?

    Heureusement (homme de strptime) j'ai répondu à ma question à moi-même:

    op <- options(digits.secs = 3)

    Après l'application de ce cadre, la précision sera utilisé.

    http://stat.ethz.ch/R-manual/R-devel/library/base/html/strptime.html

    La belowe peut être utile si vous souhaitez obtenir de différence en quelques secondes, mais l'obtenir en quelques minutes:

    > as.numeric(x2-x1,units="secs")
[1] 306.776