我的问题与安德里的有关answer https://i.stack.imgur.com/JW0m1.png我之前的问题。我的问题是是否可以在树状图的相应段下显示变量标签和汽车标签?
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)
确保您拥有 0.0-7 版本ggdendro
然后使用便利功能ggdendrogram
:
library(ggplot2)
library(ggdendro)
ggdendrogram(dd.row)
如果您想完全控制标签的显示方式,您可以从ddata_x
使用以下任一方法:
ddata_x$labels
label(ddata_x)
要添加到您的绘图中:
p2 + geom_text(data=label(ddata_x), aes(label=text, x=x, y=0))
您可以在小插图中找到更多信息,vignette("ggdendro")
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)