Text Mining of Reddit Data using R (or R Studio)
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: 311 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_ [311 × 7] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
## $ date_utc : Date[1:311], format: "2023-03-22" "2023-03-21" ...
## $ timestamp: num [1:311] 1.68e+09 1.68e+09 1.68e+09 1.68e+09 1.68e+09 ...
## $ title : chr [1:311] "How do I preserve my yeezys" "If I were to wear my wave runners without an insole, what are the chances that these strings would tear? Does a"| __truncated__ "Is this lil piggy gonna fit or go to market?" "where can I get yeezys for a decent price?" ...
## $ text : chr [1:311] "I started to notice that the boost of my yeezys are starting to yellow on the bottom how do it get the white color back" NA "Seriously I wanna buy some slides but I have wide feet.\r\n\r\n\r\nNormally a 7\r\n\r\n\r\nIn my 350 v2\031s I "| __truncated__ "i\031ve wanted yeezys for a long time now but never got around to doing it lmao but i finally think it\031s tim"| __truncated__ ...
## $ subreddit: chr [1:311] "yeezys" "yeezys" "yeezys" "yeezys" ...
## $ comments : num [1:311] 4 3 7 17 8 8 4 9 22 7 ...
## $ url : chr [1:311] "https://www.reddit.com/r/yeezys/comments/11yt2z5/how_do_i_preserve_my_yeezys/" "https://www.reddit.com/r/yeezys/comments/11xlraz/if_i_were_to_wear_my_wave_runners_without_an/" "https://www.reddit.com/r/yeezys/comments/11w5gri/is_this_lil_piggy_gonna_fit_or_go_to_market/" "https://www.reddit.com/r/yeezys/comments/11s6mfv/where_can_i_get_yeezys_for_a_decent_price/" ...
## - 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] 311## [1] 7## chr [1:311] "I started to notice that the boost of my yeezys are starting to yellow on the bottom how do it get the white color back" ...## [1] "I started to notice that the boost of my yeezys are starting to yellow on the bottom how do it get the white color back"
## [2] NA
## [3] "Seriously I wanna buy some slides but I have wide feet.\r\n\r\n\r\nNormally a 7\r\n\r\n\r\nIn my 350 v2\031s I am a 7.5. Even in the salts that ppl say run small my 7.5 is perfect. I will say the v2s with the pull tab slip right on, no pull tab we be tussling but the fit is good once I am in.\r\n\r\n\r\nIn nike mens sandals I would get an 8 but felt like to perfect of a fit if they did but a 9 was too big.\r\n\r\n\r\nI feel like an 8 yeezy slide will work lengthwise but are they really so tight i should get a 9 and hope it doesn\031t look like a boat?\r\n\r\nThanks in advance for any input :)"
## [4] "i\031ve wanted yeezys for a long time now but never got around to doing it lmao but i finally think it\031s time. i definitely wants some 350s but i\031m looking around and they\031re all like 250+. anywhere where i can get them for a little lower?"
## [5] "I am planning on getting a pair for the summer. I will be out and about a whole bunch. Lots of long walks and going to lakes around my town. I just do not want to spend 300+ dollars on a shoe I will eat thru in one summer. I am also curious how long it takes for the tread to go flat. Any type of feedback is immensely appreciated."
## [6] "New to this but I wanted to know where I could get some pairs of Yeezys, been thinking of getting a few pairs."## [1] NA NA NA NA NA NA## <<VCorpus>>
## Metadata: corpus specific: 0, document level (indexed): 0
## Content: documents: 311## $content
## [1] "didn't think there were actually in circulation seller has no box though"## Error in FUN(X[[i]], ...): unused argument (mc.cores = 1)## word freq
## pair pair 23
## like like 22
## yeezys yeezys 20
## get get 18
## just just 17
## know know 16
## will will 15
## one one 13
## want want 13
## can can 12
## i\031m i\031m 12
## wear wear 12
## yeezy yeezy 12
## any any 11
## bought bought 11
## good good 10
## got got 10
## legit legit 10
## long long 10
## think think 10
## buy buy 9
## little little 9
## poll poll 9
## pollhttps pollhttps 9
## runners runners 9
## slides slides 9
## thanks thanks 9
## thinking thinking 9
## view view 9
## wwwredditcom wwwredditcom 9
## box box 8
## comment comment 8
## feel feel 8
## first first 8
## fit fit 8
## now now 8
## shoe shoe 8
## thread thread 8
## anyone anyone 7
## anything anything 7
## bit bit 7
## find find 7
## foam foam 7
## getting getting 7
## https https 7
## looking looking 7
## right right 7
## sage sage 7
## shoes shoes 7
## soles soles 7
## Warning in wordcloud(words = names(dtm_v), freq = dtm_v, min.freq = 3,
## random.order = F): checks 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): comfortable 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): curious 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): dont 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): ensure 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): found 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): include 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): love 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): material 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): may 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): need 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): noticed 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): ochre 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): picture 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): pictures 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): planning 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): posted 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): previewredd 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): removed 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): requests 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): review 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): socks 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): suggestions 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): summer 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): trying 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): upload 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): wearing 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): white 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): year 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): years 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): yellow 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): almost 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): another 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): appreciated 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): comfy 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): day 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): everything 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): feels 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): goat 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): high 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): input 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): maybe 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): model 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): online 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): perfect 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): really 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): recently 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): recommendations 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): resell 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): saloon 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): should 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): sneakers 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): sole 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): started 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): stood 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): super 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): 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): 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): unique 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): walking 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): walks 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): wanna 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): wanted 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): wave 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): what 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): which 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,
## max.words = 500, : checks 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, : comfortable 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, : dont 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, : imgur 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, : include 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, : material 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, : noticed 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, : ochre 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, : picture 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, : planning 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, : posted 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, : previewredd 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, : removed 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, : requests 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, : review 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, : say 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, : socks 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, : stockx 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, : suggestions 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, : summer 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, : trying 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, : two 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, : upload 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, : wearing 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, : white 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, : year 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, : years 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, : yellow 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, : almost 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, : another 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, : appreciated 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, : away 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, : care 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, : comfy 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, : cop 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, : dry 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, : everything 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, : goat 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, : heard 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, : 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,
## max.words = 500, : hey 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, : input 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, : maybe 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, : model 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, : online 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, : perfect 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, : really 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, : recently 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, : recommendations 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, : resell 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, : saloon 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, : should 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, : since 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, : sneakers 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, : sole 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, : started 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, : stood 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, : super 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, : they 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, : 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, : unique 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, : walking 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, : walks 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, : wanna 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, : wanted 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, : wave 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, : what 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, : which 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.
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