このグラフをこのような複製する方法（シングルリンケージ）
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)
_
このグラフは大丈夫ですが、軸は醜いです。私の教科書では、図は以下の通りです：教科書と同じ方法で私のグラフを作る方法は？
あなたはあなた自身の斧を追加することができます
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 )
_
factoextraを使ってみてください
library(factoextra)
fviz_dend(hc.s)
_