Question

xtable目前还不知道如何打印base::table的频率表。我现在做的是将其转换为数据帧，然后根据需要使用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 =＆＃34; html＆＃34;）你可能找不到那些美观。< / p>

```{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和频率表，按行打印

1 个答案: