Próbuję narysować dendrogram zhclust wyjście funkcji. Mam nadzieję, że dendrogram jest ułożony poziomo zamiast domyślnego, co można uzyskać przez (na przykład)

require(graphics)
hc <- hclust(dist(USArrests), "ave")
plot(hc)

Próbowałem użyćas.dendrogram() funkcja jakplot(as.dendrogram(hc.poi),horiz=TRUE) ale rezultat jest bez znaczących etykiet:

Jeśli używamplot(hc.poi,labels=c(...)) który jest bezas.dendrogram(), Mogę przekazaćlabels= argument, ale teraz dendrogram jest pionowy, a nie poziomy. Czy istnieje sposób na jednoczesne ułożenie dendrogramu w poziomie i przypisanie etykiet określonych przez użytkownika? Dzięki!

Aktualizacja: jako przykład ze zbioru danych USArrests, przypuśćmy, że chcę użyć skrótów dwóch pierwszych liter nazw stanów jako etykiet, żeby jakoś się udałolabs do funkcji kreślenia:

labs = substr(rownames(USArrests),1,2)

co daje

 [1] "Al" "Al" "Ar" "Ar" "Ca" "Co" "Co" "De" "Fl" "Ge" "Ha"
[12] "Id" "Il" "In" "Io" "Ka" "Ke" "Lo" "Ma" "Ma" "Ma" "Mi"
[23] "Mi" "Mi" "Mi" "Mo" "Ne" "Ne" "Ne" "Ne" "Ne" "Ne" "No"
[34] "No" "Oh" "Ok" "Or" "Pe" "Rh" "So" "So" "Te" "Te" "Ut"
[45] "Ve" "Vi" "Wa" "We" "Wi" "Wy"