Rは以下のような特定の単語を削除します：this

Question

txt <- readLines("this.txt") 

library(tm) 

corpus <- Corpus(VectorSource(txt)) 

corpus <- tm_map (corpus, removePunctuation) 

tdm <- TermDocumentMatrix (corpus) 

m <- as.matrix (tdm) 

d <- data.frame(freq = sort(rowSums(m),decreasing = TRUE)) 

Answer 1

は、私はあなたがtmライブラリを使用して「」と「この」のような言葉を削除する方法を求めていると思いますか？

corpus <- tm_map(corpus, removeWords, c("hello","is","it","me","you're","looking","for?")) 

編集：特定の単語を削除するには

corpus <- tm_map(txt, removeWords, stopwords("english")) 

：もしそうなら、これを試してみてください、私は作品戦争と平和を、使用した例を作成しました。の前に用語を小文字に変換してください。文書用語行列を作成してください。これと同じように：

library(tm) 

# load 
txt <- readLines("this.txt") 
corpus <- Corpus(VectorSource(txt)) 

# clean 
corpus <- tm_map(corpus, removePunctuation) 
corpus <- tm_map(corpus, removeNumbers) 
corpus <- tm_map(corpus, tolower) 
corpus <- tm_map(corpus, removeWords, stopwords("english")) 
corpus <- tm_map(corpus, PlainTextDocument) 

# create dtm and get terms 
dtm <- DocumentTermMatrix(corpus) 
dtm$dimnames$Terms 

変更し、これにすべき類似したテキストファイルと出力に合わせてコード：

dtm$dimnames$Terms 
[1] "almost"   "anonymous"  "anyone"   "anywhere"  "author"   "away"   
[7] "aylmer"   "book"   "chapter"   "contents"  "copy"   "cost"   
[13] "date"   "david"   "ebook"   "english"   "give"   "gutenberg"  
[19] "iii"    "included"  "january"   "language"  "last"   "leo"    
[25] "license"   "louise"   "march"   "maude"   "may"    "one"    
[31] "online"   "peace"   "posting"   "project"   "restrictions" "reuse"   
[37] "start"   "terms"   "title"   "tolstoy"   "tolstoytolstoi" "translators"  
[43] "updated"   "use"    "vii"    "volunteer"  "war"    "whatsoever"  
[49] "widger"   "wwwgutenbergorg" 

Answer 2

あなたのデータがどのように見えるかは分かりません。しかし、単純なfind replace関数であるgsubを使うことができます。

あなたは正規表現が何であるかを知っています

Answer 3

あなた

"Hello" 

を与える

gsub("The", "", "HelloThe") 

？ R関数gsubについてhereを読むことができます。ここ は、それがどのように働くか少し例を示します

> let <- c("A", "B", "A", "C") # My vector of letters 
> let 
[1] "A" "B" "A" "C" 
> # I want delete "A", so this letter I will replace with nothing ("") 
> l <- gsub("A", "", let) # "A" replace by "" in vector let 
> l 
[1] "" "B" "" "C" 

あなたが今しなければならないのは、いずれかがある場合は、空の要素を削除します。

そして、あなたが唯一の1つのシンボルラインを持っている場合、その作品GSUB：

> let <- " a b c d g h a a a" 
> let 
[1] " a b c d g h a a a" 
> l <- gsub("a", "", let) 
> l 
[1] " b c d g h "