R中漂亮的树状图？

【问题标题】：Pretty dendrograms in R?R中漂亮的树状图？
【发布时间】：2014-02-20 00:54:17
【问题描述】：

我的树状图非常丑陋，几乎无法阅读，通常看起来像这样：

library(TraMineR)
library(cluster)
data(biofam)
lab <- c("P","L","M","LM","C","LC","LMC","D")
biofam.seq <- seqdef(biofam[1:500,10:25], states=lab)

ccost <- seqsubm(biofam.seq, method = "CONSTANT", cval = 2, with.missing=TRUE)
sequences.OM <- seqdist(biofam.seq, method = "OM", norm= TRUE, sm = ccost,     
with.missing=TRUE)

clusterward <- agnes(sequences.OM, diss = TRUE, method = "ward")
plot(clusterward, which.plots = 2)

我想要创建类似于以下内容的内容，即圆形树状图，其中可以仔细控制标签的大小，以便它们实际可见：

如何在 R 中完成此操作？

【问题讨论】：

为什么有人会否决这个问题是我无法理解的。
@RichardScriven - 你怎么能看到它被否决了？我只能看到总票数。
我认为特权伴随着 1k 声望。

标签： r cluster-analysis dendrogram traminer

【解决方案1】：

以下解决方案可能不是最佳的，但值得一试：

library(ape)
CL1 <- as.hclust(clusterward)
CL2 <- as.phylo(CL1)
plot(CL2, type="fan", cex=0.5)

主要问题显然是仍然有太多对象，因此标签太多。要关闭标签，请使用参数show.tip.label=FALSE。你也可以用no.margin=TRUE去掉边距来占据整个设备：

plot(CL2, type="fan", show.tip.label=FALSE, no.margin=TRUE)

【讨论】：

你也可以关掉标签吗？考虑到重叠，它们不会向情节添加太多信息。
这可能超出了范围，但是有没有一种简单的方法来砍树？我已经尝试过cutree 以及as.hclust 的members 参数，但似乎无法使其工作。
@histelheim 您可能应该将其作为一个新问题提出，因为更多人将能够回答您。现在我不完全确定最好的方法。
您也有很多针对this question 的简洁解决方案可能会对您有所帮助。