Удалить Шкала для высоты в дендрограмма визуализации

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

Графический параметр «осей = FALSE» может быть использован, чтобы удалить меру расстояния для команды plot.dendogram:

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

Это будет производить следующую dendogram без оси расстояние:

Answer 2

Вы можете просто установить yaxt = "n"

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

Вы можете добавить другую ось с помощью

axis(side = 2, labels = FALSE)