在R中的树状图叶子上添加符号

Question

我想在树状图的叶子上添加符号，以反映树状图上类似于以下位置的变量：

require(graphics)

hc <- hclust(dist(USArrests[1:5,]), "ave")
plot(hc)
plot(hc, hang = -1)

USArrests[1:5,]

           Murder Assault UrbanPop Rape
Alabama      13.2     236       58 21.2
Alaska       10.0     263       48 44.5
Arizona       8.1     294       80 31.0
Arkansas      8.8     190       50 19.5
California    9.0     276       91 40.6    

感谢您对如何进行此操作的任何建议

解决方案根据Backlin的有用建议，我使用以下解决方案

require(graphics)

hc <- hclust(dist(USArrests[1:5,]), "ave")

plot(hc, hang = -1, xlab="", sub="")

col.circle=c("yellow", "red")[cut(USArrests$Murder[hc$order], c(8,10,15))]

symbols(1:5, rep(-25, 5), circles=rep(1, 5), add=TRUE, inches=.2,bg=col.circle, xpd=TRUE)

col.square=c("blue", "green")[cut(USArrests$Assault[hc$order], c(100,200,300))]

symbols(1:5, rep(-35, 5), squares=rep(1, 5), add=TRUE, inches=.4,bg=col.square, xpd=TRUE)

legend(3.7,85,legend=c("Murder 8-10","Murder 10-15","Assualt 100-200","Assualt 200-300"),fill=c("yellow","red","blue","green"))

Answer 1

可以使用symbols功能以某种回旋方式但仍然有效的方式来完成此任务。 它不支持三角形，但是有一些其他形状可供选择。 在下面的演示中，请注意参数xpd=TRUE ，该参数允许您在绘图区域之外（即在边距处）绘制。

plot(hc, hang = -1, xlab="", sub="")
symbols(1:5, rep(-25, 5), circles=rep(1, 5), add=TRUE, inches=.2,
        bg=rep(c("grey", "red"), c(3,2)), xpd=TRUE)
symbols(1:5, rep(-35, 5), squares=rep(1, 5), add=TRUE, inches=.4,
        bg=rep(c("grey", "red"), c(1,4)), xpd=TRUE)

为了示例的可读性，将符号的y坐标设置为绝对值。 如果要使它们相对于图的坐标，请使用如下所示的内容，其中par("usr")是具有图的（x-left，x-right，y-bottom，y-top）的向量区域。

y = par("usr")[3] - .04 * diff(par("usr")[3:4])

图例也可以用symbol和text绘制。 这个想法是一样的，即使很奇怪，您也可以自己弄清楚。