This is a convenience function for adding an extra row and an extra column at each edge of the table.

gtable_add_padding(x, padding)

Arguments

x

a gtable() object

padding

vector of length 4: top, right, bottom, left. Normal recycling rules apply.

Value

A gtable object

See also

Examples

library(grid) gt <- gtable(unit(1, "null"), unit(1, "null")) gt <- gtable_add_grob(gt, rectGrob(gp = gpar(fill = "black")), 1, 1) plot(gt)
plot(cbind(gt, gt))
plot(rbind(gt, gt))
pad <- gtable_add_padding(gt, unit(1, "cm")) plot(pad)
plot(cbind(pad, pad))
plot(rbind(pad, pad))