Как переименовать кластеры kmeans по численно отсортированным центрам

Question

Я пытаюсь численно установить значения кластера для вывода kmeans () в R.

Я прошу помочь вручную сбросить идентификаторы кластера kmeans на основе численно отсортированных km $ центров.Таким образом, кластер 1 представляет численно высокие значения, кластер 2 - наивысший, а кластер 3 - наименьший.

#Quick DF 
id   <- seq(1, 100, by=1)
nums <- runif(100, min=0, max=10)
df   <- data.frame( id , nums )

#Kmeans 
km <- kmeans( df$nums , 3 , nstart = 20 )
km$centers 

Answer 1

Вы имеете в виду

km$cluster <- sapply(km$cluster,function(x){rank(-km$centers)[x]})