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
57
58
59
60
61
62
63
64
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/rbind-cbind.R
\name{bind}
\alias{bind}
\alias{rbind.gtable}
\alias{cbind.gtable}
\title{Row and column binding for gtables.}
\usage{
\method{rbind}{gtable}(..., size = "max", z = NULL)
\method{cbind}{gtable}(..., size = "max", z = NULL)
}
\arguments{
\item{...}{gtables to combine (\code{x} and \code{y})}
\item{size}{How should the widths (for rbind) and the heights (for cbind)
be combined across the gtables: take values from \code{first},
or \code{last} gtable, or compute the \code{min} or \code{max} values.
Defaults to \code{max}.}
\item{z}{A numeric vector indicating the relative z values of each gtable.
The z values of each object in the resulting gtable will be modified
to fit this order. If \code{NULL}, then the z values of obects within
each gtable will not be modified.}
}
\value{
A gtable object
}
\description{
These functions are the parallels of the \code{matrix}/\code{data.frame} row and
column bindings. As such they work in the same way, except they have to take
care of additional attributes within the gtables. Most importantly it needs
to take care of the sizing of the final gtable, as the different gtables
going in may have different widths or heights. By default it tries to
calculate the maximum width/height among the supplied gtables, but other
options exists. Further, the relative layering of the grobs in each gtable
can be modified or left as-is.
}
\examples{
library(grid)
a <- rectGrob(gp = gpar(fill = "red"))
b <- circleGrob()
c <- linesGrob()
row <- matrix(list(a, b), nrow = 1)
col <- matrix(list(a, b), ncol = 1)
mat <- matrix(list(a, b, c, nullGrob()), nrow = 2)
row_gt <- gtable_matrix("demo", row, unit(c(1, 1), "null"), unit(1, "null"))
col_gt <- gtable_matrix("demo", col, unit(1, "null"), unit(c(1, 1), "null"))
mat_gt <- gtable_matrix("demo", mat, unit(c(1, 1), "null"), unit(c(1, 1), "null"))
# cbind
c_binded <- cbind(mat_gt, col_gt, size = "first")
plot(c_binded)
# rbind
r_binded <- rbind(mat_gt, row_gt, size = "last")
plot(r_binded)
# Dimensions must match along bind direction
try(cbind(mat_gt, row_gt))
}
|
