2017-04-25 24 views
2

我正在生成树状图以比较各种鸟类物种之间的歌曲相似性。然而,我不知道如何防止当我生成情节(click for example)的状态名称削减。有任何想法吗?防止在hclust/dendrogram图中剪切标签

代码:

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 

请注意,我已经设定的行名称是美国而不是数字。这是情节抓住标签的地方。

回答

2

该问题可以通过设置mar参数来解决。
这里是一个树状图的一个例子与裁剪标签:

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

enter image description here

,这里的数字与完整的标签:

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

enter image description here

+1

这么简单!这工作完美。谢谢你的帮助。 – colinjnk