Title: Quotes on Statistics, Data Visualization and Science
Version: 0.3.2
Date: 2023-10-09
Language: en-US
Description: Generates a random quotation from a database of quotes on topics in statistics, data visualization and science. Other functions allow searching the quotes database by key term tags, or authors or creating a word cloud. The output is designed to be suitable for use at the console, in Rmarkdown and LaTeX.
Depends: R (≥ 3.5.0)
License: GPL-2 | GPL-3 [expanded from: GPL (≥ 2)]
Encoding: UTF-8
LazyData: true
Maintainer: Michael Friendly <friendly@yorku.ca>
BugReports: https://github.com/friendly/statquotes/issues
URL: https://github.com/friendly/statquotes/
Imports: stringr, tidytext, wordcloud
RoxygenNote: 7.2.3
Suggests: knitr, rmarkdown, dplyr, forcats, ggplot2
VignetteBuilder: knitr
NeedsCompilation: no
Packaged: 2023-10-10 16:31:34 UTC; friendly
Author: Michael Friendly ORCID iD [aut, cre], Kevin Wright ORCID iD [aut], Phil Chalmers [aut], Matthew Sigal [ctb]
Repository: CRAN
Date/Publication: 2023-10-10 17:00:06 UTC

Coerces statquote objects to strings suitable for LaTeX

Description

This function coerces statquote objects to strings suitable for rendering in LaTeX. Quotes and (potential LaTeX) sources are placed within suitable "epigraph" output format via the sprintf function.

Usage

as.latex(quotes, form = "\\epigraph{%s}{%s}\n\n", cite = TRUE)

Arguments

quotes

an object of class statquote returned from functions such as search_quotes or statquote

form

structure of the LaTeX output for the text (first argument) and source (second argument) passed to sprintf

cite

logical; should the cite field be included in the source output?

Value

character vector of formatted LaTeX quotes

Author(s)

Phil Chalmers

See Also

as.data.frame.statquote, as.markdown

Examples


ll <- search_quotes("Tukey")
as.latex(ll)

Function to transform statquote objects to strings suitable for markdown

Description

This function coerces statquote objects to strings suitable for rendering in markdown. Quotes and sources are placed within output formatted via the sprintf function.

This function formats a statquote object to the tagged key:value format used for maintaining the statquotes database. The key names are: 

  quo: This is a quotation.
  src: Person or persons who said or wrote the quote.
  cit: Citation for the original quote.
  url: URL where the quote can be found (such as journal articles).
  tag: Comma-separated tags to categorize the quote.
  tex: TeX-formatted citation

Usage

as.markdown(quotes, form = "> *%s* -- %s\n\n", cite = TRUE)

as.tagged(quotes, qid = TRUE)

Arguments

quotes

an object of class statquote returned from functions such as search_quotes or statquote

form

structure of the markdown output for the text (first argument) and source (second argument) passed to sprintf

cite

logical; should the cite field be included in the source output?

qid

logical. Should the quote id number 'qid' be included in the output?

Value

character vector of formatted markdown quotes

A character vector of lines

See Also

as.data.frame.statquote, as.latex

as.data.frame.statquote, as.latex, as.markdown

Examples


ll <- search_quotes("Tukey")
as.markdown(ll)

qitems <- search_quotes("Yates")
cat(as.tagged(qitems[1:5,]))

Check for duplicate quotes

Description

Returns a list with aggressively fuzzy matched quotations, along with their relevant citation information.

Usage

find_duplicate_quotes()

Author(s)

Phil Chalmers

Examples


# As the number of quotes has grown, this has become very slow.
# dups <- find_duplicate_quotes()

Generate a word cloud based upon quote database

Description

This function takes a search pattern (or regular expression) and generates a word cloud based upon that filter.

Usage

quote_cloud(search = ".*", max.words = 80, colors, ...)

Arguments

search

Character string (or regular expression) used to search the database. Default is to search all quotes.

max.words

Integer; The maximum number of words to be plotted.

colors

A character vector of colors to be used to designate word frequency. The default is 5 levels, from light to dark green.

...

additional arguments passed to search_quotes and wordcloud

Value

None. A wordcloud is plotted.

See Also

statquote, quote_tags, quotes, search_quotes. wordcloud

Examples

quote_cloud()
quote_cloud(search = "graph")
quote_cloud(max.words = 10)

List the tags of the quotes database

Description

This function finds the unique tags of items in the quotes database and returns them as vector or a one-way table giving their frequencies.

