mougnibas/projet-analyse-donnees
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

PAM

Browse source
This commit is contained in:
thaaoblues 2025-01-12 12:36:47 +01:00
parent fb62218739
commit 44731bbd56
1 changed files with 33 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
Projet.Rmd
View file

@ -661,7 +661,40 @@ fviz_cluster(
geom = c("point") # Utiliser des points pour visualiser les données geom = c("point") # Utiliser des points pour visualiser les données
) + ) +
ggtitle("Visualisation des clusters générés par la méthode PAM") 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()
``` ```