[R] How to latex tables?

[Marc Schwartz]

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}




HTH,

Marc Schwartz