r xtable und frequenztabelle, reihenweise drucken

Question

xtable weiß im Moment nicht, wie man Tabellen von Frequenzen aus base::table druckt. Was ich jetzt tun ist, ich es zu einem Datenrahmen konvertieren und dann ändere ich die Überschriften mit colnames nach Bedarf:

dset <- data.frame(rpois(100, 1)) 
dset.print <- as.data.frame(table(dset)) 
colnames(dset.print) <- c("smth", "freq") 
xtable(dset.print) 

Nun, was Ich mag würde, ist diese Tabelle zeilenweise drucken (wie die tatsächliche Ausgabe von table(dset) mit die Überschriften an der Vorderseite). Ich habe so etwas versucht

dset.print <- t(as.matrix(table(dset))) 
dset.print <- cbind(c("smth", "freq"), as.data.frame(dset.print)) 

Aber das gab nicht genau das, was ich wollte.

Answer 1

Das sieht ziemlich gut aus, wenn Sie nach PDF stricken. Wenn Sie zu MS Word oder HTML stricken, spezifizieren Sie print (dset.xtab, type = "html") Sie können die Ästhetik von diesen als nett nicht finden.

```{r xtable, echo=FALSE, message=FALSE, warning=FALSE, results='asis'} 
library(xtable) 

dset <- data.frame(rpois(100, 1)) 

dset.print <- as.data.frame(table(dset)) 
dset.print <- rbind.data.frame(as.character(dset.print[,1]), dset.print[,2]) 
names(dset.print) <- rep('', ncol(dset.print)) 
rownames(dset.print) <- c('smth', 'freq') 

dset.xtab <- xtable(dset.print) 

print(dset.xtab) 

```