1

Gutenberg プロジェクトのフロイトの本を使ってテキスト マイニングに取り組んでいます。次のコードを使用して、感情分析を実行しようとすると:

library(dplyr)
library(tidytext)
library(gutenbergr)

freud_books <- gutenberg_download(c(14969, 15489, 34300, 35875, 35877, 38219, 41214), meta_fields = "title")

tidy_books <- freud_books %>%
  unnest_tokens(word, text)

f_sentiment <- tidy_books %>%
  inner_join(get_sentiments("bing"), by = "word") %>% 
  count(title, index = line %/% 80, sentiment) %>% 
  spread(sentiment, n, fill = 0) %>% 
  mutate(sentiment = positive - negative)

エラーが発生します：

mutate_impl(.data, ドット) のエラー: 評価エラー: 二項演算子への数値以外の引数。

問題はカウント関数の最後のブロックにあることがわかります。これについて何か助けはありますか？

4

1 に答える 1