#Text analysis in R # Loding libraries

library(readr)
## Warning: package 'readr' was built under R version 4.3.3
library(tidytext)
## Warning: package 'tidytext' was built under R version 4.3.3
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.3.3
library(tidyr)
## Warning: package 'tidyr' was built under R version 4.3.3
library(dplyr)
## Warning: package 'dplyr' was built under R version 4.3.3
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(tm)
## Warning: package 'tm' was built under R version 4.3.3
## Loading required package: NLP
## Warning: package 'NLP' was built under R version 4.3.3
## 
## Attaching package: 'NLP'
## The following object is masked from 'package:ggplot2':
## 
##     annotate
library(wordcloud)
## Warning: package 'wordcloud' was built under R version 4.3.3
## Loading required package: RColorBrewer
library(plotly)
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
library(blob)
## Warning: package 'blob' was built under R version 4.3.3

Loading data

twitter_validation <- read.csv("C:/Users/USER/Downloads/Twiitter training & validation/twitter_validation.csv", comment.char="#")
View(twitter_validation)

Explore the dataset

str(twitter_validation)
## 'data.frame':    999 obs. of  4 variables:
##  $ X3364                                                                                                                                                                                                                                              : int  352 8312 4371 4433 6273 7925 11332 1107 2069 3185 ...
##  $ Facebook                                                                                                                                                                                                                                           : chr  "Amazon" "Microsoft" "CS-GO" "Google" ...
##  $ Irrelevant                                                                                                                                                                                                                                         : chr  "Neutral" "Negative" "Negative" "Neutral" ...
##  $ I.mentioned.on.Facebook.that.I.was.struggling.for.motivation.to.go.for.a.run.the.other.day..which.has.been.translated.by.Tom.s.great.auntie.as..Hayley.can.t.get.out.of.bed..and.told.to.his.grandma..who.now.thinks.I.m.a.lazy..terrible.person...: chr  "BBC News - Amazon boss Jeff Bezos rejects claims company acted like a 'drug dealer' bbc.co.uk/news/av/busine…" "@Microsoft Why do I pay for WORD when it functions so poorly on my @SamsungUS Chromebook? 🙄" "CSGO matchmaking is so full of closet hacking, it's a truly awful game." "Now the President is slapping Americans in the face that he really did commit an unlawful act after his  acquit"| __truncated__ ...
summary(twitter_validation)
##      X3364         Facebook          Irrelevant       
##  Min.   :    6   Length:999         Length:999        
##  1st Qu.: 3242   Class :character   Class :character  
##  Median : 6560   Mode  :character   Mode  :character  
##  Mean   : 6435                                        
##  3rd Qu.: 9662                                        
##  Max.   :13197                                        
##  I.mentioned.on.Facebook.that.I.was.struggling.for.motivation.to.go.for.a.run.the.other.day..which.has.been.translated.by.Tom.s.great.auntie.as..Hayley.can.t.get.out.of.bed..and.told.to.his.grandma..who.now.thinks.I.m.a.lazy..terrible.person...
##  Length:999                                                                                                                                                                                                                                         
##  Class :character                                                                                                                                                                                                                                   
##  Mode  :character                                                                                                                                                                                                                                   
##                                                                                                                                                                                                                                                     
##                                                                                                                                                                                                                                                     
## 
df <- (twitter_validation)

Data cleaning

Remove missing values

df <- df[complete.cases(df),]

Remove special characters and punctuation from text

library(SnowballC)
corpus = VCorpus(VectorSource(df$Facebook))

a snap shot of the first text stored in the corpus

as.character(corpus[[1]])
## [1] "Amazon"
corpus <-tm_map(corpus, content_transformer(tolower))
corpus <- tm_map(corpus, removeNumbers)
corpus <- tm_map(corpus, removePunctuation)
corpus <- tm_map(corpus, removeWords, stopwords("english"))
corpus <- tm_map(corpus, stemDocument)
corpus <- tm_map(corpus, stripWhitespace)
as.character(corpus[[1]])
## [1] "amazon"
df$text <- tolower(df$I.mentioned.on.Facebook.that.I.was.struggling.for.motivation.to.go.for.a.run.the.other.day..which.has.been.translated.by.Tom.s.great.auntie.as..Hayley.can.t.get.out.of.bed..and.told.to.his.grandma..who.now.thinks.I.m.a.lazy..terrible.person...)

Tokenize text data

