2011-08-26 122 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