[Day-9] R语言 - K - means ++ 实作 ( K - means ++ in R.Studio)

您的订阅是我制作影片的动力
订阅点这里~

影片程序码

library(naniar)
data(iris)
any_na(iris) #前置1: chk NA
iris <- iris[,-5]
iris <- scale(iris) #前置2: standard norm 标准化

## k-means++ ####
#没写大多为欧式
library(ClusterR) # WCSS 组内平方和 = SSE = SSW，WCSSE sum(WCSS)
opt_km = Optimal_Clusters_KMeans(iris, max_clusters = 10, initializer = 'kmeans++',
                                 criterion = "WCSSE",plot_clusters = T)# random
km = KMeans_rcpp(iris, clusters = 4, num_init = 5, 
                 max_iters = 100, initializer = 'kmeans++') # random
km$WCSS_per_cluster 
km_out <- as.data.frame(km$clusters) 
final <- cbind(iris,km_out) #chk >> wcss同，无随机排序

若内容有误，还请留言指正，谢谢您的指教