无根树状图中的抖动标签

Question

我正在使用hclust函数在R中创建树形图，然后使用ape包来创建和无根系统发育（纯粹用于可视化）并使用基本R plot绘制它。这看起来完全是我想要的，除了我在4个班级中有166个观察。这意味着标签重叠，看起来像混乱。

我的问题是我怎么能（如果有的话）抖动标签，以便尽可能少地叠加？我已经弄乱了不同的cex设置，但无论我选择什么价值，他们的分组都会保持紧张。

library(RColorBrewer)
library("dendextend")
library("dendextendRcpp")
library(cluster)
library(ape)

# Try ward distance clustering
clust.compl = hclust(dist,method = 'ward.D2')
dend = as.dendrogram(clust.compl) 

# Color branches - using dendoextend and dendoextendRcpp
colors <- brewer.pal(4, "Dark2")

# Cut tree so as to color based on cluster
clus4 = cutree(clust.compl, h=heights_per_k.dendrogram(dend)["4"])

# Plot unrooted
plot(as.phylo(clust.compl), 
     type = "unrooted",
     edge.width = 2, edge.lty = 2,
     tip.color = colors[clus4],
     no.margin = TRUE,
     label.offset = 0.5
     )

任何帮助表示赞赏

Answer 1

在我看来，使用圆形树状图是解决问题的有效方法：

library(RColorBrewer)
library("dendextend")
library(cluster)
library(ape)

dst <- dist(mtcars)
clust.compl = hclust(dst,method = 'ward.D2')
dend = as.dendrogram(clust.compl) 
cols <- brewer.pal(4, "Dark2")
clus4 = cutree(clust.compl, h=heights_per_k.dendrogram(dend)["4"])

plot(as.phylo(clust.compl), type = "fan", tip.color=cols[clus4])