Kom igångKom igång gratis

Glada sånger!

Enbart positiva och negativa ord räcker förstås inte. I den här övningen lär du dig om valensväxlare – ord som berättar om författarens känslomässiga avsikt. Tidigare tillämpade du polarity() på text utan valensväxlare. Här får du se hur förstärkande ord och negationer fungerar i praktiken.

Kom ihåg att ett förstärkande ord lägger till 0,8 till ett positivt ord i polarity(), vilket gör att det positiva poängen blir 1,8. För negativa ord subtraheras 0,8, vilket ger totalt -1,8. Poängen divideras sedan med kvadratroten av det totala antalet ord.

Betrakta följande exempel från Frank Sinatra:

  • "It was a very good year"

"Good" är lika med 1 och "very" lägger till ytterligare 0,8. Alltså ger 1,8/sqrt(6) en polaritet på 0,73.

Ett negatande ord som "not" inverterar subjektivitetspoängen. Betrakta följande exempel från Bobby McFerrin:

  • "Don't worry Be Happy"

"worry" ger nu 1 tack vare negationen "don't". Lägg till "happy", +1, och summan blir 2. Med totalt 4 ord ger 2 / sqrt(4) en polaritetspoäng på 1.

Den här övningen är en del av kursen

Sentimentanalys i R

Visa kurs

Övningsinstruktioner

  • Undersök dataramen conversation. Notera valensväxlare som "never" i textkolumnen.
  • Tillämpa polarity() på kolumnen text i conversation för att beräkna polariteten för hela konversationen.
  • Beräkna polaritetspoängen per elev och tilldela resultatet till student_pol.
    • Anropa polarity() igen, den här gången med två kolumner från conversation.
    • Textvariabeln är text och grupperingsvariabeln är student.
  • Använd scores() på student_pol för att se resultaten på elevnivå.
  • Funktionen counts() applicerad på student_pol skriver ut polariteten på meningsnivå för hela dataramen, tillsammans med identifierade lexikonord.
  • Polaritetsobjektet student_pol kan visualiseras med plot().

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

# Examine conversation
___

# Polarity - All
___

# Polarity - Grouped
student_pol <- conversation %$%
  ___(___, ___)

# Student results
___

# Sentence by sentence
___

# qdap plot
___
Redigera och kör kod