步驟 3：文本整理

R 的 Bag-of-Words 文本探勘

Ted Kwartler

Instructor

使用 qdap 進行文本整理

# qdap cleaning function
qdap_clean <- function(x) {
  x <- replace_abbreviation(x)
  x <- replace_contraction(x)
  x <- replace_number(x)
  x <- replace_ordinal(x)
  x <- replace_symbol(x)
  x <- tolower(x)
  return(x)
}

使用 tm 進行文本整理

# tm cleaning function
tm_clean <- function(corpus) {
  tm_clean <- tm_map(corpus, removePunctuation)
  corpus <- tm_map(corpus, stripWhitespace)
  corpus <- tm_map(corpus, removeWords,
              c(stopwords("en"), "Google", "Amazon", "company"))
  return(corpus)
}

清理你的語料庫

Cleaned corpora 示意圖

一起來練習吧！

R 的 Bag-of-Words 文本探勘