xtableと周波数のテーブルは、行ごとに印刷

Question

xtable周波数のテーブルの印刷方法は現在base::tableからわかりません。私は今、データフレームにそれをIに変換されないと、私は必要に応じてcolnamesを使って見出しを変更します。

今

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

、私が好きなものをすることでtable(dset)の実際の出力のように（この表の行方向を印刷します正面の見出し）。私はこのようなものを試しました

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

しかし、これは私が欲しかったものを正確に与えていませんでした。

Answer 1

これは、PDFに編成している場合は、これはかなり良いようです。 MS WordやHTMLに編み込んでいる場合は、のprint（dset.xtab、type = "html"）を指定してください。あなたは美しいものを美しいものとして見つけることはできません。

```{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) 

```