NA dans le regroupement des fonctions (kmeans, pam, clara). Comment associer les clusters de données d'origine?

J'ai besoin de regrouper les données, et j'ai essayé kmeans, pam, et clara avec R.

Le problème est que mes données sont dans une colonne d'un bloc de données, et contient NAs.

J'ai utilisé na.omit() pour obtenir mon clusters. Mais alors, comment puis-je associer avec les données d'origine? Les fonctions de retour d'un vecteur d'entiers sans le NAs et ils n'ont pas de conserver toutes les informations au sujet de la position d'origine.

Est-il un moyen astucieux pour associer les clusters à l'origine des observations dans le bloc de données? (ou une intelligence effectuer clustering lorsqu'NAs sont présents?)

Grâce

avez-vous nommé votre lignes? je pense que kmeans et pam (au moins) garder la ligne noms, n'est-ce pas?
j'ai essayé, mais non :/
- Je faire de cette façon: kmeans(na.omettre(x), k)
Le cluster des vecteurs (par exemple,clus$cluster) correspond à la non-NA éléments de x. Si les indices de x que les éléments de clus$cluster correspondent sont which(!is.na(x)).

OriginalL'auteur Bakaburg | 2014-12-18

  1. 7

    La sortie de kmeans correspond aux éléments de l'objet passé en argument x. Dans votre cas, vous omettez le NA éléments, et ainsi de $cluster indique le cluster que chaque élément de na.omit(x) appartient.

    Voici un exemple simple:

    d <- data.frame(x=runif(100), cluster=NA)
d$x[sample(100, 10)] <- NA
clus <- kmeans(na.omit(d$x), 5)

d$cluster[which(!is.na(d$x))] <- clus$cluster

    Et dans le graphique ci-dessous, la couleur indique le cluster que chaque point appartient à.

    plot(d$x, bg=d$cluster, pch=21)

    NA dans le regroupement des fonctions (kmeans, pam, clara). Comment associer les clusters de données d'origine?

    OriginalL'auteur jbaums

  2. 0

    Ce code fonctionne pour moi, à commencer par une matrice contenant une rangée de NAs:

    DF=matrix(rnorm(100), ncol=10)
row.names(DF) <- paste("r", 1:10, sep="")
DF[3,]<-NA
res <- kmeans(na.omit(DF), 3)$cluster
res
DF=cbind(DF, 'clus'=NA)
DF[names(res),][,11] <- res
print(DF[,11])

    OriginalL'auteur agenis