Discussion :

[Gakusei]

Bonjour,

Je souhaite trouver les 4 centres des régions des nuages de points en bleu.
Pour cela j'utilise la fonction kmeans.
La fonction kmeans renvoie de temps en temps une mauvaise localisation comme dans l'image ci-jointe (en rouge les centres des régions).

Est-il possible d'éviter ce problème ou de réduire les chances de tomber dans ces cas-ci?

[dev_ggy]

La fonction kmeans renvoie de temps en temps une mauvaise localisation comme dans l'image ci-jointe (en rouge les centres des régions).

Oui, la méthode kmeans, lors de l'initialisation, choisit des centres de manière aléatoire, ce qui peut induire un mauvais choix pour l'algorithme.

Est-il possible d'éviter ce problème ou de réduire les chances de tomber dans ces cas-ci?

Pour résoudre ce problème, je ne vois que deux solutions :

Tu fais plusieurs essais en comparant les indicateurs de qualité et, entre autres, l'inertie interne par rapport à l'inertie externe.

Sinon, tu peux choisir les centres au départ de l'algorithme dans la fonction kmean (param : centers).

Cordialement.

[Guinue]

Bonjour,

C'est effectivement l'un des problèmes qui peut survenir avec la méthode des K-means. Les centres de classes ne varient plus assez (aux vues du critère d'arrêt choisi) mais la situation n'est qu'un optimum local.
Vous pouvez essayer de faire une CAH au préalable sur une partie de votre jeu de données. La CAH étant plus robuste (mais aussi beaucoup plus gourmande en ressources), elle fournit des centres de classe que vous pourrez utiliser comme base pour une méthode des K-means appliquée à l'ensemble de vos données.

En espérant vous avoir aidé un peu, bonne journée à vous !

[Hadrien35]

Bonjour,

L'image me fait penser que tu as fixé 3 centres et non 4... Peux-tu nous confirmer que tu as bien choisis 4 centres de classes?

Bien cordialement

[Gakusei]

Merci pour vos réponses,

@dev ggy:
Malheureusement je ne connais pas du tout la localisation de ces clusters même de manière approximatives.

@Guinue:
Merci pour l'idée de la CAH. C'est exactement ce qu'il me fallait. Mais je n'ai plus besoin en réalité d'utiliser l'algorithme des k-means dans ce cas.
Voici l'extrait du code R:

Code :

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

1
2
3
 
hca=hclust(dist(pts)^2)
cl=cutree(hca,k=4)

@Hadrien35:
C'est bien 4 centres (4 cercles rouges sur le graphique).

[Guinue]

Content de pouvoir aider

La technique de la CAH peut être appliquée directement si les données ne sont pas trop nombreuses car l'algorithme est relativement complexe comparé à celui des K-means. Sur de grosses bases pour éviter le temps de calcul un peu longuet l'une des options est de réaliser une CAH sur un échantillon de données et de lancer ensuite les K-means avec les centres fournis par la CAH.

Bref, si une CAH convient, pourquoi ne pas s'en contenter !

A bientôt au détour d'une question.

[Gakusei]

Oui, effectivement j'ai remarqué, le temps de calcul augmente significativement si on fait varier le nombre de clusters et/ou de points.
Mais dans mon cas, le temps de calcul est quasi instantané et la qualité du résultat est importante.

Vous pourrez constater les résultats des 3 méthodes (3 images).
Et je mets aussi l'extrait du code pour ceux que ça intéresse :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
 
find_resolution<-function(canal_R,cote,method="mclust",affichage=TRUE,seuil=0.8)
{
##
#  Input:
#     ->cote: coté du carré en mm
#     ->canal_R: Canal Rouge de l'image
#     ->method: "kmeans" ou "hclust"
#     ->seuil: pour seuiller l'image et prélever les 4 lasers
#  Output:
#     -> taille du pixel en mm
 
    #points susceptibles d'appartenir au sommet du carré
    pts=which(canal_R>max(canal_R)*seuil,arr.ind=TRUE)
 
    ptm<-proc.time()
    # Détermination des 4 groupes des nuages de points
    N=4
    if(method=="kmeans"){
        cadre=matrix(c(1,1,dim(canal_R)[1],dim(canal_R)[1],1,dim(canal_R)[2],1,dim(canal_R)[2]),ncol=2)
        cl<-tryCatch(kmeans(pts,cadre), error= function(e) {print(e);kmeans(pts,N)})
        sommets=cl$centers
        cl=cl$cluster
    }else if(method=="hclust")
    {
        hca=hclust(dist(pts)^2)
        cl=cutree(hca,k=N)
        sommets=matrix(1:(N*2),ncol=2)*0
        for(i in 1:N){
          cluster=matrix(pts[cl==i],ncol=2)
          sommets[i,]=colSums(cluster)/dim(cluster)[1]
        }
    }else if(method=="mclust"){
        library(mclust)
        cl=Mclust(pts)
        nb_cl=cl$G
        cl=cl$classification
        nb_pts_par_cl=1:nb_cl*0  #allocation
        for(i in 1:nb_cl){ nb_pts_par_cl[i]=sum(cl==i)}
        ordre=sort(nb_pts_par_cl,decreasing=TRUE,index.return=TRUE)  #classement par plus grand nombre de points
        sommets=matrix(1:min(N*2,2*nb_cl),ncol=2)*0
        for(i in 1:min(N,nb_cl)){
          cluster=matrix(pts[cl==ordre$ix[i]],ncol=2)
          sommets[i,]=colSums(cluster)/dim(cluster)[1]  #prélèvement des 4 clusters
        }
        N=nb_cl
    }else if(method=="minmax"){
        N=0
        cl1=c( min(pts[,1]),min(pts[,2]) )
        cl2=c( max(pts[,1]),max(pts[,2]) )
        sommets=rbind(cl1,cl2)
    }else{
        print("Mauvaise entrée pour l'argument: method (hclust,kmeans,mclust,minmax) ")
        return (0)
    }
 
    #Détermination d'une diagonale <=> distance la plus grande des clusters
    ind_clust_diag=as.matrix(dist(sommets))
    clust_diag= arrayInd(which.max(ind_clust_diag),dim(ind_clust_diag))
    centre_carre= colSums(sommets[clust_diag,]) /2  #milieux de la diagonale
    distance_moyenne=mean( sqrt(rowSums((  cbind(sommets[,1]-centre_carre[1],sommets[,2]-centre_carre[2] )   )^2)) )
    cote_pixel=distance_moyenne*2/sqrt(2)
    taille_pixel=cote/cote_pixel
    print(proc.time()-ptm )
 
    # Affichage
    if(affichage==TRUE)
    {
      windows()
      layout(matrix(1:4,2,2))
      image(canal_R,col=grey(0:255/255))
      title(c("Image faveur Rouge:"," 2/3.Red-1/3(Green+Blue)"))
      image(canal_R>max(canal_R)*seuil,col=grey(0:255/255))
      title("image seuillé")
      plot(pts[,1],pts[,2])
      if(N>0){for(i in 1:N){points(matrix(pts[cl==i],ncol=2),col=i) }  }
      points (sommets[,1],sommets[,2],pch=3,col=N+1)
      title(paste("Clustering par la méthode:",method))
      mtext(paste("taille pixel=",taille_pixel," mm"))
    }
 
    return(taille_pixel)
}

Si vous avez des propositions de simplification ou des arrangements, je suis preneur d'autant plus que je débute sous R.