どのようにすれば、樹状図のノードを別の行に色付けすることができますか？

Question

樹状図のノードを樹状図の最下部に塗りつぶしたいのですが、別の行にします。 下のリンクの最後の樹状図は、しかし、1つの線が非常にスミアになる大きいデータセットの場合 Label and color leaf dendrogram in r 各色のグループに別々の行を割り当てることは可能ですか？

Answer 1

はい。 dendextendパッケージの関数colored_barsを使用したいとします。

library(dendextend) 
dend15 <- c(1:5) %>% dist %>% hclust(method = "average") %>% as.dendrogram 
is_odd <- ifelse(labels(dend15) %% 2, 2,3) 
is_345 <- ifelse(labels(dend15) > 2, 3,4) 
is_12 <- ifelse(labels(dend15) <= 2, 3,4) 
k_3 <- cutree(dend15,k = 3, order_clusters_as_data = FALSE) 
# The FALSE above makes sure we get the clusters in the order of the 
# dendrogram, and not in that of the original data. It is like: 
# cutree(dend15, k = 3)[order.dendrogram(dend15)] 
the_bars <- cbind(is_odd, is_345, is_12, k_3) 
the_bars[the_bars==2] <- 8 

dend15 %>% plot 
colored_bars(colors = the_bars, dend = dend15) 

（ dendextend vignetteから）次の例を参照してください