Радарна діаграма

Пам'ятаєте «колесо емоцій» Плучика (Plutchik)? Лексикон NRC містить 8 емоцій, що відповідають першому кільцю колеса. Раніше ви створювали comparison.cloud() для 8 базових емоцій. Тепер у цій вправі ви побудуєте радарну діаграму, подібну до колеса.

radarchart — це двовимірне представлення багатовимірних даних (щонайменше 3). У нашому випадку на графіку відображається підрахунок різних емоцій для книжки. Використовуючи радарну діаграму, ви можете одночасно переглядати всі 8 емоцій.

Як і раніше, ми завантажили лексикон «nrc» як nrc і moby_huck — об'єднану tidy-версію «Мобі Діка» та «Пригод Гекльберрі Фінна».

У цій вправі ви знову використаєте заперечений grepl(), щоб прибрати емоційні класи "positive|negative" з графіка. Ось нагадування:

object <- tibble %>%
  filter(!grepl("positive|negative", column_name))

Ця вправа знову використовує pivot_wider(), який переставляє підраховані емоційні слова. Для нагадування розгляньмо сирі дані datacamp.

people	food	like
Nicole	bread	78
Nicole	salad	66
Ted	bread	99
Ted	salad	21

Якщо застосувати pivot_wider() як у datacamp %>% pivot_wider(names_from = people, values_from = like), дані виглядатимуть так:

food	Nicole	Ted
bread	78	99
salad	66	21

Ця вправа є частиною курсу

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

Переглянути курс

Інтерактивна практична вправа

Спробуйте виконати цю вправу, доповнивши цей зразок коду.

# Review tail of moby_huck
moby_huck[___:___,]

# Perform join
scores <- moby_huck %>% 
  # Inner join to lexicon
  ___(___, by = c("___" = "___"))

# Filter, count and spread the data 
scores %>% 
  # Drop positive or negative sentiments
  ___(!___("___|___", ___)) %>% 
  # Count by book and sentiment
  count(___, ___) %>% 
  # Pivot book, using n as values
  pivot_wider(names_from = ___, values_from = ___, values_fill = ___)

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