Erstellen fettgedruckter Spaltenüberschriften mit xtable (knitr)

Question

Was ist der einfachste Weg, alle Spaltenüberschriften mithilfe der Ausgabe des Aufrufs von xtable fett zu formatieren, idealerweise mit dem Befehl print.xtable? Ich verwende knitr.

Answer 1

\documentclass[a5paper]{article}
\usepackage{booktabs,colortbl,xcolor}
\begin{document}

A simple raw \texttt{xtable}: 

<<before,results='asis',echo=F>>=
library(xtable)
df <- data.frame(
  One=c(101.000,22.345),
  Two=c(3.45,74.34),
  Three=c(65,6.1234))
print(xtable(df))
@

The same table with some formatting:

<<after,results='asis', echo=F>>=
bold <- function(x) {paste('{\\textbf{',x,'}}', sep ='')}
gray <- function(x) {paste('{\\textcolor{gray}{',x,'}}', sep ='')}
print(xtable(df,digits=0), 
      sanitize.rownames.function=gray, 
      sanitize.colnames.function=bold, 
      booktabs=T)
@
\end{document}