Radarkarta
Kommer du ihåg Plutchiks känslohjul? NRC-lexikonet innehåller de 8 känslor som motsvarar hjulets första ring. Tidigare skapade du ett comparison.cloud() baserat på de 8 grundkänslorna. Nu ska du skapa en radarkarta som liknar hjulet.
En radarchart är en tvådimensionell representation av flerdimensionella data (minst 3 dimensioner). Här visas fördelningen av olika känslor för en bok i diagrammet. Med en radarkarta kan du granska alla 8 känslor samtidigt.
Som tidigare har vi läst in "nrc"-lexikonet som nrc och moby_huck, vilket är en kombinerad tidy-version av både Moby Dick och Huck Finn.
I den här övningen använder du återigen en negerad grepl() för att ta bort emotionskategorierna "positive|negative" från diagrammet. Som en påminnelse, här är ett exempel:
object <- tibble %>%
filter(!grepl("positive|negative", column_name))
Övningen återinför pivot_wider(), som omorganiserar de räknade emotionsorden. Som en påminnelse, betrakta dessa rådata som kallas datacamp.
| people | food | like |
|---|---|---|
| Nicole | bread | 78 |
| Nicole | salad | 66 |
| Ted | bread | 99 |
| Ted | salad | 21 |
Om du tillämpar pivot_wider() som i datacamp %>% pivot_wider(names_from = people, values_from = like) ser data ut så här.
| food | Nicole | Ted |
|---|---|---|
| bread | 78 | 99 |
| salad | 66 | 21 |
Den här övningen är en del av kursen
Sentimentanalys i R
Interaktiv övning med praktiskt arbete
Testa den här övningen genom att slutföra den här exempelkoden.
# 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 = ___)