xtable: custom row.names, move caption to top

UPDATE:
Now including the LaTeX math formatting

saxtab <- t( as.data.frame( addmargins( Saxony ) ) )
rownames( saxtab ) <- c( "Males ($k$)", "Families ($n_k$)" )
saxtab <- xtable( saxtab, digits = 0,
      caption = "Number of male children in 6115 Saxony families of size 12",
      align = "l|rrrrrrrrrrrrrr" )
print( saxtab, caption.placement = "top", include.colnames = FALSE,
      hline.after = c( NULL, 0, nrow( saxtab ) ),
      sanitize.text.function = function(x) { x } )

% latex table generated in R 3.0.2 by xtable 1.7-1 package
% Wed Nov 27 18:16:47 2013
\begin{table}[ht]
\centering
\caption{Number of male children in 6115 Saxony families of size 12}
\begin{tabular}{l|rrrrrrrrrrrrrr}
    \hline
Males ($k$) & 0 & 1 & 2 & 3 & 4 & 5 & 6 & 7 & 8 & 9 & 10 & 11 & 12 & Sum \\
   Families ($n_k$) &    3 &   24 &  104 &  286 &  670 & 1033 & 1343 & 1112 &  829 &  478 &  181 &   45 &    7 & 6115 \\
    \hline
\end{tabular}
\end{table}




On Wednesday 27 November 2013 17:43:30 Rainer Schuermann wrote:

You get the cation to the top of the table with
print( saxtab, caption.placement = "top" )

Formatting the table the way you want can be done like this - I did not manage to carry the LaTeX math formatting for the row names over ($k$ and $n_k$)but the rest should be very much what you want:

saxtab <- t( as.data.frame( addmargins( Saxony ) ) )
rownames( saxtab ) <- c( "Males (k)", "Families (n_k)" )
saxtab <- xtable( saxtab, digits = 0,
      caption = "Number of male children in 6115 Saxony families of size 12",
      align = "l|rrrrrrrrrrrrrr" )
print( saxtab, caption.placement = "top", include.colnames = FALSE,
      hline.after = c( NULL, 0, nrow( saxtab ) ) )


% latex table generated in R 3.0.2 by xtable 1.7-1 package
% Wed Nov 27 17:41:17 2013
\begin{table}[ht]
\centering
\caption{Number of male children in 6115 Saxony families of size 12}
\begin{tabular}{l|rrrrrrrrrrrrrr}
    \hline
Males (k) & 0 & 1 & 2 & 3 & 4 & 5 & 6 & 7 & 8 & 9 & 10 & 11 & 12 & Sum \\
   Families (n\_k) &    3 &   24 &  104 &  286 &  670 & 1033 & 1343 & 1112 &  829 &  478 &  181 &   45 &    7 & 6115 \\
    \hline
\end{tabular}
\end{table}




On Wednesday 27 November 2013 09:24:22 Michael Friendly wrote:

With xtable, I'm producing one-way tables from table objects in
horizontal form as shown below.
I'd like to change the labels used for the rows and move the caption to
the top of the table,
as is typically standard for tables.  I can hand-edit, but would prefer
to do it in code.

data(Saxony, package="vcd")
library(xtable)
saxtab <- xtable(t(addmargins(Saxony)), digits=0,
      caption="Number of male children in 6115 Saxony families of size 12")

print(saxtab)

  > print(saxtab)

% latex table generated in R 3.0.1 by xtable 1.7-1 package
% Wed Nov 27 09:12:16 2013
\begin{table}[ht]
\centering
\begin{tabular}{rrrrrrrrrrrrrrr}
    \hline
   & 0 & 1 & 2 & 3 & 4 & 5 & 6 & 7 & 8 & 9 & 10 & 11 & 12 & Sum \\
    \hline
1 & 3 & 24 & 104 & 286 & 670 & 1033 & 1343 & 1112 & 829 & 478 & 181 & 45
& 7 & 6115 \\
     \hline
\end{tabular}
\caption{Number of male children in 6115 Saxony families of size 12}
\end{table}

  >

The desired form looks like this, with row.names = c("Males ($k$)",
"Families ($n_k$)")

% latex table generated in R 3.0.1 by xtable 1.7-1 package
% Tue Nov 26 14:56:02 2013
\begin{table}[ht]
\caption{Number of male children in 6115 Saxony families of size 12}
\label{tab:saxtab}
\centering
\begin{tabular}{l|rrrrrrrrrrrrrr}
    \hline
Males ($k$) & 0 & 1 & 2 & 3 & 4 & 5 & 6 & 7 & 8 & 9 & 10 & 11 & 12 & Sum \\
    \hline
Families ($n_k$) & 3 & 24 & 104 & 286 & 670 & 1033 & 1343 & 1112 & 829 &
478 & 181 & 45 & 7 & 6115 \\
     \hline
\end{tabular}
\end{table}