Add padding around edges of table.

Add padding around edges of table.

gtable_add_padding(x, padding)

Arguments

x	a gtable() object
padding	vector of length 4: top, right, bottom, left. Normal recycling rules apply.

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))