Lo más parecido a lo que buscas que pude conseguir es algo así:
Que se logra configurando directamente dos filas que haga las veces de cabecera de la tabla:
\documentclass{article}
\begin{document}
<<r table, results='asis', echo=FALSE>>=
library(knitr)
library(xtable)
var1 <- c(2,5,5,5,5,7,7,7,7,NA)
var2 <- c(1,5,2,2,2,2,7,7,NA,NA)
tbl <- table(var1, var2)
df_tbl <- as.data.frame(tbl)
vnames <- names(df_tbl)[1:2]
values <- as.character(unique(df_tbl[,2]))
d <- dim(tbl)
addtorow <- list()
addtorow$pos <- list(0, 0)
addtorow$command <- c(paste0("& \\multicolumn{", d[2], "}{c}{", vnames[2], "} \\\\\n"),
paste0(vnames[1], " & ", paste(values, collapse = " & "), "\\\\\n"))
print(xtable(tbl), add.to.row = addtorow, include.colnames = FALSE)
@
\end{document}
La idea es que print.xtable()
agregue mediante el parámetro add.to.row
unas filas dónde le digamos (list(0, 0)
). De esta forma podremos escribir el comando latex directamente, que en este ejemplo se calcula dinámicamente de la propia tabla y quedaría así:
> addtorow$command
[1] "& \\multicolumn{4}{c}{var2} \\\\\n"
[2] "var1 & 1 & 2 & 5 & 7\\\\\n"
Se podría eventualmente girara Var1
de la siguiente forma:
addtorow$command <- c(paste0("\\rotatebox{90}{", vnames[1], " } & \\multicolumn{", d[2], "}{c}{", vnames[2], "} \\\\\n"),
paste0( " & ", paste(values, collapse = " & "), "\\\\\n"))
print(xtable(tbl), add.to.row = addtorow, include.colnames = FALSE)
Encerramos el nombre de la variable en un comando latex \\rotatebox{90}{..}
, no queda del todo elegante pero sin duda es más claro.