как построить объекты hclust до определенного количества разрезов?

Я пытаюсь построить объект hclust. Сюжет выглядит нормально, но я хотел бы, чтобы сюжет не опускался до конца, а останавливался на 5-ти кадрах. Я пробовал ylim, но это ничего не меняет в сюжете. Мой код

library(datasets)
    data <- iris
dist <- dist(data, method= "euclidean")
hclust <- hclust(dist, method = "complete")
plot(hclust, ylim=4:8)