防止标签在 hclust/dendrogram 图中被剪裁

Question

我正在制作树状图来比较各州之间鸟类的鸣叫相似性。但是，我无法弄清楚在制作情节时如何防止州名被剪裁 (click for example)。有什么想法吗？

代码：

var.towhee <- read.csv(file="states.csv", header=TRUE, fill=TRUE)
rownames(var.towhee) <-var.towhee$State # Set row names to state name
var.towhee <- var.towhee[,-1] # Remove state column 

library(vegan)
library(permute)
library(lattice)

norm <- decostand(var.towhee, method="normalize") # Normalize data
dis <- vegdist(norm, method="euclidian") # Calculate distances
UPGMA <- hclust(dis, method="average") # Cluster using UPGMA method
UPGMA <- as.dendrogram(UPGMA) # Convert hclust objects into dendrogram objects

plot(UPGMA, horiz=TRUE, xlab="Song Distance")

作为参考，我的数据是这样格式化的：

            Variable 1    Variable 2    Variable 3
State 1     123           123           123
State 2     123           123           123
State 3     123           123           123

请注意，我已将行名称设置为状态而不是数字。这是情节从中获取标签的地方。

Answer 1

设置mar参数即可解决问题。
下面是带有裁剪标签的树状图示例：

hc <- hclust(dist(USArrests), "ave")
hc <- as.dendrogram(hc)
par(mar=c(3,4,1,1))
plot(hc, horiz=TRUE)

这里是带有完整标签的图：

par(mar=c(3,4,1,6))
plot(hc, horiz=TRUE)

防止标签在 hclust/dendrogram 图中被剪裁

Prevent labels from clipping in hclust/dendrogram plot

diagram

r

clipping

dendrogram