Ich möchte schöne Kreuztabellen drucken, entweder in einer PDF-Datei oder in einer HTML-Datei aus RStudio, mit R, Markdown und Knitr. Ich vermute, ich vermisse etwas wirklich Offensichtliches, weil ich nicht glauben kann, dass das so schwer ist. Ich mache Kreuztabellen mit entweder xtabs oder ftable.

Was ich möchte, ist so etwas wie eine schön gedruckte Version der R-Konsolenausgabe.

> x
   Col
Row  A  B  C
  D 15  9  7
  E 13 14  9
  F  8  8 17
> f
    Col  A  B  C
Row             
D       15  9  7
E       13 14  9
F        8  8 17

Ich habe verschiedene Lösungen ausprobiert, von denen keine wirklich funktioniert und die in der angehängten RMD-Datei aufgeführt sind. (Ich habe versucht, PDF- und HTML-Ausgaben.)

---
title: "trial"
author: "Anthony Staines"
date: "26/08/2014"
output: html_document
---
# Make the data
```{r, echo=TRUE,results='asis',message=FALSE}
library(knitr)
library(memisc)
library(xtable)
library(stargazer)
library(texreg)

set.seed(893)
Col <- sample(c('A','B','C'),100,replace=TRUE)
Row <- sample(c('D','E','F'),100,replace=TRUE)
```

```{r, echo=TRUE,results='asis',message=FALSE}
x <- xtabs(~Row+Col)
x
kable(x)
kable(x,format='html')
kable(x,format='html',output = TRUE)
xx <- xtable(format(x))
print(xx,type='html')
stargazer(x)

f <-ftable(Row,Col)
f
kable(f,format='html')
kable(f,format='html',output = TRUE)
xf <- xtable(format(f))
print(xf,type='html')
stargazer(f)
```

kable kommt am nächsten, scheint aber keine Zeilen- oder Spaltennamen zu unterstützen. Beides ist für mich von wesentlicher Bedeutung:

|   |  A|  B|  C|
|:--|--:|--:|--:|
|D  | 15|  9|  7|
|E  | 13| 14|  9|
|F  |  8|  8| 17|

Hilfe geschätzt, und ich entschuldige mich, wenn dies eine wirklich dumme Frage mit einer offensichtlichen und bekannten Antwort ist!

Anthony Staines