Rapport filtré - Corrélation ES vs Arrêt après
Mohamed
2025-03-23
📂 Chargement des données filtrées
# Lire le fichier Excel original et recalculer les données filtrées dans R
data <- read_excel("C:/Users/hssai/Downloads/Remplissage poids/Data ES - Poids Rempli.xlsx", sheet = "Stat")
data_clean <- data %>%
select(Date, Recette, Tank, ES, `Arret apres`) %>%
drop_na() %>%
mutate(Fabrication = paste(Date, Recette, Tank, sep = " | "))
# Supprimer les points qui ne suivent pas l’augmentation ES ~ Arret
filtered_data <- data_clean %>%
group_by(Fabrication) %>%
arrange(`Arret apres`, .by_group = TRUE) %>%
group_split() %>%
map_df(function(df) {
keep <- c(1)
for (i in 2:nrow(df)) {
if (df$ES[i] >= df$ES[keep[length(keep)]] & df$`Arret apres`[i] >= df$`Arret apres`[keep[length(keep)]]) {
keep <- c(keep, i)
}
}
df[keep, ]
})📊 Calcul des R² sur données filtrées
results <- list()
for (fab in unique(filtered_data$Fabrication)) {
df <- filtered_data %>% filter(Fabrication == fab)
x <- df$`Arret apres`
y <- df$ES
if (nrow(df) >= 5 && n_distinct(x) > 1 && n_distinct(y) > 1) {
model <- lm(y ~ x)
r2 <- summary(model)$r.squared
results[[fab]] <- tibble(
Fabrication = fab,
R2_Linéaire = round(r2, 4),
n_points = nrow(df)
)
}
}
df_r2_filtered <- bind_rows(results)📋 Tableau des R² sur données filtrées
knitr::kable(df_r2_filtered, caption = 'R² par fabrication (après filtrage)', digits = 4)| Fabrication | R2_Linéaire | n_points |
|---|---|---|
| 2025-01-30 | M460 | 6 | 0.5159 | 24 |
| 2025-01-30 | O219 | 7 | 0.2791 | 33 |
| 2025-01-31 | M416 | 13 | 0.9627 | 18 |
| 2025-01-31 | M457 | 11 | 0.3673 | 18 |
| 2025-01-31 | M457 | 9 | 0.4294 | 30 |
| 2025-01-31 | O219 | 7 | 0.6825 | 42 |
| 2025-01-31 | O321 | 10 | 0.8696 | 31 |
| 2025-01-31 | VO14 | 6 | 0.8400 | 24 |
| 2025-02-01 | M457 | 11 | 0.2906 | 21 |
| 2025-02-01 | M814 | 12 | 0.9195 | 24 |
| 2025-02-01 | O254 | 7 | 0.7537 | 12 |
| 2025-02-01 | O321 | 10 | 0.1668 | 18 |
| 2025-02-02 | CL52 | 10 | 0.7420 | 21 |
| 2025-02-02 | M419 | 9 | 0.8700 | 21 |
| 2025-02-02 | M480 | 11 | 0.6064 | 21 |
| 2025-02-02 | M814 | 13 | 0.8921 | 21 |
| 2025-02-03 | CL45 | 13 | 0.9178 | 50 |
| 2025-02-03 | M420 | 11 | 0.8442 | 57 |
| 2025-02-03 | M455 | 12 | 0.4302 | 18 |
| 2025-02-03 | M457 | 12 | 0.4744 | 18 |
| 2025-02-03 | M457 | 7 | 0.8544 | 17 |
| 2025-02-03 | O219 | 9 | 0.6486 | 30 |
| 2025-02-03 | O254 | 9 | 0.3893 | 18 |
| 2025-02-03 | O321 | 8 | 0.9468 | 32 |
| 2025-02-03 | VO14 | 6 | 0.8453 | 21 |
| 2025-02-04 | CL52 | 13 | 0.9264 | 67 |
| 2025-02-04 | M419 | 7 | 0.9938 | 15 |
| 2025-02-04 | M457 | 10 | 0.9996 | 12 |
| 2025-02-04 | M457 | 7 | 0.7260 | 39 |
| 2025-02-04 | M814 | 8 | 1.0000 | 9 |
| 2025-02-04 | M816 | 8 | 0.4188 | 12 |
| 2025-02-04 | O254 | 11 | 0.9518 | 48 |
| 2025-02-04 | VO14 | 6 | 0.4651 | 42 |
| 2025-02-04 | VO18 | 9 | 0.4538 | 27 |
| 2025-02-05 | CL52 | 8 | 0.9607 | 30 |
| 2025-02-05 | M419 | 7 | 0.8629 | 24 |
| 2025-02-05 | M457 | 10 | 0.4593 | 33 |
| 2025-02-05 | M457 | 9 | 0.8785 | 39 |
| 2025-02-05 | M460 | 13 | 0.9996 | 12 |
| 2025-02-05 | O219 | 11 | 0.9986 | 21 |
| 2025-02-05 | O254 | 11 | 0.3224 | 15 |
| 2025-02-05 | O321 | 12 | 1.0000 | 7 |
| 2025-02-05 | VO14 | 6 | 0.3379 | 33 |
| 2025-02-06 | CL52 | 9 | 0.8832 | 21 |
| 2025-02-06 | M419 | 7 | 0.3418 | 27 |
| 2025-02-06 | M454 | 9 | 0.5366 | 18 |
| 2025-02-06 | M457 | 10 | 0.2526 | 27 |
| 2025-02-06 | M457 | 11 | 0.8805 | 23 |
| 2025-02-06 | O219 | 8 | 0.5753 | 30 |
| 2025-02-06 | O321 | 7 | 1.0000 | 7 |
| 2025-02-06 | VO14 | 6 | 0.5537 | 18 |
| 2025-02-07 | CL52 | 12 | 0.7817 | 12 |
| 2025-02-07 | M416 | 13 | 0.5228 | 18 |
| 2025-02-07 | M419 | 10 | 0.8211 | 36 |
| 2025-02-07 | M420 | 8 | 0.8116 | 18 |
| 2025-02-07 | M457 | 11 | 0.8824 | 25 |
| 2025-02-07 | M457 | 9 | 0.6969 | 21 |
| 2025-02-07 | M814 | 12 | 0.4706 | 15 |
| 2025-02-07 | O219 | 13 | 0.5155 | 12 |
| 2025-02-07 | O254 | 13 | 0.9940 | 12 |
| 2025-02-07 | O321 | 7 | 0.9956 | 7 |
| 2025-02-07 | VO14 | 6 | 0.5698 | 9 |
| 2025-02-08 | M420 | 8 | 0.5085 | 21 |
| 2025-02-08 | M457 | 11 | 0.1268 | 30 |
| 2025-02-08 | M457 | 6 | 0.6083 | 12 |
| 2025-02-08 | M457 | 9 | 0.9972 | 54 |
| 2025-02-09 | CL52 | 6 | 0.6580 | 33 |
| 2025-02-09 | M419 | 9 | 0.6340 | 33 |
| 2025-02-09 | M420 | 11 | 0.6697 | 30 |
| 2025-02-09 | M430 | 12 | 0.6293 | 30 |
| 2025-02-09 | M457 | 7 | 0.1761 | 18 |
| 2025-02-09 | M480 | 12 | 0.6008 | 27 |
| 2025-02-09 | O219 | 8 | 0.5434 | 33 |
| 2025-02-09 | O321 | 10 | 0.9656 | 7 |
| 2025-02-09 | VO14 | 13 | 0.8582 | 33 |
| 2025-02-09 | VO18 | 7 | 0.6080 | 42 |
| 2025-02-10 | CL45 | 11 | 0.9862 | 62 |
| 2025-02-10 | M418 | 7 | 0.6010 | 18 |
| 2025-02-10 | M457 | 10 | 0.6216 | 15 |
| 2025-02-10 | M457 | 11 | 0.9971 | 33 |
| 2025-02-10 | M814 | 9 | 0.4083 | 36 |
| 2025-02-10 | M816 | 9 | 0.5884 | 18 |
| 2025-02-10 | O254 | 13 | 0.4549 | 18 |
| 2025-02-10 | O321 | 10 | 0.4732 | 28 |
| 2025-02-10 | VO14 | 8 | 0.5732 | 27 |
| 2025-02-10 | VO18 | 6 | 0.9848 | 9 |
| 2025-02-11 | CL52 | 12 | 0.9727 | 27 |
| 2025-02-11 | M420 | 10 | 0.6389 | 24 |
| 2025-02-11 | M460 | 9 | 0.8544 | 15 |
| 2025-02-11 | O321 | 7 | 1.0000 | 7 |
| 2025-02-11 | VO14 | 8 | 0.1236 | 21 |
| 2025-02-12 | CL52 | 10 | 0.9383 | 28 |
| 2025-02-12 | M419 | 6 | 0.5080 | 21 |
| 2025-02-12 | M420 | 8 | 0.3280 | 22 |
| 2025-02-12 | M457 | 9 | 0.6109 | 23 |
| 2025-02-12 | O219 | 11 | 0.6783 | 18 |
| 2025-02-12 | O254 | 11 | 0.4722 | 24 |
| 2025-02-12 | VO14 | 12 | 0.4154 | 12 |
| 2025-02-13 | CL52 | 6 | 0.7868 | 39 |
| 2025-02-13 | M419 | 8 | 0.4674 | 24 |
| 2025-02-13 | M457 | 7 | 0.9333 | 24 |
| 2025-02-13 | M457 | 9 | 0.4144 | 18 |
| 2025-02-13 | M460 | 11 | 0.8607 | 42 |
| 2025-02-13 | O219 | 10 | 0.4861 | 27 |
| 2025-02-13 | VO14 | 12 | 0.6219 | 12 |
| 2025-02-14 | CL52 | 8 | 0.4233 | 21 |
| 2025-02-14 | M457 | 11 | 0.3104 | 75 |
| 2025-02-14 | M457 | 7 | 0.9549 | 24 |
| 2025-02-14 | M457 | 9 | 0.3340 | 18 |
| 2025-02-14 | O254 | 6 | 0.7294 | 24 |
| 2025-02-14 | O321 | 13 | 0.9492 | 32 |
| 2025-02-14 | VO14 | 10 | 0.3802 | 24 |
| 2025-02-15 | M420 | 7 | 0.3714 | 54 |
| 2025-02-15 | M457 | 11 | 0.6379 | 42 |
| 2025-02-15 | M814 | 12 | 0.4530 | 27 |
| 2025-02-16 | CL52 | 13 | 0.9844 | 45 |
| 2025-02-16 | M419 | 11 | 0.7410 | 33 |
| 2025-02-16 | M430 | 10 | 0.4419 | 24 |
| 2025-02-16 | M814 | 7 | 0.9852 | 18 |
| 2025-02-16 | O219 | 8 | 0.5844 | 24 |
| 2025-02-16 | VO14 | 9 | 0.6941 | 30 |
| 2025-02-16 | VO18 | 12 | 0.5532 | 42 |
| 2025-02-17 | CL52 | 11 | 0.7586 | 41 |
| 2025-02-17 | M420 | 10 | 0.8909 | 18 |
| 2025-02-17 | M455 | 8 | 0.5524 | 9 |
| 2025-02-17 | M457 | 12 | 0.5040 | 12 |
| 2025-02-17 | M457 | 13 | 0.3820 | 13 |
| 2025-02-17 | M480 | 12 | 0.5604 | 27 |
| 2025-02-17 | O254 | 7 | 0.5167 | 51 |
| 2025-02-17 | O321 | 6 | 0.8820 | 10 |
| 2025-02-17 | VO14 | 9 | 0.9928 | 15 |
| 2025-02-18 | CL45 | 10 | 0.8120 | 44 |
| 2025-02-18 | M419 | 8 | 0.8960 | 36 |
| 2025-02-18 | M454 | 12 | 0.3679 | 12 |
| 2025-02-18 | M457 | 13 | 0.2327 | 21 |
| 2025-02-18 | M814 | 9 | 0.2719 | 18 |
| 2025-02-18 | M816 | 9 | 0.5674 | 27 |
| 2025-02-18 | O254 | 7 | 0.9046 | 30 |
| 2025-02-18 | O321 | 11 | 0.0279 | 31 |
| 2025-02-18 | VO14 | 6 | 0.9928 | 15 |
| 2025-02-19 | CL52 | 10 | 0.9063 | 57 |
| 2025-02-19 | M416 | 8 | 1.0000 | 6 |
| 2025-02-19 | M419 | 9 | 0.4256 | 33 |
| 2025-02-19 | M454 | 12 | 0.9869 | 9 |
| 2025-02-19 | M457 | 13 | 0.7123 | 27 |
| 2025-02-19 | M457 | 6 | 0.8551 | 42 |
| 2025-02-19 | O219 | 7 | 0.3166 | 21 |
| 2025-02-19 | O254 | 7 | 0.5239 | 27 |
| 2025-02-19 | O321 | 11 | 1.0000 | 7 |
| 2025-02-20 | CL52 | 12 | 0.7485 | 21 |
| 2025-02-20 | M455 | 12 | 0.2925 | 24 |
| 2025-02-20 | M457 | 13 | 0.8925 | 72 |
| 2025-02-20 | M457 | 6 | 0.2458 | 21 |
| 2025-02-20 | M814 | 8 | 0.2629 | 9 |
| 2025-02-20 | VO14 | 7 | 0.9277 | 18 |
| 2025-02-21 | CL52 | 12 | 0.8893 | 27 |
| 2025-02-21 | M420 | 13 | 0.9382 | 18 |
| 2025-02-21 | M457 | 10 | 0.9132 | 54 |
| 2025-02-21 | M457 | 6 | 0.6964 | 21 |
| 2025-02-21 | M814 | 8 | 0.9910 | 18 |
| 2025-02-21 | O254 | 7 | 0.6809 | 42 |
| 2025-02-21 | O321 | 9 | 0.3506 | 10 |
| 2025-02-22 | M420 | 8 | 0.7622 | 36 |
| 2025-02-22 | M455 | 13 | 0.6965 | 36 |
| 2025-02-22 | M457 | 10 | 0.3602 | 15 |
| 2025-02-22 | M457 | 11 | 0.5760 | 15 |
| 2025-02-22 | M457 | 6 | 0.5185 | 24 |
| 2025-02-22 | M480 | 13 | 0.6476 | 21 |
| 2025-02-23 | CL52 | 8 | 0.9955 | 168 |
| 2025-02-23 | M420 | 12 | 0.8480 | 30 |
| 2025-02-23 | M430 | 13 | 0.4517 | 30 |
| 2025-02-23 | O321 | 6 | 0.9965 | 10 |
| 2025-02-23 | VO14 | 7 | 0.5177 | 27 |
| 2025-02-23 | VO14 | 9 | 0.8867 | 18 |
| 2025-02-24 | CL45 | 12 | 0.8151 | 18 |
| 2025-02-24 | M454 | 11 | 0.5809 | 18 |
| 2025-02-24 | M455 | 13 | 0.6960 | 27 |
| 2025-02-24 | M457 | 11 | 0.6682 | 39 |
| 2025-02-24 | M457 | 6 | 0.8272 | 30 |
| 2025-02-24 | M814 | 7 | 0.8202 | 21 |
| 2025-02-24 | O254 | 10 | 0.9955 | 15 |
| 2025-02-24 | O321 | 6 | 0.4333 | 17 |
| 2025-02-24 | VO14 | 9 | 0.4196 | 36 |
| 2025-02-25 | CL52 | 13 | 0.8758 | 27 |
| 2025-02-25 | M416 | 12 | 0.4061 | 12 |
| 2025-02-25 | M419 | 6 | 0.6671 | 18 |
| 2025-02-25 | M457 | 12 | 0.9847 | 57 |
| 2025-02-25 | M457 | 6 | 0.6022 | 18 |
| 2025-02-25 | M460 | 10 | 0.9160 | 27 |
| 2025-02-25 | O219 | 7 | 0.3750 | 12 |
| 2025-02-25 | O321 | 11 | 0.4951 | 21 |
| 2025-02-25 | VO14 | 9 | 0.1210 | 12 |
| 2025-02-25 | VO18 | 8 | 0.1240 | 12 |
| 2025-02-26 | CL45 | 10 | 0.8332 | 55 |
| 2025-02-26 | M419 | 6 | 0.8363 | 18 |
| 2025-02-26 | M457 | 10 | 0.6420 | 18 |
| 2025-02-26 | M457 | 9 | 0.9662 | 26 |
| 2025-02-26 | M816 | 7 | 0.9071 | 18 |
| 2025-02-26 | O254 | 6 | 0.9579 | 30 |
| 2025-02-26 | VO14 | 13 | 0.9778 | 30 |
| 2025-02-27 | CL52 | 9 | 0.7895 | 21 |
| 2025-02-27 | M420 | 9 | 0.9720 | 18 |
| 2025-02-27 | M457 | 13 | 0.5867 | 35 |
| 2025-02-27 | M460 | 6 | 0.5987 | 15 |
| 2025-02-27 | M816 | 7 | 0.7025 | 24 |
| 2025-02-27 | O219 | 11 | 0.3351 | 18 |
| 2025-02-27 | VO14 | 12 | 0.6405 | 30 |
| 2025-02-28 | M416 | 8 | 0.6715 | 27 |
| 2025-02-28 | M457 | 12 | 0.8798 | 24 |
| 2025-02-28 | M457 | 13 | 0.5556 | 24 |
| 2025-02-28 | O219 | 11 | 0.4731 | 18 |
| 2025-02-28 | O254 | 11 | 0.8074 | 15 |
| 2025-02-28 | O321 | 10 | 0.7854 | 12 |
| 2025-02-28 | VO14 | 9 | 0.6469 | 30 |
| 2025-03-01 | CL52 | 7 | 0.5247 | 63 |
| 2025-03-01 | M419 | 13 | 0.7134 | 30 |
| 2025-03-01 | M420 | 6 | 0.5756 | 19 |
| 2025-03-01 | M457 | 12 | 0.5649 | 45 |
| 2025-03-01 | M457 | 9 | 0.9889 | 46 |
| 2025-03-01 | M814 | 8 | 0.4843 | 33 |
| 2025-03-01 | O321 | 10 | 0.0368 | 28 |
| 2025-03-02 | CL52 | 7 | 0.9939 | 20 |
| 2025-03-02 | M419 | 10 | 0.2877 | 36 |
| 2025-03-02 | M457 | 13 | 0.7672 | 42 |
| 2025-03-02 | M457 | 9 | 0.2838 | 15 |
| 2025-03-02 | M814 | 8 | 0.4303 | 21 |
| 2025-03-02 | O321 | 11 | 0.6082 | 24 |
| 2025-03-02 | VO14 | 6 | 0.1435 | 21 |
| 2025-03-02 | VO18 | 13 | 0.9703 | 18 |
| 2025-03-03 | M460 | 7 | 0.3518 | 33 |
| 2025-03-03 | O254 | 10 | 0.8422 | 39 |
| 2025-03-03 | O321 | 11 | 0.4687 | 24 |
| 2025-03-03 | VO14 | 6 | 0.9621 | 18 |
| 2025-03-04 | CL45 | 12 | 0.5914 | 9 |
| 2025-03-04 | CL52 | 8 | 0.7138 | 36 |
| 2025-03-04 | M455 | 12 | 0.3484 | 21 |
| 2025-03-04 | M457 | 9 | 0.5728 | 15 |
| 2025-03-04 | O219 | 8 | 0.9829 | 21 |
| 2025-03-04 | O321 | 11 | 0.8465 | 27 |
| 2025-03-04 | VO16 | 6 | 0.2438 | 15 |
| 2025-03-05 | CL45 | 12 | 0.9817 | 21 |
| 2025-03-05 | M419 | 9 | 0.7904 | 27 |
| 2025-03-05 | M460 | 6 | 0.9893 | 25 |
| 2025-03-05 | M816 | 10 | 0.4104 | 18 |
| 2025-03-05 | O254 | 12 | 0.1509 | 15 |
| 2025-03-05 | VO14 | 7 | 0.5426 | 30 |
| 2025-03-06 | CL52 | 10 | 0.8117 | 54 |
| 2025-03-06 | M455 | 9 | 0.1937 | 15 |
| 2025-03-06 | M457 | 6 | 0.3480 | 36 |
| 2025-03-06 | O254 | 12 | 0.9561 | 15 |
| 2025-03-06 | O321 | 11 | 1.0000 | 5 |
| 2025-03-08 | CL52 | 10 | 0.8361 | 35 |
| 2025-03-08 | M457 | 8 | 0.4862 | 27 |
| 2025-03-08 | M480 | 8 | 0.7615 | 15 |
| 2025-03-08 | O219 | 6 | 0.9796 | 33 |
| 2025-03-08 | O321 | 9 | 0.3680 | 13 |
| 2025-03-09 | CL52 | 13 | 0.2051 | 36 |
| 2025-03-09 | M419 | 11 | 0.6523 | 24 |
| 2025-03-09 | M430 | 8 | 0.3354 | 18 |
| 2025-03-09 | M457 | 9 | 1.0000 | 6 |
| 2025-03-09 | VO14 | 12 | 0.9779 | 48 |
| 2025-03-09 | VO18 | 6 | 0.7696 | 21 |
| 2025-03-10 | CL52 | 9 | 0.8977 | 61 |
| 2025-03-10 | M420 | 8 | 0.5930 | 12 |
| 2025-03-10 | M457 | 7 | 0.5465 | 30 |
| 2025-03-10 | M457 | 9 | 0.8834 | 15 |
| 2025-03-10 | M814 | 12 | 0.6385 | 43 |
| 2025-03-10 | O254 | 7 | 0.8712 | 27 |
| 2025-03-10 | VO14 | 6 | 0.2544 | 24 |
| 2025-03-10 | VO16 | 13 | 0.2437 | 12 |
| 2025-03-11 | CL52 | 8 | 0.2076 | 24 |
| 2025-03-11 | M416 | 10 | 0.5950 | 16 |
| 2025-03-11 | M420 | 8 | 0.8090 | 24 |
| 2025-03-11 | M457 | 10 | 0.8067 | 18 |
| 2025-03-11 | M457 | 7 | 0.2120 | 21 |
| 2025-03-11 | M460 | 13 | 0.5857 | 21 |
| 2025-03-11 | O219 | 9 | 0.9701 | 21 |
| 2025-03-11 | O321 | 12 | 0.9850 | 10 |
| 2025-03-11 | VO14 | 6 | 0.8188 | 27 |
| 2025-03-12 | CL52 | 7 | 0.9779 | 27 |
| 2025-03-12 | M419 | 7 | 0.9844 | 15 |
| 2025-03-12 | M457 | 11 | 0.3291 | 18 |
| 2025-03-12 | M457 | 13 | 0.2312 | 30 |
| 2025-03-12 | M457 | 8 | 0.8195 | 39 |
| 2025-03-12 | M480 | 13 | 0.6563 | 12 |
| 2025-03-12 | O254 | 10 | 0.9697 | 42 |
| 2025-03-12 | VO14 | 6 | 0.3783 | 27 |
| 2025-03-13 | M455 | 13 | 0.4615 | 27 |
| 2025-03-13 | VO14 | 6 | 0.8557 | 24 |
📈 Graphiques par fabrication
for (fab in unique(df_r2_filtered$Fabrication)) {
df <- filtered_data %>% filter(Fabrication == fab)
p <- ggplot(df, aes(x = `Arret apres`, y = ES)) +
geom_point(alpha = 0.6, color = "steelblue") +
geom_smooth(method = "lm", formula = y ~ x, se = FALSE, color = "red") +
stat_poly_eq(formula = y ~ x,
aes(label = paste(..eq.label.., ..rr.label.., sep = "~~~")),
parse = TRUE) +
theme_minimal() +
labs(
title = paste("Fabrication :", fab),
subtitle = "Modèle linéaire (filtré)",
x = "Arrêt après",
y = "Extrait Sec (ES)"
)
print(p)
}
📝 Conclusion
Ce rapport utilise des données filtrées pour chaque
fabrication, en ne conservant que les points qui respectent la logique
métier :
> Quand le temps d’arrêt augmente, l’extrait sec
augmente.
On observe des R² bien plus élevés, révélant la tendance réelle masquée par le bruit initial.