diff --git a/Projet.Rmd b/Projet.Rmd
index 018240f..6d790d6 100644
--- a/Projet.Rmd
+++ b/Projet.Rmd
@@ -661,7 +661,40 @@ fviz_cluster(
   geom = c("point")         # Utiliser des points pour visualiser les données
 ) +
   ggtitle("Visualisation des clusters générés par la méthode PAM")
+# Visualisation des clusters dans le plan original
 
+# Ajouter les clusters aux données d'origine
+data_with_clusters <- MatriceExp
+data_with_clusters$cluster <- as.factor(res_pam$clustering)
+
+ggplot(data_with_clusters, aes(x = ExpT1, y = ExpT2, color = cluster)) +
+  geom_point(size = 3) +
+  labs(
+    title = "Visualisation des clusters PAM dans le plan original des données",
+    x = "ExpT1",
+    y = "ExpT2",
+    color = "Cluster"
+  ) +
+  theme_minimal()
+ggplot(data_with_clusters, aes(x = ExpT1, y = ExpT3, color = cluster)) +
+  geom_point(size = 3) +
+  labs(
+    title = "Visualisation des clusters PAM dans le plan original des données",
+    x = "ExpT1",
+    y = "ExpT2",
+    color = "Cluster"
+  ) +
+  theme_minimal()
+
+ggplot(data_with_clusters, aes(x = ExpT2, y = ExpT3, color = cluster)) +
+  geom_point(size = 3) +
+  labs(
+    title = "Visualisation des clusters PAM dans le plan original des données",
+    x = "ExpT1",
+    y = "ExpT2",
+    color = "Cluster"
+  ) +
+  theme_minimal()
 ```