Get twitter data, clean & analyze it

twitter_sentiment.R

# Get twitter data
trainer <- search_tweets(q = "Guardiola", n=18000, type='mixed', lang="en") 
# Source for URL removal: https://www.earthdatascience.org/courses/earth-analytics/get-data-using-apis/text-mining-twitter-data-intro-r/
trainer$stripped_text <- gsub("http.*","",  trainer$text) # Remove http
trainer$stripped_text <- gsub("https.*","", trainer$stripped_text) # Remove https
# Emoji removal
trainer$plain_tweet <- enc2native(trainer$stripped_text) # Covnert emojis to native encoding
trainer$plain_tweet <- gsub("<.*.>", "", trainer$plain_tweet)
trainer$plain_tweet <- trimws(trainer$plain_tweet) # Remove leading whitespaces from the beginning