1

tm_term_score を使用して行内のテキストに対して用語フレーズまたは用語ペアを 1 または 0 としてスコア付けしようとすると、次のエラーが発生します。

c1 <- Corpus(VectorSource(r1))
inspect(c1)
inspect(c1[2])
cleanR1 <- tm_map(c1, removeWords, stopwords('english'))
cleanR1 <- tm_map(cleanR1, content_transformer(tolower))
cleanR1 <- tm_map(cleanR1, removeWords, c("re", "ve", "ahha"))   
cleanR1 <- tm_map(cleanR1, removePunctuation)
cleanR1 <- tm_map(cleanR1, removeSpecialChars)
cleanR1 <- tm_map(cleanR1, removeNumbers)
cleanR1 <- tm_map(cleanR1,removeWords,stopwords('en'))
cleanR1 <- tm_map(cleanR1,stripWhitespace)
cleanR1 <- tm_map(cleanR1,stemDocument)
cleanR1 <- tm_map(cleanR1, PlainTextDocument)

tm_term_score(cleanR1, terms, FUN = slam::row_sum)

UseMethod("tm_term_score", x) のエラー: クラス "c('VCorpus', 'Corpus')" のオブジェクトに適用される 'tm_term_score' に適用可能なメソッドがありません

str(terms) chr [1:61] 「学びを助ける」 「成長を助ける」 .

4

1 に答える 1

1

PlainTextDocument、 によって返される用語頻度termFreq、またはをコーパスではなくTermDocumentMatrixの最初の引数に渡す必要があります。tm_term_score

用語ドキュメント マトリックスを使用した例:

tdm <- TermDocumentMatrix(cleanR1)
tm_term_score(tdm, terms, FUN = slam::row_sum)

ドキュメントを参照してください。?tm::tm_term_score

于 2015-08-11T10:46:56.190 に答える