これに似た樹状図上のサイトの変数を反映する樹状図の葉にシンボルを追加したいと思います。
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"))