1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/align_plots.R
\name{align_margin}
\alias{align_margin}
\title{Align multiple plots along a specified margin}
\usage{
align_margin(sizes, margin_to_align, greedy = TRUE)
}
\arguments{
\item{sizes}{list of dimensions for each plot being aligned. Each element of list
obtained by a call to \code{grob$heights} or \code{grob$widths} (see example).}
\item{margin_to_align}{string either "first" or "last" for which part of plot area should be aligned.
If vertically aligning, "first" aligns left margin and "last" aligns right margin. If horizontally aligning
"first" aligns top margin and "last" aligns bottom margin.}
\item{greedy}{if \code{TRUE}, alignment is always achieved by adjusting the most extreme
margin; if \code{FALSE}, and the number of dimensions for each plot are the same, then
all dimensions are jointly adjusted.}
}
\description{
The function aligns the dimensions of multiple plots along a specified axis, and is solely a helper function
for \code{\link[=align_plots]{align_plots()}} to reduce redundancy. Each element of the \code{sizes}
list corresponds to the dimensions of a plot being aligned. They should be vectors created from calls to
\code{grob$heights} or \code{grob$widths} depending on whether you are aligning vertically or horizontally.
The list of dimensions is generated automatically by the \code{\link[=align_plots]{align_plots()}} function, but see examples.
If the same number of elements exist for all plots for the specified
margin, the function will align individual elements on the margin. Otherwise, it aligns the plot by adding
white space to plot margins so that all margins have the same dimensions.
}
\examples{
library(ggplot2)
# Example for how to utilize, though align_plots() does this internally and automatically
df <- data.frame(
x = 1:10, y1 = 1:10, y2 = (1:10)^2, y3 = (1:10)^3
)
p1 <- ggplot(df, aes(x, y1)) + geom_point()
p2 <- ggplot(df, aes(x, y2)) + geom_point()
p3 <- ggplot(df, aes(x, y3)) + geom_point()
plots <- list(p1, p2, p3)
grobs <- lapply(plots, as_grob)
plot_widths <- lapply(grobs, function(x) {x$widths})
# Aligning the left margins of all plots
aligned_widths <- align_margin(plot_widths, "first")
# Aligning the right margins of all plots as well
aligned_widths <- align_margin(aligned_widths, "last")
# Setting the dimensions of plots to the aligned dimensions
for (i in seq_along(plots)) {
grobs[[i]]$widths <- aligned_widths[[i]]
}
# Draw aligned plots
plot_grid(plotlist = grobs, ncol = 1)
}
\keyword{internal}
|
