On Nov 10, 2009, at 3:07 PM, soeren.vo...@eawag.ch wrote:
Quite often, I need those tables:
x <- sample(c("a", "b", "c"), 40, rep=T)
y <- sample(c("X", "Y"), 40, rep=T)
(tbl <- table(x, y))
(z <- as.factor(paste(as.vector(tbl), " (",
round(prop.table(as.vector(tbl)) * 100, 1), "%)", sep="")))
matrix(as.factor(z), nrow=3, dimnames=dimnames(tbl))
But the result looks ugly and is not copy&paste-able for LaTeX
verbatim or table environment, moreover, the "\"" is not what I want
in the printout. How to achieve:
y
x X Y
a 3 (7.5%) 7 (17.5%)
b 9 (22.5%) 5 (12.5%)
c 6 (15.0%) 10 (25.0%)
Thank you for help or hints.
In addition to my other thought:
> library(xtable)
> xtable(tbl)
% latex table generated in R 2.10.0 by xtable 1.5-5 package
% Tue Nov 10 15:44:14 2009
\begin{table}[ht]
\begin{center}
\begin{tabular}{rrr}
\hline
& X & Y \\
\hline
a & 6 & 10 \\
b & 12 & 4 \\
c & 3 & 5 \\
\hline
\end{tabular}
\end{center}
\end{table}
Sören
______________________________________________
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
Heritage Laboratories
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.
