R 在面板上添加分隔总计的行

给出下面的例子

library(pander)
table <- Titanic[1, 1, , ]
tableWithMargins <- addmargins(table)
pander(tableWithMargins)

----------------------------
  &nbsp;     No   Yes   Sum 
----------- ---- ----- -----
 **Child**   0     5     5  

 **Adult**  118   57    175 

  **Sum**   118   62    180 
----------------------------

---

我该怎么做？我读过

？panderOptions

和

？pandoc.table

，但我找到的唯一东西是

table.style

/

style

参数，但将其设置为简单的多行，grid或rmarkdown可以执行不同的操作。

这将在使用pandoc编译后从表中排除最后一行…所需的表格式在中无效。您首选的输出文件是什么？如果是HTML，你可以用CSS/JS来实现。@daroczig，我正在创建一个PDF报告。因此，我可能需要使用

xtable

而不是

pander

，或者你能想到其他东西吗？@WaldirLeoncio如果这是你唯一需要的输出格式，那么最好还是坚持使用LaTeX——与markdown相比，它提供了更多的选项来微调你的文档。

----------------------------
        No   Yes   Sum 
----------- ---- ----- -----
 **Child**   0     5     5  

 **Adult**  118   57    175 
----------------------------
  **Sum**   118   62    180 
----------------------------