Hi.

You should check function addtable2plot from plotrix package.

Also, here is an example of modified addtable2plot function that I
sometimes use.
This function is probably to far from perfect but, maybe, it will give you
some ideas how to solve your problem:

t2p <- function(x=par("usr")[1],y= par("usr")[4],
                table, cex=par("cex"), bg=par("bg"), text.col=par("fg"))
{
plot(1,type="n", axes=F, xlab="", ylab="")
column.names<-colnames(table)
mwidth<-strwidth("M",cex=cex)
cellwidth <- max(strwidth(c(column.names,
             as.vector(unlist(table))),cex=cex))+mwidth
cellheight <- max(strheight(c(column.names,as.vector(unlist(table))),
              cex=cex))*1.5
tabdim<-dim(table)

xleft <- x
ytop <- y

for(row in 1:tabdim[1])
 {
for(column in 1:tabdim[2])
   {
if(row==1) par(font=4) else
par(font=1)
   rect(xleft+(column-0.9)*cellwidth,
        ytop-(row-0.9)*cellheight,
        xleft+(column)*cellwidth,
        ytop-row*cellheight,
        col=bg[row,column],border=NA)
   text(xleft+(column-0.45)*cellwidth,
        ytop-(row-0.45)*cellheight,
        table[row,column],cex=cex,col=text.col)
    }
 }
}
DF <- data.frame(x1=1:5, x2=5:1, x3=rep(1,5), x4=rep(5,5))
DF1 <- rbind(names(DF), DF)
mat <-  matrix(NA,ncol=ncol(DF), nrow=nrow(DF1)+1)
mat[1,] <- "lightblue"
mat[seq(2,nrow(mat),2), ] <- "gray"
mat[seq(3,nrow(mat),2), ] <- "white"

t2p(table=DF1, bg=mat)
t2p(table=DF1, bg=mat, x=0.7, y=1.2)

As you can see t2p function has some arguments that you can play with in
order to get better formatted table.
After plotting a table you can save it as bitmap.

I hope this helps.

Andrija



On Tue, Jul 17, 2012 at 9:11 PM, jcrosbie <james@crosb.ie> wrote:

> I would like to output a nicely formatted data frame to a bitmap.
>
> Is this possible in R?
>
> --
> View this message in context:
> http://r.789695.n4.nabble.com/Table-Frame-output-tp4636790.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>

	[[alternative HTML version deleted]]

