Список кластеризации для функции hclust - PullRequest
28 голосов
/ 29 июня 2011

Используя метод plot(hclust(dist(x))), я смог нарисовать карту дерева кластеров. Оно работает. Тем не менее, я хотел бы получить список всех кластеров, а не древовидную диаграмму, потому что у меня огромное количество данных (например, 150 тыс. Узлов), и сюжет становится грязным.

Другими словами, скажем, если a b c является кластером, а если d e f g является кластером, то я хотел бы получить что-то вроде этого:

1 a,b,c
2 d,e,f,g

Обратите внимание, что это не совсем то, что я хочу получить в качестве "вывода". Это всего лишь пример. Я просто хотел бы иметь возможность получить список кластеров вместо древовидного графика. Это могут быть векторные, матричные или просто простые числа, которые показывают, к каким группам относятся элементы.

Как это возможно?

Ответы [ 2 ]

43 голосов
/ 29 июня 2011

Я буду использовать набор данных, доступный в R, чтобы продемонстрировать, как разрезать дерево на нужное количество частей.Результатом является таблица.

Создание объекта hclust.

hc <- hclust(dist(USArrests), "ave")
#plot(hc)

Теперь вы можете разрезать дерево на любое количество веток.Для моего следующего трюка я разделю дерево на две группы.Количество срезов устанавливается параметром k.См. ?cutree и использование параметра h, который может быть более полезным для вас (см. cutree(hc, k = 2) == cutree(hc, h = 110)).

cutree(hc, k = 2)
       Alabama         Alaska        Arizona       Arkansas     California 
             1              1              1              2              1 
      Colorado    Connecticut       Delaware        Florida        Georgia 
             2              2              1              1              2 
        Hawaii          Idaho       Illinois        Indiana           Iowa 
             2              2              1              2              2 
        Kansas       Kentucky      Louisiana          Maine       Maryland 
             2              2              1              2              1 
 Massachusetts       Michigan      Minnesota    Mississippi       Missouri 
             2              1              2              1              2 
       Montana       Nebraska         Nevada  New Hampshire     New Jersey 
             2              2              1              2              2 
    New Mexico       New York North Carolina   North Dakota           Ohio 
             1              1              1              2              2 
      Oklahoma         Oregon   Pennsylvania   Rhode Island South Carolina 
             2              2              2              2              1 
  South Dakota      Tennessee          Texas           Utah        Vermont 
             2              2              2              2              2 
      Virginia     Washington  West Virginia      Wisconsin        Wyoming 
             2              2              2              2              2
16 голосов
/ 16 сентября 2013

Допустим,

y<-dist(x)
clust<-hclust(y)
groups<-cutree(clust, k=3)
x<-cbind(x,groups)

Теперь вы получите для каждой записи группу кластеров.Вы также можете установить поднабор данных:

x1<- subset(x, groups==1)
x2<- subset(x, groups==2)
x3<- subset(x, groups==3)
...