Nothing
context("autolayout tests")
# change test to TRUE to generate pdf in home directory pdf shows
# examples of autolayout to ensure accuracy
test <- FALSE
if (test) {
setwd("~")
pdf("test-autolayout.pdf")
plot(0:1, 0:1, type = "n")
text(0.5, 0.5, label = "regular order")
# basic 2x2 layout
autolayout(c(2, 2))
# 3x2 layout with space for legends
autolayout(c(3, 2), legend = "h")
autolayout(c(3, 2), legend = "v")
# 3x2 layout with individuals legends
autolayout(c(3, 2), legend = "h", common.legend = FALSE)
autolayout(c(3, 2), legend = "v", common.legend = FALSE)
# if outer title is desired
suppressWarnings(autolayout(c(2, 2), outer = TRUE))
# reset oma parameters
par(oma = c(0, 0, 0, 0))
# impact of mratio when legend used
autolayout(c(2, 2), legend = "h", lratio = 0.5)
autolayout(c(2, 2), legend = "h", lratio = 0.2)
# reverse
par(mfrow = c(1, 1))
plot(0:1, 0:1, type = "n")
text(0.5, 0.5, label = "reverse order")
# 3x2 layout with space for legends
autolayout(c(3, 2), legend = "h", reverse = TRUE)
autolayout(c(3, 2), legend = "v", reverse = TRUE)
# 3x2 layout with individuals legends
autolayout(c(3, 2), legend = "h", common.legend = FALSE, reverse = TRUE)
autolayout(c(3, 2), legend = "v", common.legend = FALSE, reverse = TRUE)
# if outer title is desired
suppressWarnings(autolayout(c(2, 2), outer = TRUE, reverse = TRUE))
# reset oma parameters
par(oma = c(0, 0, 0, 0))
# impact of mratio when legend used
autolayout(c(2, 2), legend = "h", lratio = 0.5, reverse = TRUE)
autolayout(c(2, 2), legend = "h", lratio = 0.2, reverse = TRUE)
dev.off()
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.