Estoy intentando obtener un pdf con los resultados del comando table aplicado a dos vectores.
Para ello utilizo knitr y el paquete xtable, aunque otras soluciones y consejos son bienvenidos, como por ejemplo con Kable.
Como ejemplo podemos crear la tabla a partir de estos datos.
table(c(2,5,5,5,5,7,7,7,7,NA),c(1,5,2,2,2,2,7,7,NA,NA))
Y me gustaría obtener algo así:
Como podéis ver el título del margin izquierdo, var1 está rotado 90º.
¿Cómo puedo conseguir ese resultado o algo parecido?
He probado varios métodos, como muestro en el código adjunto, incluido en un archivo Rnw.
\documentclass{article}
\usepackage{booktabs}
\usepackage{rotating}
\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)
print(xtable(table(var1,var2)))
print.xtableFtable(xtableFtable(ftable(var1,var2),
method = "row.compact"))
print.xtableFtable(xtableFtable(ftable(var1,var2),
method = "row.compact"), rotate.rownames = TRUE)
print.xtable(xtable(table(var1,var2)), include.rownames=T,include.colnames=T)
@
\end{document}
Y el resultado obtenido se muestra en las siguientes tres tablas.
Pero como podéis comprobar no se parece a lo que yo busco, no consigo girar sólo var1.