On Dec 2, 2010, at 3:47 PM, Michael Friendly wrote:
I'm looking for an R method to produce latex versions of tables for
table/array objects of 3 or more dimensions,
which, of necessity is flattened to a 2D display, for example with
ftable(), or vcd::structable, as shown below.
I'd be happy to settle for a flexible solution for the 3D case.
> UCB <- aperm(UCBAdmissions, c(2, 1, 3))
> ftable(UCB)
Dept A B C D E F
Gender Admit
Male Admitted 512 353 120 138 53 22
Rejected 313 207 205 279 138 351
Female Admitted 89 17 202 131 94 24
Rejected 19 8 391 244 299 317
> structable(Dept ~ Admit+Gender, 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
?latex # yes I know you are aware of this but it seemed as though you hadn't read its help page.
# Attached is the output on my device from the following command: latexVerbatim( ftable(UCB)) # (OK, so I can't speell.) -- David.
verbatiom.pdf
Description: Adobe PDF document
I tried using the xtable package but discovered that xtable.table is silently wrong for tables of length(dim(x))>2. E.g., for a 2 x 2 x 6 table, we get only UCBAdmissions[,,1]> xtable(UCBAdmissions) % latex table generated in R 2.11.1 by xtable 1.5-6 package % Tue Nov 16 13:23:44 2010 \begin{table}[ht] \begin{center} \begin{tabular}{rrr} \hline & Male & Female \\ \hline Admitted & 512.00 & 89.00 \\ Rejected & 313.00 & 19.00 \\ \hline \end{tabular} \end{center} \end{table} >The author of xtable tells me that only 2-way tables are presently implemented, and, while I would normally look to Hmisc for all things LaTeX, I don't find anything useful there:> library(Hmisc) > methods("latex") [1] latex.bystats latex.bystats2 [3] latex.default latex.describe [5] latex.describe.single latex.function [7] latex.list latex.responseSummary [9] latex.summary.formula.cross latex.summary.formula.response [11] latex.summary.formula.reverse > latex(UCB) Error in x[, j] : incorrect number of dimensions > traceback()3: format.df(object, dcolumn = dcolumn, na.blank = na.blank, numeric.dollar = numeric.dollar, cdot = cdot, math.row.names = math.row.names, math.col.names = math.col.names,double.slash = double.slash, ...) 2: latex.default(UCB) 1: latex(UCB) -- Michael Friendly Email: friendly AT yorku DOT ca Professor, Psychology Dept. York University Voice: 416 736-5115 x66249 Fax: 416 736-5814 4700 Keele Street Web: http://www.datavis.ca Toronto, ONT M3J 1P3 CANADA ______________________________________________ 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.
David Winsemius, MD West Hartford, CT
______________________________________________ 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.
