在R中旋轉樹狀圖x軸標簽

Question

我給出了hclust幫助提供的示例數據：

mds2 <- -cmdscale(UScitiesD)
hcity.D <- hclust(UScitiesD, "ward.D")
plot(hcity.D,  hang=-1)

當您繪制此圖時，站點標簽是垂直的 - 這適用於此示例，因為它們使用長名稱。 然而，我的數據僅標記為A1 ， A2等，當我繪制圖形時，看起來沒有必要進行垂直標注。

我知道對於垂直樹狀圖， las=2 ， srt = 90也可以在text()旋轉y軸標簽，但這似乎不會影響此hclust圖中的標簽。

如何將站點標簽旋轉為此繪圖的水平？

謝謝

Answer 1

您可以使用以下代碼解決此問題，只需將srt更改為您想要的任何內容（請注意您需要dendextend R包）：

mds2 <- -cmdscale(UScitiesD)
hcity.D <- hclust(UScitiesD, "ward.D")
dend <- as.dendrogram(hcity.D)

# install.packages("dendextend")
library(dendextend)
dend_labels <- labels(dend)
labels(dend) <- ""
plot(dend)
text(x = 1:length(dend_labels), labels = dend_labels, srt = 45, adj = c(1,1), xpd = T)