Tronquer un évènement selon condition

Postez ici vos questions, réponses, commentaires ou suggestions - Les sujets seront ultérieurement répartis dans les archives par les modérateurs

Modérateur : Groupe des modérateurs

Theo Boudard
Messages : 19
Enregistré le : 06 Jan 2021, 15:32

Tronquer un évènement selon condition

Messagepar Theo Boudard » 13 Juil 2021, 07:20

Bonjour,
Je cherche à découper des événements selon une condition. Ces événements correspondent chacun a : une pluie + aux débits de 5 ouvrages résultant de cette même pluie (sumA, sumR, ...). Chaque événement est identifier par un num. unique (ID_pluie).


Voici un évènement, j'ai insérer 400 lignes, ça me semble être le minimum pour comprendre le jeu de données (df=200 000 lignes) et surtout proposer un événement représentatif :

Code : Tout sélectionner

df <- structure(list(Date_TU = c("2017-11-04 15:32:00", "2017-11-04 15:34:00",
"2017-11-04 15:36:00", "2017-11-04 15:38:00", "2017-11-04 15:40:00",
"2017-11-04 15:42:00", "2017-11-04 15:44:00", "2017-11-04 15:46:00",
"2017-11-04 15:48:00", "2017-11-04 15:50:00", "2017-11-04 15:52:00",
"2017-11-04 15:54:00", "2017-11-04 15:56:00", "2017-11-04 15:58:00",
"2017-11-04 16:00:00", "2017-11-04 16:02:00", "2017-11-04 16:04:00",
"2017-11-04 16:06:00", "2017-11-04 16:08:00", "2017-11-04 16:10:00",
"2017-11-04 16:12:00", "2017-11-04 16:14:00", "2017-11-04 16:16:00",
"2017-11-04 16:18:00", "2017-11-04 16:20:00", "2017-11-04 16:22:00",
"2017-11-04 16:24:00", "2017-11-04 16:26:00", "2017-11-04 16:28:00",
"2017-11-04 16:30:00", "2017-11-04 16:32:00", "2017-11-04 16:34:00",
"2017-11-04 16:36:00", "2017-11-04 16:38:00", "2017-11-04 16:40:00",
"2017-11-04 16:42:00", "2017-11-04 16:44:00", "2017-11-04 16:46:00",
"2017-11-04 16:48:00", "2017-11-04 16:50:00", "2017-11-04 16:52:00",
"2017-11-04 16:54:00", "2017-11-04 16:56:00", "2017-11-04 16:58:00",
"2017-11-04 17:00:00", "2017-11-04 17:02:00", "2017-11-04 17:04:00",
"2017-11-04 17:06:00", "2017-11-04 17:08:00", "2017-11-04 17:10:00",
"2017-11-04 17:12:00", "2017-11-04 17:14:00", "2017-11-04 17:16:00",
"2017-11-04 17:18:00", "2017-11-04 17:20:00", "2017-11-04 17:22:00",
"2017-11-04 17:24:00", "2017-11-04 17:26:00", "2017-11-04 17:28:00",
"2017-11-04 17:30:00", "2017-11-04 17:32:00", "2017-11-04 17:34:00",
"2017-11-04 17:36:00", "2017-11-04 17:38:00", "2017-11-04 17:40:00",
"2017-11-04 17:42:00", "2017-11-04 17:44:00", "2017-11-04 17:46:00",
"2017-11-04 17:48:00", "2017-11-04 17:50:00", "2017-11-04 17:52:00",
"2017-11-04 17:54:00", "2017-11-04 17:56:00", "2017-11-04 17:58:00",
"2017-11-04 18:00:00", "2017-11-04 18:02:00", "2017-11-04 18:04:00",
"2017-11-04 18:06:00", "2017-11-04 18:08:00", "2017-11-04 18:10:00",
"2017-11-04 18:12:00", "2017-11-04 18:14:00", "2017-11-04 18:16:00",
"2017-11-04 18:18:00", "2017-11-04 18:20:00", "2017-11-04 18:22:00",
"2017-11-04 18:24:00", "2017-11-04 18:26:00", "2017-11-04 18:28:00",
"2017-11-04 18:30:00", "2017-11-04 18:32:00", "2017-11-04 18:34:00",
"2017-11-04 18:36:00", "2017-11-04 18:38:00", "2017-11-04 18:40:00",
"2017-11-04 18:42:00", "2017-11-04 18:44:00", "2017-11-04 18:46:00",
"2017-11-04 18:48:00", "2017-11-04 18:50:00", "2017-11-04 18:52:00",
"2017-11-04 18:54:00", "2017-11-04 18:56:00", "2017-11-04 18:58:00",
"2017-11-04 19:00:00", "2017-11-04 19:02:00", "2017-11-04 19:04:00",
"2017-11-04 19:06:00", "2017-11-04 19:08:00", "2017-11-04 19:10:00",
"2017-11-04 19:12:00", "2017-11-04 19:14:00", "2017-11-04 19:16:00",
"2017-11-04 19:18:00", "2017-11-04 19:20:00", "2017-11-04 19:22:00",
"2017-11-04 19:24:00", "2017-11-04 19:26:00", "2017-11-04 19:28:00",
"2017-11-04 19:30:00", "2017-11-04 19:32:00", "2017-11-04 19:34:00",
"2017-11-04 19:36:00", "2017-11-04 19:38:00", "2017-11-04 19:40:00",
"2017-11-04 19:42:00", "2017-11-04 19:44:00", "2017-11-04 19:46:00",
"2017-11-04 19:48:00", "2017-11-04 19:50:00", "2017-11-04 19:52:00",
"2017-11-04 19:54:00", "2017-11-04 19:56:00", "2017-11-04 19:58:00",
"2017-11-04 20:00:00", "2017-11-04 20:02:00", "2017-11-04 20:04:00",
"2017-11-04 20:06:00", "2017-11-04 20:08:00", "2017-11-04 20:10:00",
"2017-11-04 20:12:00", "2017-11-04 20:14:00", "2017-11-04 20:16:00",
"2017-11-04 20:18:00", "2017-11-04 20:20:00", "2017-11-04 20:22:00",
"2017-11-04 20:24:00", "2017-11-04 20:26:00", "2017-11-04 20:28:00",
"2017-11-04 20:30:00", "2017-11-04 20:32:00", "2017-11-04 20:34:00",
"2017-11-04 20:36:00", "2017-11-04 20:38:00", "2017-11-04 20:40:00",
"2017-11-04 20:42:00", "2017-11-04 20:44:00", "2017-11-04 20:46:00",
"2017-11-04 20:48:00", "2017-11-04 20:50:00", "2017-11-04 20:52:00",
"2017-11-04 20:54:00", "2017-11-04 20:56:00", "2017-11-04 20:58:00",
"2017-11-04 21:00:00", "2017-11-04 21:02:00", "2017-11-04 21:04:00",
"2017-11-04 21:06:00", "2017-11-04 21:08:00", "2017-11-04 21:10:00",
"2017-11-04 21:12:00", "2017-11-04 21:14:00", "2017-11-04 21:16:00",
"2017-11-04 21:18:00", "2017-11-04 21:20:00", "2017-11-04 21:22:00",
"2017-11-04 21:24:00", "2017-11-04 21:26:00", "2017-11-04 21:30:00",
"2017-11-04 21:32:00", "2017-11-04 21:34:00", "2017-11-04 21:36:00",
"2017-11-04 21:38:00", "2017-11-04 21:40:00", "2017-11-04 21:42:00",
"2017-11-04 21:46:00", "2017-11-04 21:48:00", "2017-11-04 21:50:00",
"2017-11-04 21:52:00", "2017-11-04 21:54:00", "2017-11-04 21:56:00",
"2017-11-04 21:58:00", "2017-11-04 22:00:00", "2017-11-04 22:02:00",
"2017-11-04 22:04:00", "2017-11-04 22:06:00", "2017-11-04 22:08:00",
"2017-11-04 22:10:00", "2017-11-04 22:12:00", "2017-11-04 22:14:00",
"2017-11-04 22:16:00", "2017-11-04 22:18:00", "2017-11-04 22:20:00",
"2017-11-04 22:22:00", "2017-11-04 22:24:00", "2017-11-04 22:26:00",
"2017-11-04 22:28:00", "2017-11-04 22:30:00", "2017-11-04 22:32:00",
"2017-11-04 22:34:00", "2017-11-04 22:36:00", "2017-11-04 22:38:00",
"2017-11-04 22:40:00", "2017-11-04 22:42:00", "2017-11-04 22:44:00",
"2017-11-04 22:46:00", "2017-11-04 22:48:00", "2017-11-04 22:50:00",
"2017-11-04 22:52:00", "2017-11-04 22:54:00", "2017-11-04 22:56:00",
"2017-11-04 22:58:00", "2017-11-04 23:00:00", "2017-11-04 23:02:00",
"2017-11-04 23:04:00", "2017-11-04 23:06:00", "2017-11-04 23:08:00",
"2017-11-04 23:10:00", "2017-11-04 23:12:00", "2017-11-04 23:14:00",
"2017-11-04 23:16:00", "2017-11-04 23:18:00", "2017-11-04 23:36:00",
"2017-11-04 23:42:00", "2017-11-04 23:54:00", "2017-11-05 00:06:00",
"2017-11-05 00:12:00", "2017-11-05 00:24:00", "2017-11-05 00:30:00",
"2017-11-05 00:36:00", "2017-11-05 00:42:00", "2017-11-05 00:48:00",
"2017-11-05 00:54:00", "2017-11-05 01:00:00", "2017-11-05 01:02:00",
"2017-11-05 01:04:00", "2017-11-05 01:06:00", "2017-11-05 01:08:00",
"2017-11-05 01:10:00", "2017-11-05 01:12:00", "2017-11-05 01:14:00",
"2017-11-05 01:16:00", "2017-11-05 01:18:00", "2017-11-05 01:20:00",
"2017-11-05 01:22:00", "2017-11-05 01:24:00", "2017-11-05 01:26:00",
"2017-11-05 01:28:00", "2017-11-05 01:30:00", "2017-11-05 01:32:00",
"2017-11-05 01:34:00", "2017-11-05 01:36:00", "2017-11-05 01:38:00",
"2017-11-05 01:40:00", "2017-11-05 01:42:00", "2017-11-05 01:44:00",
"2017-11-05 01:46:00", "2017-11-05 01:48:00", "2017-11-05 01:50:00",
"2017-11-05 01:52:00", "2017-11-05 01:54:00", "2017-11-05 01:56:00",
"2017-11-05 01:58:00", "2017-11-05 02:00:00", "2017-11-05 02:02:00",
"2017-11-05 02:04:00", "2017-11-05 02:06:00", "2017-11-05 02:08:00",
"2017-11-05 02:10:00", "2017-11-05 02:12:00", "2017-11-05 02:14:00",
"2017-11-05 02:16:00", "2017-11-05 02:18:00", "2017-11-05 02:20:00",
"2017-11-05 02:22:00", "2017-11-05 02:24:00", "2017-11-05 02:26:00",
"2017-11-05 02:28:00", "2017-11-05 02:30:00", "2017-11-05 02:32:00",
"2017-11-05 02:34:00", "2017-11-05 02:36:00", "2017-11-05 02:38:00",
"2017-11-05 02:40:00", "2017-11-05 02:42:00", "2017-11-05 02:44:00",
"2017-11-05 02:46:00", "2017-11-05 02:48:00", "2017-11-05 02:50:00",
"2017-11-05 02:52:00", "2017-11-05 02:54:00", "2017-11-05 02:56:00",
"2017-11-05 02:58:00", "2017-11-05 03:00:00", "2017-11-05 03:02:00",
"2017-11-05 03:04:00", "2017-11-05 03:06:00", "2017-11-05 03:08:00",
"2017-11-05 03:10:00", "2017-11-05 03:12:00", "2017-11-05 03:14:00",
"2017-11-05 03:16:00", "2017-11-05 03:18:00", "2017-11-05 03:20:00",
"2017-11-05 03:24:00", "2017-11-05 03:28:00", "2017-11-05 03:32:00",
"2017-11-05 04:06:00", "2017-11-05 04:18:00", "2017-11-05 04:30:00",
"2017-11-05 04:46:00", "2017-11-05 04:48:00", "2017-11-05 04:50:00",
"2017-11-05 04:52:00", "2017-11-05 04:54:00", "2017-11-05 04:56:00",
"2017-11-05 04:58:00", "2017-11-05 05:00:00", "2017-11-05 05:02:00",
"2017-11-05 05:04:00", "2017-11-05 05:06:00", "2017-11-05 05:08:00",
"2017-11-05 05:10:00", "2017-11-05 05:12:00", "2017-11-05 05:14:00",
"2017-11-05 05:16:00", "2017-11-05 05:18:00", "2017-11-05 05:20:00",
"2017-11-05 05:22:00", "2017-11-05 05:24:00", "2017-11-05 05:26:00",
"2017-11-05 05:32:00", "2017-11-05 05:38:00", "2017-11-05 05:42:00",
"2017-11-05 05:48:00", "2017-11-05 06:00:00", "2017-11-05 14:00:00",
"2017-11-05 14:06:00", "2017-11-05 14:12:00", "2017-11-05 14:46:00",
"2017-11-05 14:48:00", "2017-11-05 14:50:00", "2017-11-05 17:00:00",
"2017-11-07 08:12:00", "2017-11-08 14:40:00", "2017-11-10 08:20:00",
"2017-11-10 08:22:00", "2017-11-10 08:24:00", "2017-11-10 08:26:00",
"2017-11-10 08:28:00", "2017-11-10 08:30:00", "2017-11-10 08:32:00",
"2017-11-10 08:34:00", "2017-11-10 08:36:00", "2017-11-10 08:38:00",
"2017-11-10 08:40:00", "2017-11-10 08:42:00", "2017-11-10 08:44:00",
"2017-11-10 08:46:00", "2017-11-10 08:48:00", "2017-11-10 08:50:00",
"2017-11-10 08:52:00", "2017-11-10 08:54:00", "2017-11-10 08:56:00",
"2017-11-10 08:58:00", "2017-11-10 09:00:00", "2017-11-10 09:02:00",
"2017-11-10 09:04:00", "2017-11-10 09:06:00", "2017-11-10 09:08:00",
"2017-11-10 09:10:00", "2017-11-10 09:12:00", "2017-11-10 09:14:00",
"2017-11-10 09:16:00", "2017-11-10 09:18:00", "2017-11-10 09:20:00",
"2017-11-10 09:22:00", "2017-11-10 09:24:00", "2017-11-10 09:26:00",
"2017-11-10 09:28:00", "2017-11-10 09:30:00", "2017-11-10 09:32:00",
"2017-11-10 09:34:00", "2017-11-10 09:36:00", "2017-11-10 09:38:00",
"2017-11-10 09:40:00", "2017-11-10 09:42:00", "2017-11-10 09:44:00",
"2017-11-10 09:46:00", "2017-11-10 09:48:00"), ID_pluie = c(97L,
97L, 97L, 97L, 97L, 97L, 97L, 97L, 97L, 97L, 97L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L,
99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L, 99L), Pluviometrie_mm = c(NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, "0,2", NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, "0,2", NA, NA, NA, NA, NA, NA, NA, NA,
"0,2", NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, "0,2", NA, NA, "0,2", NA,
NA, "1", NA, NA, "0,6", NA, NA, "0,4", NA, NA, "0,4", NA, NA,
"0,8", NA, NA, "0,8", NA, NA, "0,6", NA, NA, "0,6", NA, NA, "0,2",
NA, NA, NA, NA, NA, NA, NA, NA, "0,2", NA, NA, NA, NA, NA, "0,4",
NA, NA, NA, NA, NA, "0,2", NA, NA, NA, NA, NA, "0,2", NA, NA,
NA, NA, NA, "0,2", NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, "0,2", NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, "0,2", NA, NA,
NA, NA, "0,2", NA, NA, "0,2", NA, NA, "0,2", NA, NA, NA, NA,
"0,2", NA, NA, "0,2", NA, NA, "0,2", NA, NA, "0,2", NA, NA, "0,2",
NA, NA, "0,2", NA, NA, "0,2", NA, NA, NA, NA, NA, "0,2", NA,
NA, NA, NA, NA, "0,2", NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, "0,2", "0,2", "0,2", "0,2", "0,2", "0,2", "0,2", "0,2", "0,2",
"0,2", "0,4", "0,2", "0,4", NA, NA, "0,2", NA, NA, "0,6", NA,
NA, "0,4", NA, NA, "0,4", NA, NA, "0,2", NA, NA, "0,4", NA, NA,
"0,4", NA, NA, "0,2", NA, NA, NA, NA, NA, "0,2", NA, NA, NA,
NA, NA, "0,2", NA, NA, "0,2", NA, NA, "0,2", NA, NA, NA, NA,
NA, "0,2", NA, NA, NA, NA, NA, "0,2", NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, "0,2", NA, NA, "0,2",
"0,2", "0,2", NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, "0,2", NA, NA, NA, "0,2", "0,4",
"0,4", "0,4", "0,2", "0,2", NA, NA, NA, "0,2", NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), sum_A = c("0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "22,8", "60,6", "97,2",
"130,2", "159", "183,6", "204,6", "222,6", "238,8", "252", "263,4",
"273,6", "282", "289,2", "295,2", "300", "304,2", "307,8", "311,4",
"315", "318,6", "322,8", "327,6", "333", "339,6", "348,6", "363",
"388,8", "452,24", "789,47", "1371,47", "2020,98", "2729,44",
"3342,93", "3764,77", "4105,41", "4453,75", "4820,67", "5200,78",
"5630,33", "6095", "6648,86", "7282,2", "7965,35", "8655,56",
"9271,58", "9909,64", "10598,67", "11264,56", "11791,06", "12214,07",
"12570,45", "12878,45", "13114,99", "13280,72", "13392,18", "13466,53",
"13516,255", "13514,015", "13227,785", "12668,585", "12022,075",
"11313,615", "10701,325", "10283,085", "9949,645", "9612,105",
"9264,385", "8938,58", "8659,53", "8361,71", "7972,27", "7482,92",
"6922,48", "6337,49", "5806,32", "5244,35", "4623,67", "4023,555",
"3563,485", "3209,68", "2924,94", "2689,935", "2523,545", "2423,385",
"2372,695", "2345,745", "2330,22", "2325,42", "2328,42", "2331,42",
"2332,02", "2332,62", "2332,02", "2330,22", "2327,22", "2321,82",
"2309,82", "2262,715", "2120,615", "1962,165", "1805,545", "1669,955",
"1555,645", "1458,225", "1381,775", "1314,685", "1255,935", "1197,96",
"1136,93", "1072,525", "1003,885", "932,69", "862,54", "795,77",
"730,8", "673,2", "616,8", "564", "514,2", "469,8", "433,2",
"401,4", "373,8", "349,8", "321", "303,6", "290,4", "267,6",
"231", "223,2", "223,8", "224,4", "217,2", "204,6", "191,4",
"182,4", "250,8", "319,2", "392,4", "474,6", "566,4", "665,4",
"765,6", "868,8", "973,8", "1076,4", "1178,4", "1280,4", "1381,2",
"1481,4", "1581,6", "1680,6", "1786,8", "1884,6", "1980,6", "2086,8",
"2188,2", "2277", "2355,6", "2424,6", "2494,2", "2577,6", "2672,4",
"2773,8", "2872,8", "2950,2", "2959,2", "2961,6", "2952,6", "2929,2",
"2892,6", "2845,8", "2797,8", "2745", "2691,6", "2641,2", "2591,4",
"2541,6", "2490,6", "2436,6", "2377,2", "2272,2", "1388,4", "1101,6",
"607,2", "266,4", "99", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"3", "23,4", "42,6", "0", "0", "16,2", "0", "0", "0", "0", "193,89",
"296,16", "441,06", "441,06", "441,06", "574,79", "574,79", "768,37",
"963,67", "963,67", "963,67", "963,67", "963,67", "963,67", "963,67",
"973,27", "973,27", "973,27", "973,27", "973,27", "973,27", "973,27",
"973,27", "973,27", "973,27", "973,27", "973,27", "973,27", "973,27",
"973,27", "779,38", "677,11", "532,21", "532,21", "532,21", "398,48",
"398,48", "204,9", "9,6", "9,6", "9,6"), sum_C = c("104650,32",
"104650,32", "104650,32", "104654,21", "104654,21", "104654,21",
"104654,21", "104675,92", "104609,63", "104609,63", "104609,63",
"104609,63", "104609,63", "104609,63", "104609,63", "104609,63",
"104609,63", "104639,06", "104639,06", "104639,06", "104717,4",
"104473,95", "104473,95", "104578,35", "104534,71", "104481,71",
"104481,71", "104572,04", "104572,04", "104572,04", "104572,04",
"104572,04", "104572,04", "104572,04", "104572,04", "104572,04",
"104572,04", "104572,04", "104638,33", "104638,33", "104638,33",
"104638,33", "104638,33", "104638,33", "104638,33", "104638,33",
"104638,33", "104659,91", "103961,66", "102756,3", "101721,89",
"100910,86", "99538,36", "98455,23", "97591,31", "97012,48",
"95990,46", "95448,96", "94847,3", "94187,67", "94001,96", "93918,75",
"93603,04", "93167,32", "92988,25", "92652,65", "92257,41", "92215,11",
"92109,76", "92109,76", "91995,6", "91668,51", "91481,08", "90801,12",
"90199,33", "89529,39", "87917,71", "86488,63", "85889,41", "85228,55",
"84038,75", "83163,91", "83008,58", "82097,62", "80810,15", "79503,86",
"78815,2", "77592,71", "76504,4", "75454,29", "74442,92", "72803,97",
"71462,38", "69886,14", "68828,99", "66863,94", "63772,98", "60436,3",
"57237,59", "53986,44", "50868,82", "47963,05", "44909,64", "42338,75",
"39672,73", "37054,15", "35356,25", "33456,28", "31407,18", "29910,43",
"28757,43", "27297,58", "25424,61", "24011,965", "22791,57",
"21306,185", "19585,865", "17915,255", "16166,425", "14435,565",
"12191,445", "10473,005", "8691,505", "7273,355", "5084,265",
"3963,795", "4031,195", "3992,985", "3879,14", "3711,33", "3522,39",
"3332,25", "3148,565", "2973,365", "2814,2", "2674,43", "2551,21",
"2447,46", "2360,03", "2287,8", "2229,21", "2181,38", "2144,58",
"2111,915", "2086,74", "2067,845", "2055,245", "2045,045", "2037,245",
"2029,445", "2020,445", "2010,245", "1996,445", "1972,155", "1941,865",
"1906,785", "1867,585", "1825,575", "1783,68", "1741,04", "1698,96",
"1657,96", "1617,885", "1578,135", "1538,71", "1500", "1464,6",
"1428,6", "1393,2", "1357,8", "1323", "1288,2", "1254", "1221",
"1188,6", "1233,78", "1177,38", "1122,18", "1017,18", "967,38",
"918,18", "870,78", "825,18", "780,78", "736,98", "654,18", "639,18",
"626,58", "616,38", "609,18", "603,78", "601,98", "603,78", "609,78",
"621,18", "638,58", "661,98", "693,18", "730,38", "777,18", "834,18",
"899,58", "970,98", "966,6", "1065", "1164", "1263", "1362",
"1461,6", "1560", "1659", "1756,8", "1855,2", "1952,4", "2050,2",
"2148", "2220", "2293,2", "2363,4", "2433,6", "2500,2", "2562",
"2617,2", "2666,4", "2707,8", "2740,8", "2764,8", "2779,2", "2786,4",
"2783,4", "2767,2", "2674,2", "1785", "1491,6", "903,6", "367,8",
"141", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "4,2", "24,6",
"46,2", "0", "19,8", "0", "293,67", "1028,25", "1812,63", "2614,39",
"3300,58", "4185,77", "4718,03", "5538,06", "6334,65", "7238,39",
"8021,21", "9050,93", "9672,99", "10257,17", "10978,67", "11660,63",
"12265,47", "12964,09", "13647,83", "14298,38", "14818,77", "15353,44",
"15812,07", "16307,69", "16900,02", "17418,6", "17940,46", "18493",
"18981,97", "19537,87", "19773,57", "19536,12", "19318,61", "19189,32",
"19116,91", "18724,96", "18738,17", "18438,91", "18178,16", "17923,16",
"17748,63", "17250,48", "17191,71", "17259,15", "17156,52"),
    sum_R = c("0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0"), sum_T = c("0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "21,6", "105,145", "211,435",
    "324,545", "443,565", "556,795", "656,645", "742,2", "814,8",
    "873,6", "920,4", "957,6", "985,8", "1006,8", "1020", "1028,4",
    "1033,8", "1037,4", "1039,2", "1041", "1041,6", "1042,2",
    "1042,2", "1042,8", "1042,8", "1042,8", "1042,8", "1043,4",
    "1043,4", "1043,4", "1021,8", "938,255", "831,965", "718,855",
    "599,835", "486,605", "386,755", "301,2", "228,6", "169,8",
    "123", "85,8", "57,6", "36,6", "23,4", "15", "9,6", "6",
    "4,2", "2,4", "1,8", "1,2", "1,2", "0,6", "0,6", "0,6", "0,6",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "1,8", "31,2", "68,4",
    "109,2", "147,6", "191,4", "239,4", "308,67", "389,96", "490,49",
    "603,5", "725,36", "853,14", "983,26", "1111,87", "1234,6",
    "1351,5", "1465,28", "1575,33", "1679,19", "1776,815", "1871,105",
    "1963,865", "2057,885", "2162,395", "2270,475", "2380,315",
    "2490,745", "2598,895", "2702,165", "2795,37", "2850,99",
    "2888,19", "2912,19", "2928,39", "2930,79", "2921,79", "2880,72",
    "2806,63", "2728,9", "2619,49", "2497,63", "2369,85", "2239,73",
    "2111,12", "1988,39", "1871,49", "1757,71", "1647,66", "1543,8",
    "1447,375", "1359,085", "1271,725", "1181,905", "1080,995",
    "976,515", "870,275", "762,845", "657,695", "556,825", "463,62",
    "380,4", "307,8", "244,8", "191,4", "146,4", "109,2", "82,2",
    "76,2", "54", "51", "51,6", "52,2", "52,8", "9,6", "2,4",
    "0,6", "7,8", "16,2", "24", "30", "35,4", "40,8", "45,6",
    "49,2", "52,8", "56,4", "59,4", "62,4", "64,2", "66", "67,2",
    "68,4", "69,6", "70,2", "70,8", "71,4", "72", "72,6", "73,2",
    "73,2", "57", "24", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"), sum_N = c("0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "9", "22,8", "37,2", "50,4", "63", "73,8",
    "83,4", "93", "101,4", "109,2", "117", "125,4", "133,8",
    "143,4", "153", "163,8", "174", "183,6", "192", "199,8",
    "206,4", "211,8", "216,6", "220,2", "223,8", "226,2", "228,6",
    "230,4", "232,2", "233,4", "225", "211,8", "198", "185,4",
    "172,8", "162,6", "153", "144", "135,6", "127,8", "120,6",
    "112,2", "103,8", "94,2", "84,6", "73,8", "64,2", "54,6",
    "46,2", "38,4", "31,8", "26,4", "21,6", "18", "14,4", "12",
    "9,6", "6,6", "4,8", "3,6", "0,6", "0,6", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
    "0", "0", "0", "0", "0", "0")), row.names = 3351:3750, class = "data.frame")



