ggpage is a package to create pagestyled visualizations of text based data. It uses ggplot2 and final returns are ggplot2 objects.
In this new version I have worked to include a lot of use cases that wasnβt available in the first version. These new elements are previewed in the vignette.
You can install the released version of ggpage from CRAN with:
install.packages("ggpage")or you can install the developmental version of ggpage from github with:
# install.packages("devtools")
devtools::install_github("EmilHvitfeldt/ggpage")The package includes The Tinder-box by H.C. Andersen for examples.
library(tidyverse)
#> Warning: replacing previous import 'dplyr::vars' by 'rlang::vars' when
#> loading 'dbplyr'
library(ggpage)
head(tinderbox, 10)
#> # A tibble: 10 x 2
#> text book
#> <chr> <chr>
#> 1 "A soldier came marching along the high road: \"Left, righβ¦ The tinder-β¦
#> 2 had his knapsack on his back, and a sword at his side; he β¦ The tinder-β¦
#> 3 and was now returning home. As he walked on, he met a veryβ¦ The tinder-β¦
#> 4 witch in the road. Her under-lip hung quite down on her brβ¦ The tinder-β¦
#> 5 "and said, \"Good evening, soldier; you have a very fine sβ¦ The tinder-β¦
#> 6 knapsack, and you are a real soldier; so you shall have asβ¦ The tinder-β¦
#> 7 "you like.\"" The tinder-β¦
#> 8 "\"Thank you, old witch,\" said the soldier." The tinder-β¦
#> 9 "\"Do you see that large tree,\" said the witch, pointing β¦ The tinder-β¦
#> 10 "beside them. \"Well, it is quite hollow inside, and you mβ¦ The tinder-β¦The basic workflow with ggpage is using either
ggpage_quickfor a quick one function call plot or,- combining
ggpage_buildandggpage_plotto do analysis (NLP for example) before the final plot is produced.
For a simple demonstration we apply ggpage_quick to our tinderbox
object. It is important that the data.frame that is used have the text
in a column named βtextβ.
ggpage_quick(tinderbox)
#> Warning: replacing previous import 'dplyr::vars' by 'rlang::vars' when
#> loading 'tidytext'
# Also pipeable
# tinderbox %>% ggpage_quick()The same result would be achieved by using
tinderbox %>%
ggpage_build() %>%
ggpage_plot()But this approach allows us to introduce more code between
ggpage_build and ggpage_plot giving us multiple more ways to enhance
the plots
tinderbox %>%
ggpage_build() %>%
mutate(long_word = stringr::str_length(word) > 8) %>%
ggpage_plot(aes(fill = long_word)) +
labs(title = "Longer words throughout The Tinder-box") +
scale_fill_manual(values = c("grey70", "blue"),
labels = c("8 or less", "9 or more"),
name = "Word length")