xtable(knitr)을 사용하여 굵은 열 머리글 만들기

Question

이상적으로는 print.xtable 명령에서 xtable 호출의 출력을 사용하여 모든 열 머리글을 굵게 표시하는 가장 쉬운 방법은 무엇입니까? 저는 니트를 사용하고 있어요.

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}