df_tokens <- df%>%
  unnest_tokens(word,text)

Count word frequency

word_counts <- df_tokens%>%
  count(word,sort = TRUE)

Visualize word frequency with word cloud

wordcloud(words = word_counts$word,freq = word_counts$n,main ="Word Freguency")
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): streamer could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): characters could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): microsoft could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): redemption could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): odyssey could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): facebook could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): beyond could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): trying could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): marketing could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): twitter.com could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): give could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): there could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): waiting could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): playing could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): too could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): gamer could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): wait could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): play could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): the could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): rainbowsixsiege could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): running could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): verizonfios could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): brand could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): finished could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): shame could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): updated could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): support could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): exciting could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): having could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): pubg could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): movie could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): agree could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): follow could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): start could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): easportsfifa could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): apex could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): ready could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): always could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): many could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): minutes could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): word could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): others could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): weeks could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): point could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): super could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): didn’t could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): stuck could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): devs could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): features could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): money could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): can’t could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): touch could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): september could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): top could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): verizon could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): mobile could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): extra could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): chance could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): clips could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): do could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): bf4db.com could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): not could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): omg could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): birthday could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): ps5 could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): doing could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): still could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): reason could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): genius could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): assassins could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): its could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): twitter could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): place could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): she could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): don't could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): past could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): available could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): finish could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): gotta could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): most could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): should could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): orders could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): when could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): friend could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): understand could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): speed could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): lawsuit could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): thing could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): looking could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): using could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): man could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): link could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): awesome could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): slow could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): now could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): voice could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): got could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): any could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): youtube could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): design could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): cannot could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): dota could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): google could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): guys could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): side could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): 3070 could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): cant could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): is could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): success could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): would could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): pay could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): right could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): enjoy could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): cyberpunkgame could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): pro could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): they could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): everything could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): up could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): boss could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): blackopscoldwar could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): controller could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): 2020 could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): cyberpunk could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): customers could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): search could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): upcoming could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): selling could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): asbestos could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): online could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): control could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): more could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): bug could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): excited could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): women could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): modernwarfare could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): fucking could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): xbox could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): yall could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): i’m could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): employees could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): racist could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): fifa could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): software could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): without could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): definitely could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): demon could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): resident could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): dividend could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): person could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): important could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): sign could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): despite could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): witcher could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): boy could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): group could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): interesting could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): team could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): their could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): quit could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): city could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): ps4 could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): entertainment could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): say could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): both could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): videos could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): streaks could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): behind could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): able could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): anything could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): glad could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): over could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): keep could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): my could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): and could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): such could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): buff.ly could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): gets could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): single could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): original could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): later could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): gta could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): twitch could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): madden could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): entire could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): trailer could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): playstation could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): were could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): welcome could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): points could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): can't could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): live could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): patch could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): depot could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): broken could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): enough could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): version could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): started could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): bad could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): comments could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): saw could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): nvidia could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): back could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): new could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): me could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): drivers could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): daily could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): viewers could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): canada could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): maybe could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): problem could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): due could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): assassin's could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): week could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): pic.twitter.com could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): shit could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): disappointment could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): favourite could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): battlefield could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): mistake could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): used could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): teams could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): issue could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): products could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): along could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): family could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): probably could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): didn't could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): it’s could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): xboxseriesx could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): highlights could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): girl could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): won’t could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): here could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): learn could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): pleasure could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): social could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): at could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): small could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): leaked could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): already could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): into could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): early could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): item could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): creed could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): away could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): knew could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): random could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): hero could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): morning could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): better could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): awful could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): because could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): memes could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): your could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): legends could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): they're could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): together could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): thought could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): enjoying could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): mother could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): shout could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): ranked could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): found could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): life could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): steam could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): thanks could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): information could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): wanting could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): holy could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): breach could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): to could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): music could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): pandemic could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): needs could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): nice could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): apple could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): wrong could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): game could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): much could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): ghostrecon could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): called could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): all could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): health could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): first could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): white could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): forever could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): page could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): bro could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): second could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): twitch.tv could not be fit on page. It will not be plotted.

## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): you could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): absolutely could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = word_counts$word, freq = word_counts$n, main =
## "Word Freguency"): must could not be fit on page. It will not be plotted.
warnings()
top_10_words <- word_counts%>%
  head(10)
library(ggplot2)

PLOT

plot_ly(word_counts, x=~word,y=~n,type = "bar")