Điểm cảm xúc
Trong cuốn Animal Farm, ba con lợn chính chịu trách nhiệm cho các diễn biến của câu chuyện là Napoleon, Snowball và Squealer. Suốt cả cuốn sách, chúng gieo rắc tư tưởng nổi dậy và thúc giục các con vật khác chiếm lại nông trại từ tay ông Jones — chủ trang trại.
Dựa trên các câu có nhắc đến từng con lợn, hãy xác định nhân vật nào gắn với cảm xúc tiêu cực nhiều nhất. Tibble sentences chứa các câu trích từ cuốn Animal Farm.
Bài tập này là một phần của khóa học
Nhập môn Xử lý Ngôn ngữ Tự nhiên với R
Hướng dẫn bài tập
- Dùng hàm
grepl()để lọc các câu chỉ nhắc đến tên từng con lợn. - Dùng
inner_join()để ghép điểm cảm xúc từ bộ từ vựngafinn. - Tổng hợp kết quả bằng cách cộng cột
score.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# 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))
}