In egarpor/quotes: Collection of quotes for a variety of topics and from renowned personalities

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "README/README-"
)
options(width=80)

quotes

Overview

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

# install.packages("devtools")
library(devtools)
install_github("egarpor/quotes")

Usage

Random 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")

Wordcloud for topic-related quotes

# 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 = ""))

}

Credits

The data has been extracted from the Famous Quotes Database availiable on http://thewebminer.com/download.

egarpor/quotes documentation built on May 16, 2019, 12:13 a.m.