График ядерной оценки плотности

Теперь, когда вы познакомились с графиком ядерной оценки плотности, попробуйте построить его самостоятельно! Напомним: он похож на сглаженную гистограмму и не зависит от ширины интервала. В этом упражнении вы построите график ядерной оценки плотности на основе значений тональности.

Вы построите две кривые плотности: одну для «Агамемнона», другую — для «Волшебника страны Оз». Для обоих текстов выполните inner_join() с лексиконом "afinn". Напомним, что лексикон "afinn" содержит термины с оценками от -5 до 5. После преобразования в аккуратный формат оба текста будут содержать слова и соответствующие им оценки лексикона.

Затем объедините результаты в один датафрейм с помощью bind_rows() и постройте график с использованием ggplot2.

По визуализации вы сможете определить, в каком тексте преобладает позитивная или негативная лексика. Перекрытие кривых закономерно: с Дороти происходят и негативные события, однако можно сделать вывод, что «Волшебник страны Оз» с большей вероятностью использует позитивный язык по сравнению с «Агамемноном».

Переменные ag и oz уже загружены как аккуратные версии «Агамемнона» и «Волшебника страны Оз» соответственно, а afinn создан как подмножество лексикона "afinn" из пакета tidytext.

Это упражнение является частью курса

Анализ тональности в R

Посмотреть курс

Интерактивное практическое упражнение

Попробуйте выполнить это упражнение, дополнив этот пример кода.

ag_afinn <- ag %>% 
  # Inner join to afinn lexicon
  ___(___, by = c("term" = "word"))

oz_afinn <- oz %>% 
  # Inner join to afinn lexicon
  ___ 

# Combine
all_df <- ___(agamemnon = ___, oz = ___, .id = "___")

Редактировать и запускать код