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