在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)