Skor sentimen
Dalam buku Animal Farm, tiga babi utama bertanggung jawab atas jalannya cerita: Napoleon, Snowball, dan Squealer. Sepanjang buku, mereka menyebarkan gagasan pemberontakan dan mendorong hewan-hewan lain untuk mengambil alih peternakan dari Tuan Jones — pemilik peternakan.
Dengan menggunakan kalimat-kalimat yang menyebut masing-masing babi, tentukan karakter mana yang memiliki sentimen paling negatif yang diasosiasikan dengan mereka. Tabel sentences berisi tibble yang memuat kalimat-kalimat dari buku Animal Farm.
Latihan ini adalah bagian dari kursus
Pengantar Natural Language Processing di R
Petunjuk latihan
- Gunakan fungsi
grepl()untuk memfilter kalimat yang hanya menyebutkan nama babi tersebut. - Gunakan
inner_join()untuk menggabungkan skor sentimen dari leksikonafinn. - Ringkas hasilnya dengan menjumlahkan kolom
score.
Latihan interaktif praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
# Print the overall sentiment associated with each pig's sentences
for(name in c("napoleon", "snowball", "squealer")) {
# Filter to the sentences mentioning the pig
pig_sentences <- sentences[___(___, sentences$sentence), ]
# Tokenize the text
napoleon_tokens <- pig_sentences %>%
unnest_tokens(output = "word", token = "words", input = sentence) %>%
anti_join(stop_words)
# Use afinn to find the overall sentiment score
result <- napoleon_tokens %>%
inner_join(___("___")) %>%
summarise(sentiment = ___(___))
# Print the result
print(paste0(name, ": ", result$sentiment))
}