การประเมินค่า K ต่างๆ ด้วยสายตา

การวิเคราะห์กลุ่มข้อมูลใน R

Dmitriy (Dima) Gorenshteyn

Lead Data Scientist, Memorial Sloan Kettering Cancer Center

ผลรวมกำลังสองภายในคลัสเตอร์ทั้งหมด: k = 1

ผลรวมกำลังสองภายในคลัสเตอร์ทั้งหมด: k = 2

ผลรวมกำลังสองภายในคลัสเตอร์ทั้งหมด: k = 3

ผลรวมกำลังสองภายในคลัสเตอร์ทั้งหมด: k = 4

Elbow plot

การสร้าง Elbow plot

model <- kmeans(x = lineup, centers = 2)
model$tot.withinss

[1] 1434.5

การสร้าง Elbow plot

library(purrr)

tot_withinss <- map_dbl(1:10,  function(k){
  model <- kmeans(x = lineup, centers = k)
  model$tot.withinss
})

elbow_df <- data.frame(
  k = 1:10,
  tot_withinss = tot_withinss
)
print(elbow_df)

    k tot_withinss
1   1    3489.9167
2   2    1434.5000
3   3     881.2500
4   4     637.2500
... ...   ...

การสร้าง Elbow plot

ggplot(elbow_df, aes(x = k, y = tot_withinss)) +
  geom_line() +
  scale_x_continuous(breaks = 1:10)

มาฝึกกันเถอะ!

การวิเคราะห์กลุ่มข้อมูลใน R