Ошибка TermDocumentMatrix в R

Я работал с многочисленными онлайн-примерами пакета {tm} в R, пытаясь создать TermDocumentMatrix. Создание и очистка корпуса было довольно простым, но я постоянно сталкиваюсь с ошибкой при попытке создать матрицу. Ошибка:

Ошибка в UseMethod ( "meta", x):   не применимый метод для "мета", применяемый к объекту класса "характер", Кроме того: Предупреждающее сообщение: В mclapply (noname (content (x)), termFreq, control):   все запланированные ядра столкнулись с ошибками в коде пользователя

Например, здесь приведен код из текстового выражения Jon Starkweather . Извините заранее за такой длинный код, но это приводит к воспроизводимому примеру. Обратите внимание, что ошибка заканчивается функцией {tdm}.

#Read in data
policy.HTML.page <- readLines("http://policy.unt.edu/policy/3-5")

#Obtain text and remove mark-up
policy.HTML.page[186:202]
id.1 <- 3 + which(policy.HTML.page == "                    TOTAL UNIVERSITY        </div>")
id.2 <- id.1 + 5
text.data <- policy.HTML.page[id.1:id.2]
td.1 <- gsub(pattern = "<p>", replacement = "", x = text.data, 
     ignore.case = TRUE, perl = FALSE, fixed = FALSE, useBytes = FALSE)

td.2 <- gsub(pattern = "</p>", replacement = "", x = td.1, ignore.case = TRUE,
     perl = FALSE, fixed = FALSE, useBytes = FALSE)

text.d <- td.2; rm(text.data, td.1, td.2)

#Create corpus and clean 
library(tm)
library(SnowballC)
txt <- VectorSource(text.d); rm(text.d)
txt.corpus <- Corpus(txt)
txt.corpus <- tm_map(txt.corpus, tolower)
txt.corpus <- tm_map(txt.corpus, removeNumbers)
txt.corpus <- tm_map(txt.corpus, removePunctuation)
txt.corpus <- tm_map(txt.corpus, removeWords, stopwords("english"))
txt.corpus <- tm_map(txt.corpus, stripWhitespace); #inspect(docs[1])
txt.corpus <- tm_map(txt.corpus, stemDocument)

# NOTE ERROR WHEN CREATING TDM
tdm <- TermDocumentMatrix(txt.corpus)

Ответ 1

Ссылка, предоставленная jazzurro, указывает на решение. Следующая строка кода

 txt.corpus <- tm_map(txt.corpus, tolower)

необходимо изменить на

 txt.corpus <- tm_map(txt.corpus, content_transformer(tolower))

Ответ 2

Есть две причины для этой проблемы в tm v0.6.

  • Если вы выполняете преобразования уровня уровня, такие как tolower и т.д., tm_map возвращает символ символа вместо PlainTextDocument.
    Решение. Вызовите tolower через content_transformer или вызовите tm_map(corpus, PlainTextDocument) сразу после tolower
  • Если пакет SnowballC не установлен, и если вы пытаетесь остановить документы, это также может произойти.
    Решение: install.packages('SnowballC')

Ответ 3

Нет необходимости применять content_transformer.

Создайте корпус таким образом:

trainData_corpus <- Corpus((VectorSource(trainData$Comments)))

Попробуйте.