简单的词聚类

使用 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 进行文本挖掘