树状图删除树枝末端的树标签

Question

使用位于此处的示例 https://www.datacamp.com/community/tutorials/hierarchical-clustering-R 和位于 https://archive.ics.uci.edu/ml/datasets/seeds# 的数据，我试图在使用 color_branches 时删除树状图底部的标签

当 plot(hclust_avg, labels=FALSE) 时它可以工作，但在使用 color_branches 时不能稍后。有没有办法去除它们？

`set.seed(786)
seeds_df <- read.csv("seeds_dataset.txt",sep = '\t',header = FALSE)
feature_name <- c('area','perimeter','compactness','length.of.kernel','width.of.kernal','asymmetry.coefficient','length.of.kernel.groove','type.of.seed')
colnames(seeds_df) <- feature_name
seeds_df<- seeds_df[complete.cases(seeds_df), ]
seeds_label <- seeds_df$type.of.seed
seeds_df$type.of.seed <- NULL
seeds_df_sc <- as.data.frame(scale(seeds_df))
dist_mat <- dist(seeds_df_sc, method = 'euclidean')
hclust_avg <- hclust(dist_mat, method = 'average')
cut_avg <- cutree(hclust_avg, k = 3)
suppressPackageStartupMessages(library(dendextend))
avg_dend_obj <- as.dendrogram(hclust_avg)
avg_col_dend <- color_branches(avg_dend_obj, h = 3)
plot(avg_col_dend)`

Answer 1

通过将标签着色为背景白色来解决这个问题

avg_dend_obj <- as.dendrogram(hclust_avg) labels_colors(avg_dend_obj) <- "white" plot(avg_dend_obj)