Discussion :

[MrKorera]

Bonjour !
Je reviens avec un autre sujet sur les données IoT.
J'ai une table qui se présente comme suit:



Du coup j'aimerais savoir s'il une fonction qui me permette de savoir combien de temps sépare la détection du capteur 1 à celle du capteur 2.
Dans mon exemple, on voit qu'il y a eu 7 secondes de différence entre les deux déclenchements et que le premier a durée 38 secondes, le second 43 secondes avant de se mettre en mode aveugle.
Merci !

[tototode]

Bonjour,

Il faut que tu t'assures que les données de la colonne date soient reconnues comme un format temps sous R :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
tab <- structure(list(Date = structure(1:7, .Label = c("06-06-2018 15:00:58", 
"06-06-2018 15:00:59", "06-06-2018 15:01:05", "06-06-2018 15:01:18", 
"06-06-2018 15:01:36", "06-06-2018 15:01:48", "06-06-2018 15:01:50"
), class = "factor"), Capteur.1 = structure(c(2L, 2L, 2L, 2L, 
2L, 1L, 1L), .Label = c("OFF", "ON"), class = "factor"), Capteur.2 = structure(c(1L, 
1L, 2L, 2L, 2L, 2L, 1L), .Label = c("OFF", "ON"), class = "factor")), .Names = c("Date", 
"Capteur.1", "Capteur.2"), class = "data.frame", row.names = c(NA, 
-7L))
 
tab$Date <- as.POSIXct(tab$Date, format = "%d-%m-%Y %H:%M:%S")
d1 <- diff(tab$Date[sapply(tab[-1], function(x) which(x=="ON")[1])])
d1
Time difference of 7 secs
 
sapply(tab[2:3], function(x) diff(range(tab$Date[x!="OFF"])))
Capteur.1 Capteur.2 
       38        43

Le dernier code ne fonctionne que parce qu'il n'y a qu'une seule série ON-OFF dans le jeu de données, sinon il faudra l'adapter.
cdlt

[MrKorera]

Merci tototode pour ton aide!
Pour le premier il fonction parfaitement dans le cas où je n'ai que 2 capteurs. Et là j'vais essayer de l'adapter avec un cas où je peux avoir n capteurs. Merci