在rmarkdown中使用kable打印因子的頻率表

Question

我在R中有一個因子，它由a，b和c級組成。 數據由2個a，1個b和無c組成。 我想獲得這樣的輸出（根據級別的元素的頻率）：

fac <- factor(c("a", "b", "a"), levels=c("a", "b", "c"))
tbl <- table(fac)
tbl

## fac
## a b c 
## 2 1 0

這應該在一個漂亮的html表格中用knitr / kable打印：

library(knitr)
kable(tbl)

但是這里出現了錯誤：

"Error in dn[[2L]] : subscript out of bounds".

我假設表的dimnames存在問題：

attributes(tbl)
## $dim
## [1] 3
## 
## $dimnames
## $dimnames$fac
## [1] "a" "b" "c"
## 
## 
## $class
## [1] "table"

有沒有選擇“修復”kable的dimnames？ 我只是想打印這個“簡單”的表 - 也許我被困在一些簡單的東西？

這里描述了使用“表格”的因素： http ： //www.stat.berkeley.edu/~s133/factors.html

最近幾天我讀了很多關於'pander'包的內容。 如果我用平移器打印表，它可以工作。 為什么？ 我應該切換到迎合？

pander(tbl)

Answer 1

你可以試試

> kable(t(as.matrix(tbl)))
#
#|  a|  b|  c|
#|--:|--:|--:|
#|  2|  1|  0|