Creates a visualization from the ggpage_build output

ggpage_plot(data, mapping = ggplot2::aes(), paper.show = FALSE,
  paper.color = "grey90", paper.alpha = 1, paper.limits = 3,
  page.number = character(1), page.number.x = 3, page.number.y = 3)

Arguments

data

data.frame. Expects output from ggpage_build with optional intermediate analysis.

mapping

Default list of aesthetic mappings to use for plot to be handed to internal ggplot call.

paper.show

Shows the paper underneath the text.

paper.color

Color of the pages. Needs to be of length 1 or the same as the number of pages.

paper.alpha

Alpha of the pages. Needs to be of length 1 or the same as the number of pages.

paper.limits

Numerical. Extends the edges of the paper in all directions.

page.number

Position of the page number. Defaults to none.

page.number.x

Distance the page number is pushed away from the text along the x-axis.

page.number.y

Distance the page number is pushed away from the text along the y-axis.

Value

A ggplot object with the given visualization.

Examples

library(dplyr) library(stringr) library(ggplot2) library(tidytext) library(ggpage) # build and plot ## data.frame with full lines ggpage_build(tinderbox) %>% ggpage_plot()
## vector with full lines ggpage_build(book = tinderbox %>% pull(text)) %>% ggpage_plot()
## data.frame with single words ggpage_build(tinderbox) %>% unnest_tokens(text, word) %>% ggpage_plot()
## vector with single words ggpage_build(tinderbox %>% unnest_tokens(text, text) %>% pull(text)) %>% ggpage_plot()
# nrow and ncol ggpage_build(tinderbox, nrow = 2) %>% ggpage_plot()
ggpage_build(tinderbox, ncol = 2) %>% ggpage_plot()
# Include analysis within ggpage_build(tinderbox) %>% mutate(word_length = str_length(word)) %>% ggpage_plot(aes(fill = word_length))