あけましておめでとうございます今年も統計学とRの勉強を継続します。
ということで、いつもの通り(?)Yuyaさんの動画にて階層的クラスタリングを見たので、Rを使ってクラスタリングしてみます。
コード
# データの準備
dd <- data.frame(
ht = c(2,1,2,4,6)
,sp = c(1,4,6,1,5)
)
row.names(dd) <- c('A','B','C','D','E')
# 距離行列
dd.dst <- dist(dd)
# 階層的クラスターの作成
hc.comp <- hclust(dd.dst,method = "complete") # 最遠隣法
hc.sing <- hclust(dd.dst,method = "single") # 最近隣法
hc.wd <- hclust(dd.dst,method = "ward.D2") # ウォード法
# グラフの作図
dev.off()
par(mfrow = c(3,1) )
par(family = "HiraKakuProN-W3")
for(i in 1:3){
plot(hc.comp,main = "最遠隣法")
plot(hc.sing,main = "最近隣法")
plot(hc.wd, main = "ウォード法")
}
グラフ
