Plot 树状图删除分支末端的树标签

使用这里的示例和数据，我试图在使用颜色分支时删除树状图底部的标签

当

绘图时（hclust\u avg，labels=FALSE）

它会工作，但在使用颜色分支时不会工作。有没有办法去除它们

`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)`

`set.seed（786）
seeds_df通过将标签涂成白色来解决这个问题

avg_dend_obj通过将标签涂成白色背景来解决这个问题

avg_dend_obj