Re: [R] How to latex tables?

From: Marc Schwartz <marc_schwartz_at_comcast.net>
Date: Sat, 05 May 2007 12:14:16 -0500

On Sat, 2007-05-05 at 11:35 -0500, Marc Schwartz wrote:
> On Sat, 2007-05-05 at 09:43 -0400, steve wrote:
> > Suppose I have a table constructed from structable or simply just an
> > object of class table. How can I convert it to a latex object? I looked
> > in RSiteSearch, but only found info about matrices or data frames.
> >
> > Steve
> >
> >
> > For example, here is a table t2
> >
> > > str(t2)
> > table [1:2, 1:2, 1:2] 6 8 594 592 57 ...
> > - attr(*, "dimnames")=List of 3
> > ..$ Hospital : chr [1:2] "A" "B"
> > ..$ Survival : chr [1:2] "Died" "Survived"
> > ..$ Condition: chr [1:2] "Good" "Poor"
> >
> > Here's what happens with latex(t2):
> >
> > latex(t2)
> > Error in x[, j] : incorrect number of dimensions
> >
> > Next, here's what happens with a structtable.
> >
> > > tab=structable(Hospital ~ Condition + Survival, data=t2)
> > > tab
> > Hospital A B
> > Condition Survival
> > Good Died 6 8
> > Survived 594 592
> > Poor Died 57 8
> > Survived 1443 192
> >
> > If I use latex(tab) I get
> >
> > Error in dimnames(cx) <- list(rnam, nam) :
> > length of 'dimnames' [1] not equal to array extent
> > In addition: Warning messages: ...(deleted)...
>
>
> You are trying to apply the latex() function to a 3 dimensional table. I
> don't know that any of the generally available R functions to generate
> LaTeX markup (eg. latex() or xtable()) have methods that support 3D
> tables.
>
> You could either generate multiple 2D tables and convert each separately
> or write your own function to generate the LaTeX markup in a format that
> you find suitable for your application.
>
> One other possible option, which would still require some tweaking
> depending upon your need, would be to use ftable() to format and convert
> the 3D table to a 2D table and latex() that. For example, using the
> UCBAdmissions dataset:
>
> > str(UCBAdmissions)
> table [1:2, 1:2, 1:6] 512 313 89 19 353 207 17 8 120 205 ...
> - attr(*, "dimnames")=List of 3
> ..$ Admit : chr [1:2] "Admitted" "Rejected"
> ..$ Gender: chr [1:2] "Male" "Female"
> ..$ Dept : chr [1:6] "A" "B" "C" "D" ...
>
>
> > ftable(UCBAdmissions)
> Dept A B C D E F
> Admit Gender
> Admitted Male 512 353 120 138 53 22
> Female 89 17 202 131 94 24
> Rejected Male 313 207 205 279 138 351
> Female 19 8 391 244 299 317
>
>
> > library(Hmisc)
>
> > latex(ftable(UCBAdmissions), file = "")
> % latex.default(ftable(UCBAdmissions), file = "")
> %
> \begin{table}[!tbp]
> \begin{center}
> \begin{tabular}{rrrrrr}\hline\hline
> \multicolumn{1}{c}{}&
> \multicolumn{1}{c}{}&
> \multicolumn{1}{c}{}&
> \multicolumn{1}{c}{}&
> \multicolumn{1}{c}{}&
> \multicolumn{1}{c}{}
> \\ \hline
> $512$&$353$&$120$&$138$&$ 53$&$ 22$\\
> $ 89$&$ 17$&$202$&$131$&$ 94$&$ 24$\\
> $313$&$207$&$205$&$279$&$138$&$351$\\
> $ 19$&$ 8$&$391$&$244$&$299$&$317$\\
> \hline
> \end{tabular}
>
> \end{center}

>
> \end{table}

Steve,

I located a couple of posts by David Whiting regarding converting an ftable() object to LaTeX that you might find helpful:

  http://tolstoy.newcastle.edu.au/R/help/05/08/11245.html

  http://tolstoy.newcastle.edu.au/R/help/05/08/11251.html

HTH, Marc



R-help_at_stat.math.ethz.ch 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. Received on Sat 05 May 2007 - 17:19:34 GMT

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.2.0, at Sat 05 May 2007 - 19:31:38 GMT.

Mailing list information is available at https://stat.ethz.ch/mailman/listinfo/r-help. Please read the posting guide before posting to the list.