在树形图可视化中删除高度比例

Question

我可以使用

创建树形图

x<-1:100
dim(x)<-c(10,10)
set.seed(1)
groups<-c("red","red", "red", "red", "blue", "blue", "blue","blue", "red", "blue")
x.clust<-as.dendrogram(hclust(dist(x)))

x.clust.dend <- x.clust
labels_colors(x.clust.dend) <- groups
x.clust.dend <- assign_values_to_leaves_edgePar(x.clust.dend, value = groups, edgePar = "col") # add the colors.
x.clust.dend <- assign_values_to_leaves_edgePar(x.clust.dend, value = 3, edgePar = "lwd") # make the lines thick
plot(x.clust.dend) 

但是我想删除左侧的高度信息比例，如下图所示。 我的猜测是，它应该是非常微不足道的，但我无法找到办法做到这一点。我不想要的一个解决方案是使用ggplot2，如下所示：

ggplot(as.ggdend(dend2))

这是因为我会放弃一些格式如color_bars()

Answer 1

您只需设置yaxt = "n"

即可

plot(x.clust.dend, yaxt = "n") 

您可以使用

添加另一个轴

axis(side = 2, labels = FALSE)

Answer 2

图形参数＆＃39; axes = FALSE＆＃34;可用于删除plot.dendogram命令的距离度量：

plot(x.clust.dend, axes=F)

这将生成以下没有距离轴的树形图：