Bagan radar
Ingat roda emosi Plutchik? Leksikon NRC memiliki 8 emosi yang sesuai dengan cincin pertama pada roda tersebut. Sebelumnya Anda telah membuat comparison.cloud() berdasarkan 8 emosi utama. Sekarang Anda akan membuat bagan radar yang mirip dengan roda tersebut dalam latihan ini.
radarchart adalah representasi dua dimensi dari data multidimensi (setidaknya 3). Dalam kasus ini, jumlah masing-masing emosi untuk sebuah buku ditampilkan dalam bagan. Dengan bagan radar, Anda dapat meninjau seluruh 8 emosi secara bersamaan.
Seperti sebelumnya, kami telah memuat leksikon "nrc" sebagai nrc dan moby_huck yang merupakan versi tidy gabungan dari Moby Dick dan Huck Finn.
Dalam latihan ini Anda kembali menggunakan grepl() yang dinegasikan untuk menghapus kelas emosi "positive|negative" dari bagan. Sebagai penyegar ingatan, berikut contohnya:
object <- tibble %>%
filter(!grepl("positive|negative", column_name))
Latihan ini memperkenalkan kembali pivot_wider() yang menyusun ulang kata-kata emosional yang telah dihitung. Sebagai penyegar ingatan, perhatikan data mentah berikut bernama datacamp.
| people | food | like |
|---|---|---|
| Nicole | bread | 78 |
| Nicole | salad | 66 |
| Ted | bread | 99 |
| Ted | salad | 21 |
Jika Anda menerapkan pivot_wider() seperti pada datacamp %>% pivot_wider(names_from = people, values_from = like) maka datanya akan terlihat seperti ini.
| food | Nicole | Ted |
|---|---|---|
| bread | 78 | 99 |
| salad | 66 | 21 |
Latihan ini adalah bagian dari kursus
Analisis Sentimen di R
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# 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 = ___)