กราฟ Kernel Density

เมื่อได้เรียนรู้เกี่ยวกับกราฟ kernel density แล้ว ลองสร้างกราฟนี้ด้วยตัวเองกัน! จำไว้ว่ากราฟชนิดนี้คล้ายกับฮิสโทแกรมที่ถูกทำให้เรียบขึ้น แต่ไม่ได้รับผลกระทบจากความกว้างของช่วง (binwidth) แบบฝึกหัดนี้จะช่วยให้สร้างกราฟ kernel density จากค่าความรู้สึกได้

ในแบบฝึกหัดนี้ จะวาดกราฟ kernel density 2 เส้น ได้แก่ เส้นสำหรับ Agamemnon และอีกเส้นสำหรับ The Wizard of Oz สำหรับทั้งสองเรื่อง ให้ใช้ inner_join() กับ lexicon "afinn" โดย lexicon "afinn" มีคะแนนของคำตั้งแต่ -5 ถึง 5 เมื่ออยู่ในรูปแบบ tidy แล้ว ทั้งสองเล่มจะเก็บเฉพาะคำที่ปรากฏใน lexicon พร้อมคะแนนที่สอดคล้องกัน

จากนั้น ให้รวมผลลัพธ์ทั้งหมดเข้าด้วยกันเป็น data frame ขนาดใหญ่ขึ้นโดยใช้ bind_rows() แล้วสร้างกราฟด้วย ggplot2

จากกราฟที่ได้ จะเห็นได้ว่าหนังสือแต่ละเล่มใช้ภาษาเชิงบวกหรือเชิงลบมากกว่ากัน แม้จะมีส่วนทับซ้อนกันเนื่องจากเหตุการณ์ร้ายแรงที่เกิดขึ้นกับ Dorothy แต่กราฟ kernel density แสดงให้เห็นว่า The Wizard of Oz มีแนวโน้มใช้ภาษาเชิงบวกมากกว่า Agamemnon

เราได้โหลด ag และ oz ในรูปแบบ tidy ของ Agamemnon และ The Wizard of Oz ตามลำดับ และสร้าง afinn เป็น subset ของ lexicon "afinn" จาก tidytext ไว้ให้แล้ว

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

การวิเคราะห์ความรู้สึกใน R

ดูคอร์ส

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

ag_afinn <- ag %>% 
  # Inner join to afinn lexicon
  ___(___, by = c("term" = "word"))

oz_afinn <- oz %>% 
  # Inner join to afinn lexicon
  ___ 

# Combine
all_df <- ___(agamemnon = ___, oz = ___, .id = "___")

แก้ไขและรันโค้ด