Using the booktabs package with Sweave and xtable
The xtable package in R can output R data as latex tables. Used in conjunction with Sweave it is possible to automatically generate tables in a report. Needless to say this provides a really appealing possibility of never typing data into a table again. The only problem is that I think the default latex tables don’t look that great. Enter booktabs…
The booktabs package in latex makes really nice tables, especially if there is math in your table that might run up against the regular \hline in the tabular environment.
Buried away in the xtable documentation are some options that make this possible. See the example below:
\usepackage{booktabs}
\begin{document}
\begin{table}[!h]
\centering
\caption{Check out my table.}
\label{tab:mytable}
<<mytable,echo=F,results=tex>>=
library(xtable)
mat <- as.data.frame(matrix(rnorm(25),nrow=5))
colnames(mat) <- c("$\\alpha$","$\\beta$",
"$\\gamma$","$\\delta$",
"$\\frac{\\epsilon}{2}$")
rownames(mat) <- c(‘A’,'B’,'C’,'D’,'E’)
mat <- xtable(mat,digits=rep(5,ncol(mat)+1))
print(mat,
sanitize.text.function = function(x){x},
floating=FALSE,
hline.after=NULL,
add.to.row=list(pos=list(-1,0, nrow(mat)),
command=c(‘\\toprule ‘,
‘\\midrule ‘,
‘\\bottomrule ‘)))
@
\end{table}
\end{document}
To compile, Sweave needs to be run on it. Running Sweave is an pre-processing step in the latex compilation process
$ pdflatex table.tex
and then check out your awesome new table that you didn’t type!
It will be nice if xtable can do this automatically.
That would be nice indeed. I may submit a patch for xtable to do this.
You can use a function like this:
print(xtable(x),
floating=F,
hline.after=NULL,
add.to.row=list(pos=list(-1,0, nrow(x)),
command=c(
’\\toprule ‘,
‘\\midrule ‘,
’\\bottomrule ‘)))
}
Very good, thanks!
Cameron
This is a nice example. But why doesn’t the caption argument for xtable work? I though the xtable function allowed captions and labels to be passed as arguments whiche were then used in building the table envirnment.
Cheers Ross
Rotated column names are possible as well. Something like
levels(factorWithLongLabels),
"\\end{sideways}")
and include the argument
Don’t forget to include
\usepackage{rotating}in the premable.Thanks for the tip!
The caption argument probably doesn’t work because of the
floating=FALSEargument. I like it this way because it gives me more control, but to works just fine to take out the table environment and the floating argument and use the caption option.The latest versions of xtable has support for booktabs built in. You can use
print.xtable([yourtable], booktabs=TRUE)
to produce them.