Ôn tập phân cụm phân cấp

Học không giám sát với R

Hank Roark

Senior Data Scientist at Boeing

Ôn tập phân cụm phân cấp

# Fitting various hierarchical clustering models
hclust.complete <- hclust(d, method = "complete")
hclust.average <- hclust(d, method = "average")
hclust.single <- hclust(d, method = "single")

Phương pháp liên kết: complete và average

phương pháp liên kết complete và average

Phân cụm phân cấp

Lặp

lặp để có nhiều cụm hơn

Sơ đồ cây

5 cụm và sơ đồ cây hoàn chỉnh

Khác biệt giữa k-means và phân cụm phân cấp

k-means và sơ đồ cây

Vấn đề thực hành

# Scale the data
pokemon.scaled <- scale(pokemon)

# Create hierarchical and k-means clustering models
hclust.pokemon <- hclust(dist(pokemon.scaled), method = "complete")
km.pokemon <- kmeans(pokemon.scaled, centers = 3,
                     nstart = 20, iter.max = 50)

# Compare results of the models
cut.pokemon <- cutree(hclust.pokemon, k = 3)
table(km.pokemon$cluster, cut.pokemon)
cut.pokemon

    1   2   3
1 242   1   0
2 342   1   0
3 204   9   1

Ayo berlatih!

Học không giám sát với R