Text Mining of Reddit Data using R (or R Studio)-2
Your name, taught by Dr. zhenning Jimmy xu, Twitter: https://twitter.com/MKTJimmyxu
02/16/2023
R Markdown
Description: This meetup is for anyone interested in learning and sharing knowledge about analyzing Reddit data using R. In this tutorial, we will be using RedditExtractoR and a few other R packages to analyze a dataset of Reddit posts.
Text mining is the process of analyzing large collections of unstructured text data to discover patterns, trends, and insights. With the rise of social media platforms like Reddit, there is a wealth of information available in the form of user-generated content that can be analyzed using text mining techniques.
R is a popular programming language and environment for statistical computing and graphics, widely used in data analysis and data visualization. In recent years, it has also become a powerful tool for text mining and natural language processing.
In this Meetup event, we will explore how to use R for text mining of Reddit data. We will walk through the process of collecting data from Reddit using its API, cleaning and preprocessing the data, and applying text mining techniques such as sentiment analysis and topic modeling. By the end of the session, you will have a basic understanding of how to use R for text mining of social media data and be able to apply these techniques to other similar datasets.
Who should attend?
This meetup is open to all skill levels.
Requirements: Participants should bring their laptops to the online event. Basic knowledge of R programming is recommended, but not required. Internet access will be required to access Yahoo Finance pages during the live coding session.
Processing data
Using a few R packages, we will clean and preprocess the data to prepare it for analysis. We will remove stop words, punctuations, and URLs from the text data.
This will create a corpus of the post titles and remove punctuations, URLs, and stop words. We also perform stemming to reduce words to their root form.
Creating a Document Term Matrix
We will now create a document term matrix to represent the text data.
Text Analysis using tm and other packages
We can now perform text analysis using tm and other packages. We will start by creating a few plots (word cloud, etc.) to visualize the most frequent words in the post titles.
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.2'
## (as 'lib' is unspecified)
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.2'
## (as 'lib' is unspecified)
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.2'
## (as 'lib' is unspecified)
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.2'
## (as 'lib' is unspecified)
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.2'
## (as 'lib' is unspecified)
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.2'
## (as 'lib' is unspecified)
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.2'
## (as 'lib' is unspecified)## Loading required package: NLP## Loading required package: RColorBrewer##
## Attaching package: 'syuzhet'## The following object is masked from 'package:rtweet':
##
## get_tokens##
## Attaching package: 'ggplot2'## The following object is masked from 'package:NLP':
##
## annotate##
## 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## Rows: 421 Columns: 7
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (4): title, text, subreddit, url
## dbl (2): timestamp, comments
## date (1): date_utc
##
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.## spc_tbl_ [421 × 7] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
## $ date_utc : Date[1:421], format: "2023-03-17" "2023-04-13" ...
## $ timestamp: num [1:421] 1.68e+09 1.68e+09 1.68e+09 1.68e+09 1.68e+09 ...
## $ title : chr [1:421] "Can anyone ID the button up shirt worn in these pictures? The pics were taken in 1997 and can\031t I seem to fi"| __truncated__ "Worst strategy in history" "Sneakers that aren't Stan Smith?" "What's the difference between these three variants of Adidas Grand Court Shoes. The site has Grand Court, Grand"| __truncated__ ...
## $ text : chr [1:421] NA "If you think of unique events where a brand can sell a ridiculous amount of gear then a significant sports even"| __truncated__ "Hey! I used to have those pairs of adidas that were not stan smith but really similar. Anyone who can help?" "There's no info on what makes these didderent anywhere, so decided to post a question. \r\n\r\n\r\nThese are t"| __truncated__ ...
## $ subreddit: chr [1:421] "adidas" "adidas" "adidas" "adidas" ...
## $ comments : num [1:421] 1 0 9 1 0 1 3 3 0 1 ...
## $ url : chr [1:421] "https://www.reddit.com/r/adidas/comments/11u8cm6/can_anyone_id_the_button_up_shirt_worn_in_these/" "https://www.reddit.com/r/adidas/comments/12l63wa/worst_strategy_in_history/" "https://www.reddit.com/r/adidas/comments/12hk6c0/sneakers_that_arent_stan_smith/" "https://www.reddit.com/r/adidas/comments/12gjto3/whats_the_difference_between_these_three_variants/" ...
## - attr(*, "spec")=
## .. cols(
## .. date_utc = col_date(format = ""),
## .. timestamp = col_double(),
## .. title = col_character(),
## .. text = col_character(),
## .. subreddit = col_character(),
## .. comments = col_double(),
## .. url = col_character()
## .. )
## - attr(*, "problems")=<externalptr>## [1] 421## [1] 7## chr [1:421] NA ...## [1] NA
## [2] "If you think of unique events where a brand can sell a ridiculous amount of gear then a significant sports event would pop into your mind. \r\n\r\nNow, in December Argentina won the World Cup in Qatar. Five million people went out to celebrate with the team that paraded with the cup through Buenos Aires. \r\n\r\nOne would think that given this scenario, the official sponsor for the national team would have all of their factories working non-stop to produce an obscene number of shirts to sell. \r\n\r\nAnd yet, ever since December, the website shows the home shirt as sold out. \r\n\r\nImpossible is nothing."
## [3] "Hey! I used to have those pairs of adidas that were not stan smith but really similar. Anyone who can help?"
## [4] "There's no info on what makes these didderent anywhere, so decided to post a question. \r\n\r\n\r\nThese are the three variants on their site: \r\n[**https://www.adidas.co.in/grand-court-shoes/FY8209.html**](https://www.adidas.co.in/grand-court-shoes/FY8209.html) \r\n[https://www.adidas.co.in/grand-court-td-lifestyle-court-casual-shoes/GW9250.html](https://www.adidas.co.in/grand-court-td-lifestyle-court-casual-shoes/GW9250.html)\r\n\r\n[https://www.adidas.co.in/grand-court-base-lifestyle-court-casual-shoes/HR0234.html](https://www.adidas.co.in/grand-court-base-lifestyle-court-casual-shoes/HR0234.html)"
## [5] "I have a bunch... Is there anything else we can spend our adiclub points on? or just these coupons? thanks!"
## [6] "I think the design is incredible and they are very comfortable, If you can please like the video and subscribe to the channel"## [1] NA
## [2] NA
## [3] "Mk2 jeans judt in the right colours"
## [4] "These things are amazing and fit like a glove. I admit I\031m a bit of a snob and have worn Mephisto and Magnani shoes for the past couple years and just wanted to try something more down to earth and sporty. I am hooked and now have two pairs of Samba."
## [5] NA
## [6] NA## <<VCorpus>>
## Metadata: corpus specific: 0, document level (indexed): 0
## Content: documents: 421## $content
## [1] NA## Error in FUN(X[[i]], ...): unused argument (mc.cores = 1)## word freq
## adidas adidas 65
## shoes shoes 60
## like like 56
## can can 47
## just just 43
## pair pair 41
## size size 40
## anyone anyone 38
## know know 35
## shoe shoe 32
## really really 30
## get get 29
## find find 25
## https https 24
## look look 23
## one one 23
## ive ive 22
## thanks thanks 22
## looking looking 21
## new new 20
## bought bought 19
## got got 18
## also also 17
## help help 17
## think think 17
## ultraboost ultraboost 17
## online online 16
## they they 16
## tried tried 16
## white white 16
## black black 15
## comfortable comfortable 15
## does does 15
## since since 15
## years years 15
## bit bit 14
## model model 14
## will will 14
## wwwadidascom wwwadidascom 14
## even even 13
## fit fit 13
## i\031ve i\031ve 13
## maybe maybe 13
## something something 13
## wear wear 13
## feel feel 12
## guys guys 12
## might might 12
## the the 12
## wanted wanted 12
## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): thoughts could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): washing could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): womens could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): wondering could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): advance could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): already could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): appreciate could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): around could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): attached could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): available could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): cheap could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): couple could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): definitely could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): diponvvotwcloudfrontnet could not be fit on page. It will
## not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): ecdcbdcabfe could not be fit on page. It will not be
## plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): experiences could not be fit on page. It will not be
## plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): forums could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): getting could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): light could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): materials could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): months could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): people could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): point could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): posts could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): receipt could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): recommend could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): reviews could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): seen could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): slides could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): song could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): stretch could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): stripes could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): structured could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): style could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): these could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): thing could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): times could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): uncomfortable could not be fit on page. It will not be
## plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): worth could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): wrong could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): advice could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): amazon could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): ampxb could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): anybody could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): anymore could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): area could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): beautiful could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): been could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): better could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): brands could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): break could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): came could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): causing could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): close could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): collection could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): colour could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): colours could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): commercial could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): compared could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): confused could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): country could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): cup could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): decided could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): discounts could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): email could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): exactly could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): figure could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): figured could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): greatly could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): grey could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): heel could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): height could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): hope could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): hphtml could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): hphtmlhttps could not be fit on page. It will not be
## plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): id could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): insole could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): level could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): machine could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): made could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): many could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): mean could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): mention could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): mind could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): money could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): narrow could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): narrowed could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): normal could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): normally could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): original could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): outside could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): overall could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): pants could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): past could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): perfectly could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): place could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): prefer could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): promo could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): purchase could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): question could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): quite could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): realized could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): refund could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): releases could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): response could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): running could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): says could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): seeing could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): shop could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): shorts could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): sizes could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): smiths could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): soccer could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): sound could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): stick could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): stock could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): supposed could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): tight could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): today could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): trefoil could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): upper could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): usa could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): version could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): video could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): wanting could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): when could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): why could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): wont could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): work could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): world could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): yet could not be fit on page. It will not be plotted.
## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : thoughts could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : washing could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : wondering could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : advance could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : already could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : appreciate could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : attached could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : available could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : brand could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : cheap could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : definitely could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : diponvvotwcloudfrontnet could not be fit on page. It will
## not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : experiences could not be fit on page. It will not be
## plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : getting could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : great could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : half could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : how could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : kind could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : materials could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : people could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : point could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : posts could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : receipt could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : recommend could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : reviews could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : song could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : stretch could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : stripes could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : structured could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : these could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : times could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : uncomfortable could not be fit on page. It will not be
## plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : without could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : worth could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : wrong could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : advice could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : amazon could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : ampxb could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : anybody could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : anymore could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : area could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : beautiful could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : been could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : better could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : brands could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : break could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : came could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : card could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : causing could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : close could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : code could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : collection could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : colour could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : colours could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : commercial could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : compared could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : confused could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : contact could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : could could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : country could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : decided could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : discounts could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : exactly could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : figure could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : figured could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : greatly could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : gym could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : height could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : hope could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : hphtml could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : hphtmlhttps could not be fit on page. It will not be
## plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : id could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : insole could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : level could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : liked could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : machine could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : mention could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : mind could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : money could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : narrow could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : normal could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : normally could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : original could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : outside could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : overall could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : pants could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : perfectly could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : place could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : prefer could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : promo could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : purchase could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : question could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : quite could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : realized could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : refund could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : releases could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : response could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : running could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : said could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : seeing could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : shell could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : shop could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : shorts could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : smiths could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : soccer could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : sound could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : stick could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : stock could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : supposed could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : tight could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : today could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : trefoil could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : upper could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : usa could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : version could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : video could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : wanting could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : when could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : why could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : wont could not be fit on page. It will not be plotted.## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## max.words = 500, : world could not be fit on page. It will not be plotted.
References
‘RedditExtractoR’ - An R Package that helps you access the Reddit API: https://github.com/ivan-rivera/RedditExtractor
What Are APIs? - Simply Explained: https://www.youtube.com/watch?v=OVvTv9Hy91Q