fork download
copy 
  1. library(tm)
  2. library(tmcn)
  3. library(Rwordseg)
  4.  
  5. d.corpus <- Corpus(DirSource("docs", encoding = 'UTF-8'))
  6.  
  7. # 清除標點符號, 數字
  8. d.corpus <- tm_map(d.corpus, removePunctuation)
  9. d.corpus <- tm_map(d.corpus, removeNumbers)
  10. # 清除大小寫英文與數字
  11. d.corpus <- tm_map(d.corpus, function(word) {
  12.   gsub("[A-Za-z0-9]", "", word)
  13. })
  14.  
  15. d.corpus <- tm_map(d.corpus, segmentCN, nature = TRUE)
  16.  
  17. d.corpus <- Corpus(VectorSource(d.corpus))
  18.  
  19. myStopWords <- c(stopwordsCN(), "編輯", "時間", "標題", "發信", "實業", "作者", "！")
  20. d.corpus <- tm_map(d.corpus, removeWords, myStopWords)
  21.  
  22. tdm <- TermDocumentMatrix(d.corpus, control = list(wordLengths = c(2, Inf)))
  23.  
  24. inspect(tdm)
Runtime error #stdin #stdout #stderr 0.82s 23176KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
Error in library(tmcn) : there is no package called 'tmcn'
Execution halted
https://ideone.com/icNr73
language:
R (R 3.5.2)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!