常見文字探勘視覺化

R 的 Bag-of-Words 文本探勘

Ted Kwartler

Instructor

為何要做視覺化？

好的視覺化有助快速下結論
大腦能高效處理視覺資訊

情境設定

推文主題

情境設定

向量示意

使用 tm 畫詞頻圖

# Convert TDM to matrix
coffee_m <- as.matrix(coffee_tdm)

# Sum rows and sort by frequency
term_frequency <- rowSums(coffee_m)
term_frequency <- sort(term_frequency,
                       decreasing = TRUE)

# Create a barplot
barplot(term_frequency[1:10],
        col = "tan",
        las = 2)

詞頻長條圖

使用 qdap 畫詞頻圖

# Load qdap package
library(qdap)

# Find term frequencies
frequency <- freq_terms(
    tweets$text,
    top = 10,
    at.least = 3, 
    stopwords = "Top200Words"
  )

# Plot term frequencies
plot(frequency)

qdap 詞頻圖

一起來練習吧！

R 的 Bag-of-Words 文本探勘