Я пытаюсь следовать интерактивному учебнику по анализу настроений. Код:
new_sentiments <- sentiments %>% #From the tidytext package
filter(lexicon != "loughran") %>% #Remove the finance lexicon
mutate( sentiment = ifelse(lexicon == "AFINN" & score >= 0, "positive",
ifelse(lexicon == "AFINN" & score < 0,
"negative", sentiment))) %>%
group_by(lexicon) %>%
mutate(words_in_lexicon = n_distinct(word)) %>%
ungroup()
Генерирует ошибку:
>Error in filter_impl(.data, quo) :
>Evaluation error: object 'lexicon' not found.
Возможно, это связано с тем, что мне кажется, что таблицы "настроений" странно (испорчены?). Вот глава "чувства":
> head(sentiments,3)
> element_id sentence_id word_count sentiment
> chapter
> 1 1 1 7 0 The First Book of Moses:
> Called Genesis
> 2 2 1 NA 0 The First Book of Moses:
> Called Genesis
> 3 3 1 NA 0 The First Book of Moses: >
> Called Genesis
> category
> 1 The First Book of Moses: Called Genesis
> 2 The First Book of Moses: Called Genesis
> 3 The First Book of Moses: Called Genesis
Если я использую Get_Sentiments для bing, AFINN или NRC, я получаю то, что похоже на соответствующий ответ:
> get_sentiments("bing")
> # A tibble: 6,788 x 2
> word sentiment
> <chr> <chr> > 1 2-faced negative
> 2 2-faces negative
> 3 a+ positive
> 4 abnormal negative
Я попытался удалить (удалить .packages) и переустановить tidytext; без изменений в поведении. Я бегу R 3.5
Даже если я полностью неправильно понимаю проблему, я был бы признателен за любые идеи, которые кто-либо может мне дать.