간단한 단어 클러스터링

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 텍스트 마이닝