J'ai un soucis avec la fonction %within% de lubridate.
J'ai deux dataframe comme ci après :
Code : Tout sélectionner
df1 <- data.frame(a=c("2021-02-15 01:17","2021-05-30 03:33"),b=c("2021-02-15 01:27","2021-05-30 03:33"),eol=c("E01","E01"),Intervalle_df2=NA)
df2 <- data.frame(Timestamp.start=c("15/02/2021 01:15","15/02/2021 01:22"),Timestamp.end=c("15/02/2021 02:36","15/02/2021 01:32"),Duration=c("01:21","00:10"),eol=c("E01","E01"))
J'aimerai dans un premier temps savoir si l'intervalle [a;b] du df1 est compris dans l'intervalle [Timestamp.start;Timestamp.end] du df2 .
pour l'instant j'ai seulement réussi à faire fonctionner un script avec seulement une date et non pas un intervalle :
Code : Tout sélectionner
for (eol in unique(df1$eol)){
df1$Intervalle_df2 <- ymd_hm(df1$a[df1$eol==eol]) %within%
as.list(interval(dmy_hm(df2$Timestamp.start),
dmy_hm(df2$Timestamp.end)))
}
Dans un second temps, j'aimerai pouvoir calculer la différence de temps entre l'intervalle [a;b] et l'intervalle [Timestamp.start;Timestamp.end] comme ci-après :
Code : Tout sélectionner
df_final <- data.frame(a=c("2021-02-15 01:17","2021-05-30 03:33"),b=c("2021-02-15 01:27","2021-05-30 03:33"),eol=c("E01","E01"),Intervalle_df2=c("TRUE","FALSE"),Duree_df2=c("8min","0min"))
Je vous remercie grandement pour votre aide.
Cordialement,
Jonathan