Le début de chaque événement correspond donc au début de la pluie (soit la première ligne de chaque identifiant unique ID_pluie). Si le début des événements est correctement défini il me faut délimiter la fin de ces événements en appliquant la condition suivante :

Un événement pluvieux se termine quand les 5 ouvrages (sum A, sum R, ...) présentent un débit inférieur à 1,8 L/h.
Si les 5 ouvrages (sum A, sum R, ...) ne présentent pas de débit inférieur à 1,8 L/h alors l’événement se termine lorsque l’événement suivant commence (pas besoin de tronquer l’événement).

Voici une proposition faite par un utilisateur du forum. Elle marche parfaitement mais j'aimerais dire a R d'attendre 1h après la fin de la pluie pour tronquer l'évènement. (afin de m'assurer que l'évènement ne soit pas tronquer avant que les ouvrages aient commencé a recracher la pluie)

Code : Tout sélectionner

library(dplyr)
df %>%
  group_by(ID_pluie) %>%   
  filter(between(row_number(), 1, min(c(which(if_all(starts_with("sum_"), ~ . < 1.8)), n())))) %>%
  ungroup()


Si vous avez des propositions pour adapter le script ci-dessus ou une fonction qui pourrait faire le taf je suis preneur.

Merci d'avance,

Théo Boudard

Retourner vers « Questions en cours »

Qui est en ligne

Utilisateurs parcourant ce forum : Google [Bot] et 1 invité