Analýza sentimentu na Twitteru

Analýza dat ze sociálních médií v R

Vivek Vijayaraghavan

Data Science Coach

Přehled lekce

  • Co je analýza sentimentu?
  • Provedení analýzy sentimentu na tweetech
  • Interpretace pocitů a názorů uživatelů
Analýza dat ze sociálních médií v R

Analýza sentimentu

  • Získávání informací o vnímání produktu nebo značky
  • Extrakce a kvantifikace pozitivních, negativních a neutrálních názorů
  • Emoce jako důvěra, radost a hněv z textu

Emoce v analýze sentimentu

Analýza dat ze sociálních médií v R

Význam analýzy sentimentu

  • Vnímání zákazníků ovlivňuje nákupní rozhodnutí
  • Pomáhá pochopit, co zákazníci skutečně cítí
  • Proaktivní přístup k naslouchání zákazníkům a přímé komunikaci
Analýza dat ze sociálních médií v R

Jak funguje analýza sentimentu

  • Předdefinované knihovny sentimentů pro výpočet skóre
  • Trénované a hodnocené podle významu nebo záměru slov
  • Každé slovo je hodnoceno podle blízkosti k pozitivnímu nebo negativnímu slovu
  • Stejný princip se rozšiřuje na slova vyjadřující konkrétní emoce
Analýza dat ze sociálních médií v R

Kroky analýzy sentimentu

Krok 1 v analýze sentimentu

Analýza dat ze sociálních médií v R

Kroky analýzy sentimentu

Krok 2 v analýze sentimentu

Analýza dat ze sociálních médií v R

Kroky analýzy sentimentu

Krok 3 v analýze sentimentu

Analýza dat ze sociálních médií v R

Kroky analýzy sentimentu

Krok 4 v analýze sentimentu

Analýza dat ze sociálních médií v R

Extrakce tweetů pro analýzu sentimentu

# Extract tweets on galaxy fold
twts_galxy  <-  search_tweets("galaxy fold", n = 5000, 
                                lang = "en", include_rts = FALSE)
Analýza dat ze sociálních médií v R

Provedení analýzy sentimentu

# Perform sentiment analysis for tweets on galaxy fold
library(syuzhet)
sa.value <- get_nrc_sentiment(twts_galxy$text)
Analýza dat ze sociálních médií v R

Zobrazení skóre sentimentu

# View the sentiment scores
sa.value[1:5,1:7]

anger    anticipation    disgust    fear    joy    sadness    surprise
<dbl>       <dbl>         <dbl>     <dbl>  <dbl>    <dbl>       <dbl> 
0             0             0         0      0        0           0
1             0             0         0      0        0           0
1             1             0         2      1        1           1
0             0             0         1      0        0           0
0             0             0         0      0        0           0
Analýza dat ze sociálních médií v R

Součet skóre sentimentu

# Calculate sum of sentiment scores
score <- colSums(sa.value[,])
Analýza dat ze sociálních médií v R

Datový rámec skóre sentimentu

# Convert to data frame
score_df <- data.frame(score)

# View the data frame
score_df

               score
               <dbl>
anger           211            
anticipation    825            
disgust         214            
fear            253            
joy             412            
sadness         197            
surprise        315            
trust           641            
negative        487            
positive       1351
Analýza dat ze sociálních médií v R

Datový rámec skóre sentimentu

# Convert row names into 'sentiment' column
# Combine with sentiment scores
sa.score <- cbind(sentiment = row.names(score_df), 
                  score_df, row.names=NULL)
Analýza dat ze sociálních médií v R

Datový rámec skóre sentimentu

# View data frame with sentiment scores
print(sa.score)

sentiment      score
<fct>         <dbl>
anger           211            
anticipation    825            
disgust         214            
fear            253            
joy             412            
sadness         197            
surprise        315            
trust           641            
negative        487            
positive        1351
Analýza dat ze sociálních médií v R

Vykreslení a vizualizace sentimentů

  • Vizualizace sentimentů pomocí ggplot()
# Plot the sentiment scores
ggplot(data = sa.score2, aes(x = sentiment, y = score, 
       fill = sentiment)) +
       geom_bar(stat = "identity") +
       theme(axis.text.x = element_text(angle = 45, hjust = 1))
Analýza dat ze sociálních médií v R

Vizualizace sentimentů

Vizualizace sentimentů

Analýza dat ze sociálních médií v R

Lass uns üben!

Analýza dat ze sociálních médií v R

Preparing Video For Download...