K-Mittel ClusterProgrammierung in R mit Beispiel
โก Intelligente Zusammenfassung
K-Mittel ClusterIn R werden Beobachtungen gruppiert, indem der Abstand zwischen jedem Punkt und seinem Clusterzentrum minimiert wird. Diese Anleitung standardisiert den Datensatz zu Computerpreisen, veranschaulicht den Algorithmus, ermittelt das optimale k mithilfe der Ellbogenmethode und visualisiert die Cluster anhand einer Heatmap.

Was ist Cluster Analyse?
Cluster Die Analyse gehรถrt zu unbeaufsichtigtes Lernen. Ein Cluster ist eine Gruppe von Daten, die รคhnliche Merkmale aufweisen. Man kรถnnte sagen, dass es bei der Clusteranalyse eher um Entdeckung als um Vorhersage geht. Die Maschine sucht nach รhnlichkeiten in den Daten. Sie kรถnnen die Clusteranalyse beispielsweise fรผr die folgende Anwendung verwenden:
- Kundensegmentierung: Sucht nach รhnlichkeiten zwischen Kundengruppen
- Aktienmarktclustering: Aktien nach Performance gruppieren
- Reduzierung der Dimensionalitรคt eines Datensatzes durch Gruppierungping Beobachtungen mit รคhnlichen Werten
ClusterDie Implementierung einer Analyse ist nicht allzu schwierig und fรผr das Unternehmen sowohl sinnvoll als auch umsetzbar.
Der auffรคlligste Unterschied zwischen รผberwachtem und unรผberwachtem Lernen liegt in den Ergebnissen. Unรผberwachtes Lernen erzeugt eine neue Variable, die Bezeichnung, wรคhrend รผberwachtes Lernen ein Ergebnis vorhersagt. Die Maschine unterstรผtzt den Praktiker bei der Suche nach einer Kennzeichnung der Daten auf der Grundlage enger Zusammenhรคnge. Es ist Sache des Analytikers, die Gruppen zu nutzen und ihnen einen Namen zu geben.
Lassen Sie uns ein Beispiel machen, um das Konzept des Clusterings zu verstehen. Der Einfachheit halber arbeiten wir in zwei Dimensionen. Sie haben Daten รผber die Gesamtausgaben der Kunden und deren Alter. Um die Werbung zu verbessern, mรถchte das Marketingteam seinen Kunden gezieltere E-Mails senden.
In der folgenden Grafik stellen Sie die Gesamtausgaben und das Alter der Kunden dar.
library(ggplot2) df <- data.frame(age = c(18, 21, 22, 24, 26, 26, 27, 30, 31, 35, 39, 40, 41, 42, 44, 46, 47, 48, 49, 54), spend = c(10, 11, 22, 15, 12, 13, 14, 33, 39, 37, 44, 27, 29, 20, 28, 21, 30, 31, 23, 24) ) ggplot(df, aes(x = age, y = spend)) + geom_point()
An dieser Stelle ist ein Muster erkennbar
- Unten links sehen Sie junge Menschen mit geringerer Kaufkraft
- Die obere Mitte spiegelt Menschen wider, die einen Job haben, bei dem sie es sich leisten kรถnnen, mehr auszugeben
- Endlich รคltere Menschen mit geringerem Budget.
In der obigen Abbildung clustern Sie die Beobachtungen manuell und definieren jede der drei Gruppen. Dieses Beispiel ist relativ unkompliziert und sehr anschaulich. Wenn dem Datensatz neue Beobachtungen hinzugefรผgt werden, kรถnnen Sie diese innerhalb der Kreise beschriften. Sie definieren den Kreis nach unserem Ermessen. Stattdessen kรถnnen Sie verwenden Maschinelles lernen um die Daten objektiv zu gruppieren.
In diesem Tutorial erfahren Sie, wie Sie die verwenden k-bedeutet Algorithmus.
K-Means-Algorithmus
K-Means ist die am weitesten verbreitete Clustering-Methode. Der Algorithmus stammt aus den 1950er Jahren und wurde seitdem vielfach verfeinert.
Der Algorithmus versucht, Gruppen zu finden, indem er den Abstand zwischen den Beobachtungen minimiert lokal optimal Lรถsungen. Die Entfernungen werden anhand der Koordinaten der Beobachtungen gemessen. In einem zweidimensionalen Raum sind die Koordinaten beispielsweise einfach x und y.
Der Algorithmus funktioniert wie folgt:
- Schritt 1: Wรคhle k anfรคngliche Zentroide zufรคllig im Merkmalsraum aus
- Schritt 2: Ordnen Sie jede Beobachtung ihrem nรคchstgelegenen Clusterzentrum zu. SchwerpunktDadurch entstehen k Gruppen
- Schritt 3: Shift vom anfรคnglichen Schwerpunkt zum Mittelwert der Koordinaten innerhalb einer Gruppe.
- Schritt 4: Minimieren Sie den Abstand entsprechend den neuen Schwerpunkten. Neue Grenzen werden geschaffen. Somit werden Beobachtungen von einer Gruppe zur anderen verschoben
- Wiederholen, bis keine Beobachtung die Gruppe รคndert
K-Means misst normalerweise den euklidischen Abstand zwischen zwei Beobachtungen x und y:
Es stehen weitere Distanzmaรe zur Verfรผgung, wie beispielsweise die Manhattan- oder die Minkowski-Distanz. Beachten Sie, dass der K-Means-Algorithmus bei jeder Ausfรผhrung unterschiedliche Gruppen liefert. Die anfรคnglichen Distanzwerte sind zufรคllig, und die Berechnung erfolgt so lange, bis innerhalb der Gruppen eine Homogenitรคt erreicht ist. Daher reagiert der K-Means-Algorithmus sehr empfindlich auf die anfรคngliche Wahl der Distanzwerte. Sofern die Anzahl der Beobachtungen und Gruppen nicht gering ist, ist es nahezu unmรถglich, dieselbe Clusterung zu erzielen.
Auswahl der Anzahl der Cluster
Eine weitere Schwierigkeit bei k-Means ist die Wahl der Clusteranzahl. Man kann einen hohen Wert fรผr k festlegen, was eine groรe Anzahl von Gruppen bedeutet, um die Homogenitรคt innerhalb der Gruppen zu verbessern, riskiert aber, dassโฆ รberanpassung Die Daten. รberanpassung bedeutet, dass die Leistung bei neuen Daten stark abfรคllt, da das Modell das Rauschen in dieser speziellen Stichprobe anstatt des zugrunde liegenden Musters auswendig gelernt hat.
Die Anzahl der Cluster hรคngt von der Art des Datensatzes, der Branche, dem Geschรคft usw. ab. Es gibt jedoch eine Faustregel fรผr die Auswahl der geeigneten Clusteranzahl:
wobei n die Anzahl der Beobachtungen im Datensatz ist.
In der Praxis lohnt es sich, Zeit damit zu verbringen, den Wert von k zu finden, der am besten zu den Geschรคftsanforderungen passt.
Wir werden den Datensatz โPreise fรผr Personalcomputerโ verwenden, um unsere Clusteranalyse durchzufรผhren. Dieser Datensatz enthรคlt 6259 Beobachtungen und 10 Merkmale. Der Datensatz beobachtet den Preis von 1993 Personalcomputern in den USA von 1995 bis 486. Die Variablen sind unter anderem Preis, Geschwindigkeit, RAM, Bildschirm und CD.
Sie gehen wie folgt vor:
- Daten importieren
- Trainiere das Modell
- Bewerten Sie das Modell
Daten importieren
K-Means ist fรผr Faktorvariablen ungeeignet, da es mit Distanzen arbeitet und diskrete Labels keine sinnvolle Distanz zueinander aufweisen. Entfernen Sie die drei kategorialen Spalten (cd, multi, premium) zusammen mit dem Zeilenindex X. Dieser Datensatz enthรคlt keine fehlenden Werte.
library(dplyr) PATH <-"https://raw.githubusercontent.com/guru99-edu/R-Programming/master/computers.csv" df <- read.csv(PATH) %>% select(-c(X, cd, multi, premium)) glimpse(df)
Ausgang
## Observations: 6,259 ## Variables: 7 ## $ price <int> 1499, 1795, 1595, 1849, 3295, 3695, 1720, 1995, 2225, 2... ## $ speed <int> 25, 33, 25, 25, 33, 66, 25, 50, 50, 50, 33, 66, 50, 25, ... ## $ hd <int> 80, 85, 170, 170, 340, 340, 170, 85, 210, 210, 170, 210... ## $ ram <int> 4, 2, 4, 8, 16, 16, 4, 2, 8, 4, 8, 8, 4, 8, 8, 4, 2, 4, ... ## $ screen <int> 14, 14, 15, 14, 14, 14, 14, 14, 14, 15, 15, 14, 14, 14, ... ## $ ads <int> 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, 94, ... ## $ trend <int> 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1...
Aus den zusammenfassenden Statistiken geht hervor, dass die Daten groรe Werte aufweisen. Vor Anwendung einer distanzbasierten Methode empfiehlt es sich, die Daten zu standardisieren, sodass jede Variable einen Standardwert besitzt. Mittelwert null und Standardabweichung einsOhne sie wรผrde der Preis, dessen Werte in die Tausende gehen, die Entfernungsberechnung dominieren und die Bildschirmgrรถรe wรผrde fast keine Rolle mehr spielen.
summary(df)
Ausgang:
## price speed hd ram ## Min. : 949 Min. : 25.00 Min. : 80.0 Min. : 2.000 ## 1st Qu.:1794 1st Qu.: 33.00 1st Qu.: 214.0 1st Qu.: 4.000 ## Median :2144 Median : 50.00 Median : 340.0 Median : 8.000 ## Mean :2220 Mean : 52.01 Mean : 416.6 Mean : 8.287 ## 3rd Qu.:2595 3rd Qu.: 66.00 3rd Qu.: 528.0 3rd Qu.: 8.000 ## Max. :5399 Max. :100.00 Max. :2100.0 Max. :32.000 ## screen ads trend ## Min. :14.00 Min. : 39.0 Min. : 1.00 ## 1st Qu.:14.00 1st Qu.:162.5 1st Qu.:10.00 ## Median :14.00 Median :246.0 Median :16.00 ## Mean :14.61 Mean :221.3 Mean :15.93 ## 3rd Qu.:15.00 3rd Qu.:275.0 3rd Qu.:21.50 ## Max. :17.00 Max. :339.0 Max. :35.00
Sie skalieren die Variablen mit der Funktion โscale()โ der dplyr-Bibliothek neu. Die Transformation reduziert den Einfluss von Ausreiรern und ermรถglicht den Vergleich einer einzelnen Beobachtung mit dem Mittelwert. Wenn ein standardisierter Wert (bzw Z-Score) hoch ist, kรถnnen Sie sicher sein, dass diese Beobachtung tatsรคchlich รผber dem Mittelwert liegt (ein groรer Z-Score bedeutet, dass dieser Punkt hinsichtlich der Standardabweichung weit vom Mittelwert entfernt ist. Ein Z-Score von zwei zeigt an, dass der Wert 2 Standard ist Abweichungen vom Mittelwert. Beachten Sie, dass der Z-Score einer Gauรschen Verteilung folgt und symmetrisch um den Mittelwert ist.
# Note: speed is deliberately left out of the scaled data frame rescale_df <- df %>% mutate(price_scal = scale(price), hd_scal = scale(hd), ram_scal = scale(ram), screen_scal = scale(screen), ads_scal = scale(ads), trend_scal = scale(trend)) %>% select(-c(price, speed, hd, ram, screen, ads, trend))
R Base verfรผgt รผber eine Funktion zum Ausfรผhren des k-Mean-Algorithmus. Die Grundfunktion von k mean ist:
kmeans(df, k) arguments: -df: dataset used to run the algorithm -k: Number of clusters
Trainiere das Modell
In Abbildung drei haben Sie die Funktionsweise des Algorithmus detailliert dargestellt. Sie kรถnnen jeden Schritt grafisch mit dem Animationspaket von Yihui Xie verfolgen, der auch knitr fรผr R Markdown entwickelt hat. Das Paket ist nicht in den Conda-Kanรคlen verfรผgbar, daher installieren Sie es bitte von CRAN.
install.packages("animation")
Nachdem Sie die Bibliothek geladen haben, fรผgen Sie .ani nach kmeans und hinzu R stellt alle Schritte dar. Zur Veranschaulichung fรผhren Sie den Algorithmus nur mit den neu skalierten Variablen hd und ram mit drei Clustern aus.
set.seed(2345) library(animation) kmeans.ani(rescale_df[2:3], 3)
Code Erlรคuterung
- kmeans.ani(rescale_df[2:3], 3): Wรคhlen Sie die Spalten 2 und 3 des rescale_df-Datensatzes aus und fรผhren Sie den Algorithmus mit k-Sets auf 3 aus. Zeichnen Sie die Animation.
Sie kรถnnen die Animation wie folgt interpretieren:
- Schritt 1: R wรคhlt zufรคllig drei Punkte aus
- Schritt 2: Berechnen Sie die euklidische Distanz und zeichnen Sie die Cluster ein. Sie haben unten links einen grรผnen Cluster, rechts einen groรen schwarz gefรคrbten Cluster und dazwischen einen roten.
- Schritt 3: Berechnen Sie den Schwerpunkt, also den Mittelwert der Cluster
- Wiederholen, bis sich der Cluster nicht mehr von den Daten รคndert
Der Algorithmus konvergierte nach sieben Iterationen. Sie kรถnnen den k-Mean-Algorithmus in unserem Datensatz mit fรผnf Clustern ausfรผhren und ihn pc_cluster nennen.
pc_cluster <-kmeans(rescale_df, 5)
Die Liste pc_cluster enthรคlt sieben nรผtzliche Elemente:
- pc_cluster$cluster: Der Cluster, der jeder Beobachtung zugeordnet ist
- pc_cluster$centers: Die Clusterzentren
- pc_cluster$totss: Die Gesamtsumme der Quadrate
- pc_cluster$withinss: Summe der Quadrate innerhalb des Clusters, ein Wert pro Cluster
- pc_cluster$tot.withinss: Die Summe von withinss
- pc_cluster$betweenss: Gesamtquadratsumme minus der Quadratsumme innerhalb der Cluster
- pc_cluster$size: Anzahl der Beobachtungen innerhalb jedes Clusters
Sie verwenden die Summe der quadrierten Werte innerhalb (also tot.withinss), um die optimale Anzahl von Clustern k zu berechnen. Die Ermittlung von k ist in der Tat eine umfangreiche Aufgabe.
Wie man das optimale k mit der Ellbogenmethode findet
Eine Technik zur Auswahl des besten k heiรt Ellbogenmethode. Diese Methode verwendet Homogenitรคt oder Heterogenitรคt innerhalb der Gruppe, um die Variabilitรคt zu bewerten. Mit anderen Worten, Sie sind an dem Prozentsatz der Varianz interessiert, der durch jeden Cluster erklรคrt wird. Sie kรถnnen davon ausgehen, dass die Variabilitรคt mit der Anzahl der Cluster zunimmt, wรคhrend die Heterogenitรคt abnimmt. Unsere Herausforderung besteht darin, das k zu finden, das jenseits der abnehmenden Ertrรคge liegt. Das Hinzufรผgen eines neuen Clusters verbessert die Variabilitรคt in den Daten nicht, da nur noch sehr wenige Informationen รผbrig sind, die erklรคrt werden mรผssen.
In diesem Tutorial finden wir diesen Punkt mithilfe des Heterogenitรคtsmaรes. Die Summe der Quadrate innerhalb der Cluster ist tot.withinss in der von kmean() zurรผckgegebenen Liste.
Sie kรถnnen das Ellbogendiagramm erstellen und das optimale k wie folgt ermitteln:
- Schritt 1: Erstellen Sie eine Funktion zur Berechnung der Summe der Quadrate innerhalb der Cluster
- Schritt 2: Fรผhre den Algorithmus fรผr einen Bereich von k-Werten aus.
- Schritt 3: Erstellen Sie einen Datenrahmen mit den Ergebnissen des Algorithmus
- Schritt 4: Zeichnen Sie die Ergebnisse grafisch auf
Schritt 1) Erstellen Sie eine Funktion zur Berechnung der Summe der Quadrate innerhalb von Clustern
Sie erstellen die Funktion, die den K-Mean-Algorithmus ausfรผhrt und die Summe der Quadrate innerhalb der Cluster speichert
kmean_withinss <- function(k) { cluster <- kmeans(rescale_df, k) return (cluster$tot.withinss) }
Code Erlรคuterung
- Funktion(k): Legen Sie die Anzahl der Argumente in der Funktion fest
- kmeans(rescale_df, k): Fรผhre den Algorithmus fรผr diesen Wert von k aus.
- return(cluster$tot.withinss): Speichert die Summe der Quadrate innerhalb der Cluster
Teste die Funktion mit k gleich 2.
Ausgang:
## Try with 2 cluster
kmean_withinss(2)
Ausgang:
## [1] 27087.07
Schritt 2) Fรผhren Sie den Algorithmus n-mal aus
Sie verwenden die Funktion sapply(), um den Algorithmus รผber einen Bereich von k auszufรผhren. Diese Technik ist schneller als das Erstellen einer Schleife und das Speichern des Werts.
# Set maximum cluster max_k <-20 # Run algorithm over a range of k wss <- sapply(2:max_k, kmean_withinss)
Code Erlรคuterung
- max_k <- 20: Setze den Maximalwert von k auf 20.
- sapply(2:max_k, kmean_withinss): Fรผhren Sie die Funktion kmean_withinss() รผber einen Bereich von 2:max_k aus, also 2 bis 20.
Schritt 3) Erstellen Sie einen Datenrahmen mit den Ergebnissen des Algorithmus
Nachdem die Funktion geschrieben und getestet wurde, fรผhren Sie sie im Bereich von 2 bis 20 aus und speichern Sie jeden Wert von tot.withinss.
# Create a data frame to plot the graph elbow <-data.frame(2:max_k, wss)
Code Erlรคuterung
- data.frame(2:max_k, wss): Erstellen Sie einen Datenrahmen mit der Ausgabe des Algorithmusspeichers in wss
Schritt 4) Plotten Sie die Ergebnisse
Sie zeichnen das Diagramm, um zu visualisieren, wo sich der Ellbogenpunkt befindet
# Plot the graph with gglop ggplot(elbow, aes(x = X2.max_k, y = wss)) + geom_point() + geom_line() + scale_x_continuous(breaks = seq(1, 20, by = 1))
Aus der Grafik kรถnnen Sie ersehen, dass das optimale k bei sieben liegt, wobei die Kurve beginnt, eine abnehmende Rendite zu erzielen.
Sobald Sie unser optimales k haben, fรผhren Sie den Algorithmus erneut mit k gleich 7 aus und bewerten die Cluster.
Untersuchung der Cluster
pc_cluster_2 <-kmeans(rescale_df, 7)
Wie bereits erwรคhnt, kรถnnen Sie auf die verbleibenden interessanten Informationen in der von kmean() zurรผckgegebenen Liste zugreifen.
pc_cluster_2$cluster pc_cluster_2$centers pc_cluster_2$size
Die Bewertung ist subjektiv und hรคngt vom Zweck der Cluster ab. Ziel ist es, Computer mit รคhnlichen Spezifikationen zu gruppieren. Ein Fachexperte kรถnnte dies manuell durchfรผhren, aber der Prozess wรคre langsam und fehleranfรคllig. K-Means รผbernimmt diese Gruppierung.ping objektiv und รผberlรคsst es dem Experten, das Ergebnis zu interpretieren und zu benennen.
Zur Vorabbewertung kรถnnen Sie sich die Grรถรe der Cluster ansehen.
pc_cluster_2$size
Ausgang:
## [1] 608 1596 1231 580 1003 699 542
Der grรถรte Cluster (Nummer 2) umfasst 1,596 Beobachtungen, wรคhrend der kleinste (Nummer 7) nur 542 Computer enthรคlt. Eine Homogenitรคt zwischen den Clustern wรคre wรผnschenswert; andernfalls kรถnnte eine weniger umfangreiche Datenaufbereitung erforderlich sein.
Die Center-Komponente ermรถglicht einen detaillierteren Einblick in die Daten. Die Zeilen geben die Nummerierung der Cluster an, die Spalten die vom Algorithmus verwendeten Variablen. Die Werte stellen den durchschnittlichen Score jedes Clusters fรผr die jeweilige Spalte dar. Die Standardisierung erleichtert die Interpretation. Positive Werte zeigen an, dass der z-Score eines Clusters รผber dem Gesamtmittelwert liegt. Beispielsweise weist Cluster 4 den hรถchsten Durchschnittspreis auf (price_scal = 1.09), wรคhrend Cluster 5 den niedrigsten aufweist (-0.82).
center <-pc_cluster_2$centers center
Ausgang:
## price_scal hd_scal ram_scal screen_scal ads_scal trend_scal ## 1 -0.6372457 -0.7097995 -0.691520682 -0.4401632 0.6780366 -0.3379751 ## 2 -0.1323863 0.6299541 0.004786730 2.6419582 -0.8894946 1.2673184 ## 3 0.8745816 0.2574164 0.513105797 -0.2003237 0.6734261 -0.3300536 ## 4 1.0912296 -0.2401936 0.006526723 2.6419582 0.4704301 -0.4132057 ## 5 -0.8155183 0.2814882 -0.307621003 -0.3205176 -0.9052979 1.2177279 ## 6 0.8830191 2.1019454 2.168706085 0.4492922 -0.9035248 1.2069855 ## 7 0.2215678 -0.7132577 -0.318050275 -0.3878782 -1.3206229 -1.5490909
Sie kรถnnen mit ggplot eine Heatmap erstellen, um uns dabei zu helfen, den Unterschied zwischen Kategorien hervorzuheben.
Die Standardfarben von ggplot mรผssen mit der RColorBrewer-Bibliothek geรคndert werden. Sie kรถnnen die Conda verwenden und der Code zum Starten im Terminal:
conda install -c r r-rcolorbrewer
Um eine Heatmap zu erstellen, gehen Sie in drei Schritten vor:
- Erstellen Sie einen Datenrahmen mit den Werten des Zentrums und erstellen Sie eine Variable mit der Nummer des Clusters
- Formen Sie die Daten mit der Funktion โgather()โ der Tidyr-Bibliothek um. Sie mรถchten Daten von breit nach lang umwandeln.
- Erstellen Sie die Farbpalette mit FarbeRampPalette()-Funktion
Schritt 1) Erstellen Sie einen Datenrahmen
Lassen Sie uns den Umformungsdatensatz erstellen
library(tidyr) # create dataset with the cluster number cluster <- c(1: 7) center_df <- data.frame(cluster, center) # Reshape the data center_reshape <- gather(center_df, features, values, price_scal: trend_scal) head(center_reshape)
Ausgang:
## cluster features values ## 1 1 price_scal -0.6372457 ## 2 2 price_scal -0.1323863 ## 3 3 price_scal 0.8745816 ## 4 4 price_scal 1.0912296 ## 5 5 price_scal -0.8155183 ## 6 6 price_scal 0.8830191
Schritt 2) Erstelle die Farbpalette
Der unten stehende Code erstellt die Farbpalette, die von der Heatmap verwendet wird.
library(RColorBrewer) # Create the palette hm.palette <-colorRampPalette(rev(brewer.pal(10, 'RdYlGn')),space='Lab')
Schritt 3) Visualisieren
Sie kรถnnen das Diagramm zeichnen und sehen, wie die Cluster aussehen.
# Plot the heat map ggplot(data = center_reshape, aes(x = features, y = cluster, fill = values)) + scale_y_continuous(breaks = seq(1, 7, by = 1)) + geom_tile() + coord_equal() + scale_fill_gradientn(colours = hm.palette(90)) + theme_classic()
Wie man mit set.seed() und nstart reproduzierbare K-Means-Ergebnisse erzielt
Im Tutorial wird darauf hingewiesen, dass k-Means bei jedem Durchlauf unterschiedliche Gruppen liefert. Dies ist kein unerklรคrlicher Fehler, sondern ein Problem, fรผr das es zwei Standardlรถsungen gibt, die in den obigen Beispielen jedoch nicht verwendet werden.
1. Den Startpunkt mit set.seed() festlegen. Die anfรคnglichen Zentroide werden zufรคllig ausgewรคhlt, sodass derselbe Aufruf jedes Mal unterschiedliche Cluster erzeugt. Durch das Festlegen eines Startwerts wird die gesamte Analyse reproduzierbar:
set.seed(123)
pc_cluster_2 <- kmeans(rescale_df, 7)
2. Fรผhren Sie mehrere Starts durch und behalten Sie den besten mit nstart. Ein einzelner zufรคlliger Startwert kann zu einem ungรผnstigen lokalen Optimum fรผhren. Das Argument nstart fรผhrt den Algorithmus so oft von verschiedenen zufรคlligen Startwerten aus und gibt denjenigen mit der niedrigsten Summe der Quadrate zurรผck:
set.seed(123)
pc_cluster_2 <- kmeans(rescale_df, centers = 7, nstart = 25)
Fรผnfundzwanzig Starts sind die รผbliche Empfehlung und verursachen bei einem Datensatz dieser Grรถรe nur geringe Kosten. Ohne sie wird die Ellbogenkurve selbst instabil, da jeder Punkt im Diagramm auf einem einzelnen unglรผcklichen oder glรผcklichen Start basiert. Die zuvor definierte Funktion `kmean_withinss()` sollte daher wie folgt geschrieben werden:
kmean_withinss <- function(k) { cluster <- kmeans(rescale_df, centers = k, nstart = 25) return (cluster$tot.withinss) }
3. Erhรถhe iter.max, wenn der Algorithmus eine Warnung ausgibt. Falls R meldet, dass โin 10 Iterationen nicht konvergiertโ, setzen Sie iter.max = 50, um mehr Spielraum zu schaffen.
K-Means vs. hierarchische Clustering in R
K-Means ist nicht die einzige verfรผgbare Clustering-Methode, und die Wahl hรคngt in der Regel von der Grรถรe der Daten und davon ab, ob man bereits weiร, wie viele Gruppen man haben mรถchte.
| Eigenschaften | K-Mittel | Hierarchisch |
|---|---|---|
| Anzahl der Cluster | Muss im Voraus ausgewรคhlt werden. | Anschlieรend ausgewรคhlt, indem das Dendrogramm ausgeschnitten wurde |
| Ergebnisstabilitรคt | Variiert je nach zufรคlligem Start | Deterministisch |
| Skalierbarkeit | Verarbeitet sehr groรe Datensรคtze | Schwierigkeiten jenseits einiger tausend Reihen |
| Cluster gestalten | Setzt annรคhernd kugelfรถrmige, รคhnlich groรe Gruppen voraus. | Flexibler |
| Ausgang | Ein flacher Satz Etiketten | Ein Dendrogramm, das die verschachtelte Struktur zeigt |
| R-Funktion | kmeans(df, k) | hclust(dist(df)) |
# Hierarchical alternative on the same scaled data hc <- hclust(dist(rescale_df), method = "ward.D2") plot(hc) groups <- cutree(hc, k = 7)
Bei 6,259 Beobachtungen muss die hierarchische Clusteranalyse eine Distanzmatrix von etwa 19.6 Millionen Paaren erstellen. Daher ist k-Means fรผr diesen Datensatz die praktikablere Wahl. k-Means setzt zudem voraus, dass die Cluster รคhnliche Grรถรe und annรคhernd kugelfรถrmige Gestalt aufweisen. Trifft diese Annahme nicht zu, verarbeitet DBSCAN unregelmรครige Formen und identifiziert Ausreiรer, anstatt jeden Punkt einer Gruppe zuzuordnen.
K-Mittel Clustering in R: Funktionsreferenz
Alle in diesem Tutorial verwendeten Funktionen sind unten aufgefรผhrt:
| Verpackung | Ziel | Funktion | Argument |
|---|---|---|---|
| Base | Trainieren Sie k-mean | kmeans () | df, k |
| Zugriffscluster | kmeans()$cluster | ||
| Cluster Zentren | kmeans()$centers | ||
| Cluster Grรถรe | kmeans()$size | ||
| Summe der Quadrate | kmeans()$tot.withinss | Wird mit der Ellbogenmethode verwendet | |
| Zwischen Summe der Quadrate | kmeans()$betweenss | ||
| Base | Reproduzierbarer Lauf | set.seed() | Seed-Wert |
| Base | Ergebnis stabilisieren | kmeans(df, k, nstart = 25) | nstart |








