Skip to main content
2 de 2
se añadieron 595 caracteres en el cuerpo
Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72

Lo más parecido a lo que buscas que pude conseguir es algo así:

introducir la descripción de la imagen aquí

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.

introducir la descripción de la imagen aquí

Patricio Moracho
  • 61.1k
  • 12
  • 42
  • 72