Analisi dei dati dei social media in R
Vivek Vijayaraghavan
Data Science Coach
-filter usato per estrarre i tweet originali-filter:retweets esclude tutti i retweet-filter:quote esclude le citazioni-filter:replies filtra le risposte# Estrai 100 tweet su "digital marketing"
tweets_all <- search_tweets("digital marketing", n = 100)
reply_to_screen_name, is_quote, is_retweet# Verifica il conteggio delle risposte
library(plyr)
count(tweets_all$reply_to_screen_name)
x freq
<fct> <int>
blairaasmith 2
javiergosende 1
juanburgos 1
WhutTheHale 2
NA 94
# Verifica il conteggio delle citazioni
count(tweets_all$is_quote)
x freq
<lgl> <int>
FALSE 98
TRUE 2
# Verifica il conteggio dei retweet
count(tweets_all$is_retweet)
x freq
<lgl> <int>
FALSE 61
TRUE 39
-filter# Applica '-filter'
tweets_org <- search_tweets("digital marketing
-filter:retweets
-filter:quote
-filter:replies",
n = 100)
# Verifica il conteggio delle risposte
library(plyr)
count(tweets_org$reply_to_screen_name)
x freq
<lgl> <int>
NA 100
# Verifica il conteggio delle citazioni
library(plyr)
count(tweets_org$is_quote)
x freq
<lgl> <int>
FALSE 100
# Verifica il conteggio dei retweet
library(plyr)
count(tweets_org$is_retweet)
x freq
<lgl> <int>
FALSE 100
lang filtra i tweet per lingua
# Filtra ed estrai i tweet in spagnolo
tweets_lang <- search_tweets("brand marketing", lang = "es")
View(tweets_lang)

head(tweets_lang$lang)
[1] "es" "es" "es" "es" "es" "es"
min_faves: filtra per numero minimo di likemin_retweets: filtra per numero minimo di retweet AND per entrambe le condizioni# Estrai tweet con almeno 100 like e retweet
tweets_pop <- search_tweets("bitcoin min_faves:100 AND
min_retweets:100")
# Crea un data frame per verificare retweet e like
counts <- tweets_pop[c("retweet_count", "favorite_count")]
head(counts)
retweet_count favorite_count
<int> <int>
1 162 833
2 141 894
3 164 1128
4 395 1346
5 475 2271
6 270 1654
# Visualizza i tweet
head(tweets_pop$text)
text
<chr>
1 As we continue to build the Bakkt Bitcoin Futures contract, we reached a
2 BREAKING: The United States is considering entering into a "currency pact"
3 REMINDER: The Bitcoin ETF will eventually get approved.\n\nNot a question
4 [New Post] Bitcoin is becoming much more important in Hong Kong and India.
5 Reports are surfacing that some Hong Kong ATMs have run out of cash as
6 Bitcoin is the most transparent currency ever created.
Analisi dei dati dei social media in R