Rmarkdown中的双向频率表

我可以用什么方法在Rmarkdown中构建双向频率表？ 比如：

我尝试使用knitr包中的kable函数和DT包中的datable函数，但都没有得到预期的结果

更新： 可复制代码与示例

a <- sample(x = c(1,2,3), size = 1000, replace = T)
b <- sample(x = c('a', 'b', 'c'), size = 1000, replace = T)

df <- data.frame(vertical_title = a, horitzontal_title = b)

table(df)

              horitzontal_title
vertical_title   a   b   c
             1 118  98 106
             2 106  95 121
             3 128 114 114

---

a您可以按如下方式构建表格：

---
title: Example 1
output: pdf_document
---

### This is a test

```{r,results='asis',echo=FALSE}

library(xtable)
a <- sample(x = c(1,2,3), size = 1000, replace = T)
b <- sample(x = c('a', 'b', 'c'), size = 1000, replace = T)

df <- data.frame(vertical_title = a, horitzontal_title = b)
df <- as.data.frame.matrix(table(df)) 


print(xtable(df,
            align = "|l|rrr|",
            caption = "Test"),
      caption.placement = 'top',
      comment = F,
      scalebox=1,
      include.rownames = T,
      hline.after = c(-1,0,nrow(df)),
      vline.after = c(1),
      format.args=list(big.mark = ",", decimal.mark = "."))


```

---
标题：示例1
输出：pdf\U文件
---
###这是一个测试
```{r，results='asis'，echo=FALSE}
图书馆（xtable）
a你的问题很难像这样回答。有关如何提供可复制示例的提示，请参见。好的观点Florian，我有点赶时间。我添加了一个可复制的示例。