r xtable 和 table 的频率，按行打印

Question

xtable 目前不知道如何从 base::table 打印 tables 频率。我现在要做的是将其转换为数据框，然后根据需要使用 colnames 更改标题：

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

现在，我想要按行打印此 table（就像 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)

```

r xtable 和 table 的频率，按行打印

r xtable and table of frequencies, printing rowwise

r

row

xtable