2011-08-26 126 views
2

我的问题是关于Andrie的answer到我以前的问题。我的问题是,是否可以在树状图的相应部分下显示变量标签和汽车标签?使用ggdendro显示树状图片段下的可变标签

library(ggplot2) 
library(ggdendro) 
data(mtcars) 
x <- as.matrix(scale(mtcars)) 
dd.row <- as.dendrogram(hclust(dist(t(x)))) 
ddata_x <- dendro_data(dd.row) 
p2 <- ggplot(segment(ddata_x)) + 
geom_segment(aes(x=x0, y=y0, xend=x1, yend=y1)) 
print(p2) 

enter image description here

+0

如果您简化代码到** **最小比如我有一个看。例如,如果您的问题是如何在树形图的底部添加标签,请简化代码以显示单个树形图。 – Andrie

+0

@Andrie:我用最少的代码更新了这个问题。谢谢 – MYaseen208

回答

5

确保您有ggdendro版本0.0-7然后使用便利功能ggdendrogram:如果你想在如何完全控制

library(ggplot2) 
library(ggdendro) 
ggdendrogram(dd.row) 

enter image description here

标签显示,您可以使用以下任一方式从ddata_x中提取和操作这些标签:

ddata_x$labels 
label(ddata_x) 

要添加到您的情节:

p2 + geom_text(data=label(ddata_x), aes(label=text, x=x, y=0)) 

你可以找到在小品文的更多信息,vignette("ggdendro")

+0

太棒了,非常感谢。 – MYaseen208