knitr::opts_chunk$set( collapse = TRUE, comment = "#>", fig.path = "README/README-" ) options(width=80)
Random quotes directly from R
! A collection of quotes for a variety of topics and from renowned personalities. Useful for illustrating text mining analyses.
# install.packages("devtools") library(devtools) install_github("egarpor/quotes")
# Load package library(quotes) # Dataset str(quotes) head(quotes) # Random quotes set.seed(654321) rquotes(n = 1) rquotes(n = 1, top = "science") rquotes(n = 1, auth = "Bertrand Russell")
# Load packages library(quotes) library(tm) library(SnowballC) library(wordcloud) library(viridis) for (top in c("time", "life", "knowledge")) { # Preprocessing corpus <- Corpus(VectorSource(quotes[topic == top]$quote)) corpus <- tm_map(corpus, removePunctuation) corpus <- tm_map(corpus, stripWhitespace) corpus <- tm_map(corpus, removeNumbers) corpus <- tm_map(corpus, removeWords, c(stopwords("english"), top)) corpus <- tm_map(corpus, stemDocument) # Wordcloud wordcloud(corpus, max.words = 100, col = viridis(100)) title(paste("Wordcloud for topic \"", top, "\"", sep = "")) }
The data has been extracted from the Famous Quotes Database availiable on http://thewebminer.com/download.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.