介绍

树形图显示了二叉树，重点是表示树元素之间的层次关系。树状图包含节点、分支(边)、根和叶。根是分支和节点的来源，指示到叶的方向，即终端节点。

树形图布局的大部分空间用于排列分支和内部节点，留给叶子的空间有限。对于大的树形图，叶片标签通常被压缩到小的凹槽中。因此，当要显示的信息应该突出显示叶子时，树形图可能无法提供最佳布局。

TreeAndLeaf包旨在通过结合树形和力定向布局算法，将分析的重点转移到叶子上，从而提高树形图叶子的可视化效果。包的工作流程如图所示。

加载R包

library("TreeAndLeaf")
library("RedeR")
library("igraph")
library("RColorBrewer")

导入数据

data("USArrests")
head(USArrests)

数据处理

• 构建一个树状图示例

hc <- hclust(dist(USArrests), "ave")
plot(hc, main="Dendrogram for the 'USArrests' dataset",xlab="", sub="")

• 转换 hclust 数据对象 成 a tree-and-leaf 数据对象

tal <- treeAndLeaf(hc)

• 设置图属性

tal <- att.mapv(g = tal, dat = USArrests, refcol = 0)
pal <- brewer.pal(9, "Reds")
tal <- att.setv(g = tal, from = "Murder", to = "nodeColor", cols = pal, nquant = 5)
tal <- att.setv(g = tal, from = "UrbanPop", to = "nodeSize",xlim = c(10, 50, 5), nquant = 5)
tal <- att.addv(tal, "nodeFontSize", value = 15, index = V(tal)$isLeaf)
tal <- att.adde(tal, "edgeWidth", value = 3)

画图

#--- Call RedeR application
rdp <- RedPort()
calld(rdp)
resetd(rdp)#--- Send the tree-and-leaf to the interactive R/Java interface
addGraph(obj = rdp, g = tal, gzoom=75)#--- Call 'relax' to fine-tune the leaf nodes
relax(rdp, p1=25, p2=200, p3=5, p5=5, ps=TRUE)#--- Add legends
addLegend.color(obj = rdp, tal, title = "Murder Rate", position = "topright")
addLegend.size(obj = rdp, tal, title = "Urban Population Size",position = "bottomright")