Вырезание и объединение дендрограммы по кластерам - PullRequest
Новая
       27

Вырезание и объединение дендрограммы по кластерам

0 голосов
/ 11 июня 2019

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

Я пытался вырезать и объединить исходную дендрограмму (dends) в новую дендрограмму (hc).

Это сработало по сути, но у hc нет атрибутов расстояния и метода кластера dends.

Это атрибуты дендов: 

    > dends

    Call:
    hclust(d = d, method = "ward.D2")

    Cluster method   : ward.D2 
    Distance         : euclidean 
    Number of objects: 111

Вот как я вырезал и слил концы в hc: 

    cluster1 <- dends[[1]]
    cluster2 <- dends[[2]][[1]]
    cluster3 <- dends[[2]][[2]][[2]]
    cluster4 <- dends[[2]][[2]][[1]]
    hc <- as.hclust(merge(merge(merge(cluster4, cluster3), cluster2), cluster1))

Но это атрибуты hc: 

    > hc

    Call:
    as.hclust.dendrogram(x = merge(merge(merge(cluster4, cluster3), cluster2), cluster1))     

    Cluster method   : NA 
    Distance         : NA 
    Number of objects: 111

Я понимаю, что hc вызывает другую функцию для dends, и это может быть причиной проблемы, но я не совсем уверен, как иначе объединить все кластеры.

Есть ли способ для hc сохранить атрибуты dends или я могу как-то назначить их для hc? Или, если это не удастся, есть ли другой способ изменить порядок двух конечных кластеров дендов?

Спасибо.

...