tableGrob

Description

create a list of text and fill grobs and calculates the sizes for a table display

Usage

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
tableGrob(d, rows=rownames(d), cols=colnames(d),
    parse=FALSE, show.rownames=TRUE, show.colnames=TRUE,
    row.just="center", col.just="center",
    core.just="center", separator="white", show.box=FALSE,
    show.vlines=FALSE, show.hlines=FALSE,
    show.namesep=FALSE, show.csep=FALSE, show.rsep=FALSE,
    equal.width=FALSE, equal.height=FALSE,
    padding.h=unit(4, "mm"), padding.v=unit(4, "mm"), gp,
    gpar.coretext=gpar(col = "black", cex = 1),
    gpar.coltext=gpar(col = "black", cex = 1, fontface =
    "bold"), gpar.rowtext=gpar(col = "black", cex = 0.8,
    fontface = "italic"), h.odd.alpha=1, h.even.alpha=1,
    v.odd.alpha=1, v.even.alpha=1, gpar.corefill=gpar(fill
    = "grey95", col = "white"), gpar.rowfill=gpar(fill =
    "grey90", col = "white"), gpar.colfill=gpar(fill =
    "grey90", col = "white"), theme, ...)

Arguments

d

data.frame

rows

vector of row names

cols

vector of col names

parse

logical, parse labels as expressions

row.just

justification of labels

col.just

justification of labels

core.just

justification of labels

separator

colour of the border lines

show.box

logical box surrounding the table

show.vlines

logical vertical lines

show.hlines

logical horizontal lines

show.namesep

logical draw lines to separate header(s)

show.csep

logical extend vert. separator to colnames

show.rsep

logical extend vert. separator to rownames

equal.width

logical

equal.height

logical

padding.h

unit of horizontal margin, per cell

padding.v

unit of vertical margin, per cell

gpar.coretext

gpar() for inner text

gpar.corefill

gpar() for inner fill

gpar.coltext

gpar() for colnames text

h.odd.alpha

numeric transparency factor for odd horizontal cells

h.even.alpha

numeric transparency factor for even horizontal cells

v.odd.alpha

numeric transparency factor for odd vertical cells

v.even.alpha

numeric transparency factor for even vertical cells

gpar.colfill

gpar() for colnames fill

gpar.rowtext

gpar() for rownames text

gpar.rowfill

gpar() for rownames fill

show.rownames

logical

show.colnames

logical

gp

gpar

theme

theme (list of aesthetic elements)

...

passed to grob

Value

a grob of class table

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
grid.table(head(iris), h.even.alpha=1, h.odd.alpha=1,  v.even.alpha=0.5, v.odd.alpha=1)
grid.newpage()
grid.draw(tableGrob(head(iris, 10), name="test"))
e = expression(alpha,"testing very large width", hat(beta), integral(f(x)*dx, a, b), "abc") 
grid.edit("test", cols=e, show.rownames=FALSE, rows=NULL,
gpar.corefill = gpar(fill="white", col=NA),
grep=TRUE, global=TRUE)
grid.newpage()
grid.draw(tableGrob(head(iris, 10),
show.csep=TRUE, show.rsep=TRUE, show.box=TRUE, separator="grey", name="test"))
grid.edit("test",gp=gpar(fontsize=8, lwd=2),  equal.width=TRUE, grep=TRUE, global=TRUE)
# visualize themes
lg <- lapply(c("theme.blank", "theme.default", "theme.white",  "theme.vertical",  "theme.list", "theme.black"),
function(x) tableGrob(head(iris[, 1:3]), theme=get(x)()))
grid.newpage()
do.call(grid.arrange, lg)
## Not run: 
## timing: a bit slow due to repeated on-the-fly calculations 
pdf("test2.pdf", height=50)
print(system.time( grid.table(iris)) ) # about 12s here
dev.off()

## End(Not run)