Modérateur : Groupe des modérateurs
Code : Tout sélectionner
> dfr <- read.table(text = "Date
+ 10/09/2013
+ 10/09/2013
+ 13/09/2013
+ 13/09/2013
+ 21/09/2013
+ 21/09/2013", header = TRUE)
>
> dfr$Date <- as.Date(as.character(dfr$Date), format = "%d/%m/%Y")
> dfr$ecart <- as.numeric(dfr$Date - dfr$Date[1])
> dfr
Date ecart
1 2013-09-10 0
2 2013-09-10 0
3 2013-09-13 3
4 2013-09-13 3
5 2013-09-21 11
6 2013-09-21 11
Code : Tout sélectionner
dfr <- read.table(text = "Date
+ 10/09/2013
+ 10/09/2013
+ 13/09/2013
+ 13/09/2013
+ 21/09/2013
+ 21/09/2013", header = TRUE)
dfr$Date <- as.Date(as.character(dfr$Date), format = "%d/%m/%Y")
difftime(dfr$Date[-1],dfr$Date[-nrow(dfr)],units="days")
Time differences in days
[1] 0 3 0 8 0
Error in `$<-.data.frame`(`*tmp*`, "temps", value = c(5443200, -29116800, :
replacement has 75 rows, data has 76
Code : Tout sélectionner
c(NA,difftime(dfr$Date[-1],dfr$Date[-nrow(dfr)],units="days"))
Code : Tout sélectionner
#construction d'un jeu de données désordonnées pour l'exemple
dfr<-structure(list(Date = structure(c(15959, 15958, 15961, 15950,
15969, 15969), class = "Date")), .Names = "Date", row.names = c(NA,
-6L), class = "data.frame")
dfr
Date
1 2013-09-11
2 2013-09-10
3 2013-09-13
4 2013-09-02
5 2013-09-21
6 2013-09-21
library(dplyr)
dfr %>% arrange(Date) %>% mutate(Ecart=difftime(Date, lag(Date),units="days"))
Date Ecart
1 2013-09-02 NA days
2 2013-09-10 8 days
3 2013-09-11 1 days
4 2013-09-13 2 days
5 2013-09-21 8 days
6 2013-09-21 0 days
Retourner vers « Questions en cours »
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité