如何像这样复制这个图（单链接）？

Question

library(stats)
d <- matrix(0,5,5)


d[lower.tri(d)] <- c(9,3,6,11,7,5,10,9,2,8)
d <- d+t(d)
d <- as.dist(d)
hc.s <- hclust(d, "single")

plot(hc.s,hang=-1)

这张图还可以，就是坐标轴太丑了。我的课本上的图是这样的：如何按照课本上的方法制作我的图？

Answer 1

尝试使用 factoextra

library(factoextra)
fviz_dend(hc.s)

Answer 2

您可以添加自己的轴

par( mar=c(5,5,8,16) )
plot( hc.s,hang=-1, axes=F, labels=F )
axis( 1, 1:length(hc.s$order), labels=hc.s$order, col=NA, pos=0.2 )
axis( 2, 0:max(hc.s$height), las=1 )
points( 1:5, rep(0,5), pch=19 )

如何像这样复制这个图（单链接）？

How to replicate this graph like this (single linkage)?

r

dendrogram