Usage

quote_tags(table = FALSE)

Arguments

table

Logical. If table=TRUE, return a one-way frequency table of quotes for each tag; otherwise return the sorted vector of unique tags.

Value

Returns either a vector of tags in the quotes database or a one-way frequency table of the number of quotes for each tag.

Examples

quote_tags()
quote_tags(table=TRUE)

library(ggplot2)
qt <- quote_tags(table=TRUE)
qtdf <-as.data.frame(qt)
# bar plot of frequencies
ggplot2::ggplot(data=qtdf, aes(x=Freq, y=tags)) +
    geom_bar(stat = "identity")

# Sort tags by frequency
qtdf |>
  dplyr::mutate(tags = forcats::fct_reorder(tags, Freq)) |>
  ggplot2::ggplot(aes(x=Freq, y=tags)) +
  geom_bar(stat = "identity")

Quotes on statistics, data visualization and science

Description

A data frame with quotations. The variables are:

Usage

data(quotes)

Format

A data frame

Details

Parse quotes from the file quotes_raw.txt.

Description

There should be no reason for a person to call this function. This function parses 'data-raw/quotes_raw.txt'. The resulting dataframe is then saved to 'data/quotes.rda'. Although it would be possible to use this function to parse the quotes when loading the package, that would make it much slower to load the package.

Usage

read_quotes_raw(file = file.path(getwd(), "data-raw/quotes_raw.txt"))

Arguments

file

The file of raw quotes.

Value

Dataframe with quotes

Search the quote database for a string or regex pattern

Description

This function takes a search pattern (or regular expression) and returns all quotes that match the pattern.

A convenient wrapper for search quotes that by default returns all quotes

Usage

search_quotes(
  search,
  ignore_case = TRUE,
  fuzzy = FALSE,
  fields = c("text", "source", "tags", "cite"),
  ...
)

search_text(search, fuzzy = FALSE, ...)

get_quotes(search = ".*", ...)

Arguments

search

A character string or regex pattern to search the database.

ignore_case

If TRUE, matching is done without regard to case.

fuzzy

If TRUE, use agrep to allow approximate matches to the search string.

fields

A character vector of the particular fields to search. The default is c("text","source","tags"). You can use the shortcut fields="all" to search all fields (including citation, url).

...

additional arguments passed to agrep to fine-tune fuzzy search parameters.

Value

A data frame (also with class 'statquote') object containing all quotes that match the search parameters.

A data frame (also with class 'statquote') object containing all quotes.

See Also

agrep, statquote.

Examples

search_quotes("^D") # regex to find all quotes that start with "D"
search_quotes("Tukey") # all quotes with "Tukey"
search_quotes("Turkey", fuzzy = TRUE) # fuzzy match

# to a data.frame
out <- search_quotes("bad data", fuzzy = TRUE)
as.data.frame(out)

search_text("omnibus")
qdb <- get_quotes()
nrow(qdb)
names(qdb)

Display a randomly chosen statistical quote.

Description

Display a randomly chosen statistical quote.

Usage

statquote(ind = NULL, pattern = NULL, tag = NULL, source = NULL, topic = NULL)

## S3 method for class 'statquote'
print(x, cite = TRUE, width = NULL, ...)

## S3 method for class 'statquote'
as.data.frame(x, row.names = NULL, optional = FALSE, ...)

Arguments

ind

Integer or character. If 'ind' is missing, a random quote is chosen from all quotations. If 'ind' is specified and is an integer, return the ind^th quote. If 'ind' is specified and is character, use it as the 'pattern'.

pattern

Character string. Quotes are subset to to those which match the pattern in the quote text.

tag

Character string. Quotes are subset to those matching the specified tag.

source

Character string. Quotes are subset to those matching the specified source (person).

topic

Deprecated. Use 'tag' instead. Only kept for backward compatability.

x

object of class 'statquote'

cite

logical; should the cite field be printed?

width

Optional print width parameter

...

Other optional arguments, unused here

row.names

see as.data.frame

optional

see as.data.frame

Value

A character vector containing one quote. It is of class statquote for which an S3 print method will be invoked, and for which other methods are available.

See Also

quote_tags, search_quotes, quotes, Inspired by: fortune

as.latex, as.markdown

Examples

set.seed(1234)
statquote()
statquote(10)
statquote("boggled")
statquote(pattern="boggled")
statquote(source="Yates")
statquote(tag="anova")
print.data.frame(statquote(302)) # All information