R help - Jul 2012 - Table/Frame - output

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.

There are functions that allow for the "plotting" of text and R
objects that could be used to plot to a bitmap.  Look at the
'addtable2plot' function in the plotrix package and the textplot
function in the gplots package (look for alternative spellings if you
don't find them based on those exact spellings).  Also the
'capture.output' function may be helpful if you ever want to plot
something that is not already in the formats needed.

If you just want a single document that has both graphics and output
in it, then look at sweave or knitr as possible ways to combine them.

On Tue, Jul 17, 2012 at 1:11 PM, jcrosbie <james at 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 at 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.


-- 
Gregory (Greg) L. Snow Ph.D.
538280 at gmail.com

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