UseMethodでのエラー（ "TermDocumentMatrix"、X）： 'TermDocumentMatrix' の該当メソッドはクラスのオブジェクトに適用されていない "文字" UseMethodで

Question

エラー（ "TermDocumentMatrix"、X）：TermDocumentMatrix」のない適用可能な方法 私は上記のエラーを取得しています最後の行を実行した後

install.packages('tm') 
install.packages('wordcloud') 
install.packages('SnowballC') 
install.packages('topicmodels') 


####################### 
library(tm) 
library(wordcloud) 
library(SnowballC) 
library(topicmodels) 
######################## 

########################## 
obama<- paste(readLines("I:/PB 2/Pb 2/tweets_obama.txt"), collapse=" ") 
obamacorpus<-Corpus(VectorSource(obama)) 
obamacorpus <- tm_map(obamacorpus, removePunctuation) 
obamacorpus <- tm_map(obamacorpus, removeNumbers) 
obamacorpus <- tm_map(obamacorpus, stripWhitespace)  
obamacorpus <- tm_map(obamacorpus, content_transformer(tolower)) 
obamacorpus <- gsub('http\\s+\\s*' , '',obamacorpus) 
obamacorpus <- gsub('#\\s+' , '',obamacorpus) 
obamacorpus <- gsub('@\\s+' , '',obamacorpus) 
obamatdm <- TermDocumentMatrix(obamacorpus) 

：「コード

クラスのオブジェクトに 『文字』

を適用します。私がgsubコードを実行しないときはいつでも、エラーは発生しません。 誰でもこのエラーを解決するのを助けてくれますか？

Answer 1

コーパスにgsubを適用すると、chrを返します。

TermDocumentMatrixのコーパスを保持する場合は、content_transformerを使用します。

obamacorpus <- tm_map(obamacorpus, content_transformer(function(x) gsub('http\\s+\\s*','',x))