Печать частотной таблицы коэффициента с помощью kable в rmarkdown

Question

У меня есть фактор в R, который состоит из уровней a, b и c. Данные состоят из 2 a, одного b и no c. Я хочу, чтобы получить выходной сигнал, как этот (частота элементов по уровням):

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

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

Это должно быть напечатано с knitr/Kable в хорошем HTML таблице:

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" 

Есть ли возможность «восстановить» dimnames для kable? Я просто хочу напечатать этот «простой» стол - может быть, я застрял с чем-то легким?

Использование «стол» с факторами описано здесь: http://www.stat.berkeley.edu/~s133/factors.html

Я много читал о «pander'-пакета в последние дни. Если я распечатаю таблицу с помощью pander, она будет работать. Зачем? Должен ли я просто переключиться на pander?

pander(tbl) 

Answer 1

Вы можете попробовать

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