在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 绘制图例。这个想法是一样的，你可能会自己想出来，尽管它很繁琐。