Add a table to the Figure

library(gplots);
png(filename = "exprs.png", width = 1024, height = 600)
colnames(tmp3) <- c("ORF", "Gene", "sch9/wt.d3", "ras2/wt.d3", "tor1/wt.d3",
"sch9sir2/wt.d3", "sch9sir2/sch9.d3", "CR 48/24", "CR/wt.24h",
"CR/wt.48h", "sir2/wt.logphase", "sir2/wt.d3", "sir2hmra/wt.d3")
textplot(tmp3, halign="left", valign="top", cex=0.7, show.rownames = FALSE,
show.colnames=TRUE, col.data = col.data3, cmar = 0.9, mar = c(0, 0, 0, 0) + 0.1);