| Title: | Put Page Numbers on Graphics |
|---|---|
| Description: | A simple way to add page numbers to base/ggplot/lattice graphics. |
| Authors: | Kevin Wright [aut, cre, cph] |
| Maintainer: | Kevin Wright <[email protected]> |
| License: | MIT + file LICENSE |
| Version: | 1.3 |
| Built: | 2024-11-13 04:59:03 UTC |
| Source: | https://github.com/kwstat/pagenum |
Put Page Numbers on Graphics
pagenum( num, text = "Page", date = FALSE, date.format, x = 0.03, y = 0.03, just = c("left", "bottom"), col = "gray50", cex = 0.75 ) setPagenum(num = 1) getPagenum()pagenum( num, text = "Page", date = FALSE, date.format, x = 0.03, y = 0.03, just = c("left", "bottom"), col = "gray50", cex = 0.75 ) setPagenum(num = 1) getPagenum()
num |
The number to put on the page. If no number is given,
the value of |
text |
The text to use in front of the page number. |
date |
If FALSE (default), do not add a date below the page number. |
date.format |
The format to use for the date. |
x |
Horizontal position of timestamp, in [0,1]. Default .03 |
y |
Vertical position of timestamp, in [0,1]. Default .03 |
just |
Jufstification. Default c('left','bottom') |
col |
Color to use for the text. |
cex |
Character expansion. Default 0.75. |
Use setPagenum to create a global variable with the page number.
If pagenum() is called without an argument, the value of
options()$pagenum is used to determine the page number.
Each time pagenum() is called, options()$pagenum is
automatically incremented by 1.
Returns the value stored by the global variable.
Returns the value of options()$pagenum
Kevin Wright
Mark Heckmann (2009). R: Good practice - adding footnotes to graphics. https://ryouready.wordpress.com/2009/02/17/r-good-practice-adding-footnotes-to-graphics/
# base graphics setPagenum(1) plot(Sepal.Length~Sepal.Width, data=iris, col=Species, pch=19) pagenum() # lattice, date setPagenum(getPagenum()+1) # Manual increment require(lattice) xyplot(Sepal.Length~Sepal.Width, data=iris, groups=Species) pagenum(date=TRUE) # ggplot2, top-right require(ggplot2) ggplot(iris, aes(x=Sepal.Width, y=Sepal.Length, color=Species)) + geom_point() + theme_classic() pagenum(text="ABC Corp - ", date=TRUE, x=.95, y=.95, just=c('right','top')) # multiple figures, 'draft' watermark op = par(mfrow=c(1,2)) plot(Sepal.Length ~ Sepal.Width, data=iris, col=Species, pch=19) plot(Petal.Length ~ Petal.Width, data=iris, col=Species, pch=19) par(op) pagenum(num="", text="Figures 2a, 2b") pagenum(num="", text="Draft", x=.5, y=.95, just=c('center','top'), col="wheat", cex=3)# base graphics setPagenum(1) plot(Sepal.Length~Sepal.Width, data=iris, col=Species, pch=19) pagenum() # lattice, date setPagenum(getPagenum()+1) # Manual increment require(lattice) xyplot(Sepal.Length~Sepal.Width, data=iris, groups=Species) pagenum(date=TRUE) # ggplot2, top-right require(ggplot2) ggplot(iris, aes(x=Sepal.Width, y=Sepal.Length, color=Species)) + geom_point() + theme_classic() pagenum(text="ABC Corp - ", date=TRUE, x=.95, y=.95, just=c('right','top')) # multiple figures, 'draft' watermark op = par(mfrow=c(1,2)) plot(Sepal.Length ~ Sepal.Width, data=iris, col=Species, pch=19) plot(Petal.Length ~ Petal.Width, data=iris, col=Species, pch=19) par(op) pagenum(num="", text="Figures 2a, 2b") pagenum(num="", text="Draft", x=.5, y=.95, just=c('center','top'), col="wheat", cex=3)