quotes: quotes dataset

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

Description

A collection of 61,071 unique quotes for a variety of topics and from renowned personalities.

Usage

quotes

Format

A data.table object with 75,966 rows and the following columns:

• id quote's identifier.

• quote quote's text.

• author quote's author.

• topic quote's subject classification.

Source

Data extracted from the Famous Quotes Database availiable on http://thewebminer.com/download.

Examples

# Unique quotes (repeated depending on the topic classification)
uniques <- unique(quotes$quote)
length(uniques)

# Wordcloud for a given topic

## Required packages
library(tm)
library(SnowballC)
library(wordcloud)
library(viridis)

## Preprocessing
top <- "time"
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
## Not run: 
wordcloud(corpus, max.words = 100, col = viridis(100))
title(paste("Wordcloud for topic \"", top, "\"", sep = ""))

## End(Not run)

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