为什么我不能使用 "TermDocumentMatrix"?

Why can not I use "TermDocumentMatrix"?

为什么我不能使用 "TermDocumentMatrix"?

我使用以下命令将复数词统一为单数形式,但出现错误。

crudeCorp <- tm_map(crudeCorp, gsub, pattern = "smells", replacement = "smell")
crudeCorp <- tm_map(crudeCorp, gsub, pattern = "feels", replacement = "feel")
crudeDtm <- TermDocumentMatrix(crudeCorp, control=list(removePunctuation=T))
Error in UseMethod("meta", x) : 
  no applicable method for 'meta' applied to an object of class "character"

我该如何解决? 1.是否有命令从单数改为清洗? 2.我这个命令是不是用错了?

句子处理和矩阵我会附上下面的代码

library(tm)
library(XML)

crudeCorp<-VCorpus(VectorSource(readLines(file.choose())))

#(Eliminating Extra Whitespace) 
crudeCorp <- tm_map(crudeCorp, stripWhitespace)

#(Convert to Lower Case)

crudeCorp<-tm_map(crudeCorp, content_transformer(tolower))


# remove stopwords from corpus

crudeCorp<-tm_map(crudeCorp, removeWords, stopwords("english"))
myStopwords <- c(stopwords("english"), "can", "will","got","also","goes","get","much","since","way","even")
myStopwords <- setdiff(myStopwords, c("will","can"))
crudeCorp <- tm_map(crudeCorp, removeWords, myStopwords)

crudeCorp<-tm_map(crudeCorp,removeNumbers)

crudeCorp <- tm_map(crudeCorp, gsub, pattern = "smells", replacement = "smell")
crudeCorp <- tm_map(crudeCorp, gsub, pattern = "feels", replacement = "feel")

#-(Creating Term-Document Matrices)
crudeDtm <- TermDocumentMatrix(crudeCorp, control=list(removePunctuation=T))

示例:我的数据

1. I'M HAPPY
2. how are you?
3. This apple is good
(skip)

为什么不使用以下代码来删除词干和标点符号?

crudeCorp <- tm_map(crudeCorp, removePunctuation)
crudeCorp <- tm_map(crudeCorp, stemDocument, language = "english")  
crudeDtm  <- DocumentTermMatrix(crudeCorp)

希望对您有所帮助!