Rで学ぶBag-of-Wordsによるテキストマイニング
Ted Kwartler
Instructor
dist_rain <- dist(rain[, 2])

# 階層クラスタリングオブジェクトに変換 hc <- hclust(dist_rain)# 都市ラベル付きでデンドログラムをプロット plot(hc, labels = rain$city)

# dendextend パッケージを読み込み library(dendextend)# 距離行列をデンドログラムに変換 hc <- hclust(tweets_dist) hcd <- as.dendrogram(hc)
# 枝に色を付ける hcd <- branches_attr_by_labels(hcd, c("marvin", "gaye"), "red")# 体裁を整えてデンドログラムをプロット plot(hcd, main = "Better Dendrogram") rect.dendrogram(hcd, k = 2, border = "grey50")

Rで学ぶBag-of-Wordsによるテキストマイニング