Как построить метку с общими чертами между группами, используя R?

Question

Когда я использую команду hclust в R, чтобы построить дендрограмму, я получаю ось y, помеченную как Высота. Однако я хотел бы обозначить эту ось уровнями сходства между группами в моем наборе данных, что-то вроде изображения ниже. Как мне этого добиться?

Вот минимальный пример:

set.seed(1)
x = matrix(rnorm(1000), ncol=100)
d = dist(x, method="euclidean")
plot(hclust(d, method="complete"))

Answer 1

Начиная с вашего примера, но сохраняя результаты кластера как hc:

set.seed(1)
x <- matrix(rnorm(1000), ncol=100)
d <- dist(x, method="euclidean")
hc <- hclust(d, method="complete")

hc$height
[1] 12.79157 13.05586 13.51490 13.54069 14.32658 14.45824 15.70899 16.44131
[9] 17.12514

Расстояние варьируется от 12,8 до 17,1. Для простоты мы используем 18-й в качестве меры сходства.

plot(hc, hang=-1, ylab="Similarity", axes=FALSE)
axis(2, seq(0, 18, by=2), seq(18, 0, by=-2))