Rychlá analýza základní polarity
Na začátku projektu analýzy sentimentu se někdy vyplatí rychle zavolat polarity() – pomůže ti nastavit očekávání a lépe pochopit povahu dat. V tomto cvičení (abychom ušetřili čas) aplikuješ polarity() na část vektoru comments, zatímco větší objekt polarity se načítá na pozadí.
Z grafu hustoty pravděpodobnosti si všimneš, že recenze se nesoustředí kolem 0. Za tímto „nafukováním skóre sentimentu" stojí obvykle dva důvody. Prvním jsou sociální normy – respondenti mívají tendenci vyjadřovat se spíše kladně než neutrálně. To se přirozeně liší podle kanálu. Kanály s ostřejším tónem, jako jsou e-sportové komunity nebo příspěvky na sociálních sítích, mohou naopak skóre stlačovat dolů. Každý kanál má prostě jiná očekávání. Druhým možným důvodem je „sentiment zaměřený na vlastnosti". V některých recenzích může autor napsat například: „postel byla pohodlná a příjemná, ale kuchyň byla špinavá a odporná." Sentiment takové recenze pokrývá více vlastností najednou, což může průměrné skóre zkreslit.
V následujícím cvičení toto „nafukování skóre" upravíš, ale nejdřív prozkoumej recenze beze změny.
Toto cvičení je součástí kurzu
Sentiment Analysis in R
Pokyny k cvičení
- Vytvoř objekt
practice_polpomocípolarity()aplikované na prvních šest recenzí:bos_reviews$comments[1:6]. - Prohlédni si vrácený objekt polarity zavoláním
practice_pol. - Zavolej
summary()napractice_pol$all$polarity– tím získáš celkovou polaritu pro všech 6 komentářů. - Načetli jsme také větší objekt polarity pro všech 1 000 komentářů. Tento nový objekt se jmenuje
bos_pol. Teď aplikujsummary()na správný prvek seznamu, který vrátí všechna skóre polarity objektubos_pol. - Ukázkový kód obsahuje sloupcový graf a graf hustoty pravděpodobnosti, které jsou téměř připravené k vykreslení. Musíš zadat datový rámec představující všechna skóre. Nápověda: v předchozím kroku je
polaritysloupec tohoto datového rámce.
Interaktivní cvičení na vyzkoušení si v praxi
Vyzkoušejte si toto cvičení dokončením tohoto ukázkového kódu.
# Practice apply polarity to first 6 reviews
practice_pol <- ___
# Review the object
___
# Check out the practice polarity
___
# Summary for all reviews
___
# Plot Boston polarity all element
ggplot(___, aes(x = polarity, y = ..density..)) +
geom_histogram(binwidth = 0.25, fill = "#bada55", colour = "grey60") +
geom_density(size = 0.75) +
theme_gdocs()