替换 Pandoc 表格中的列名

Question

考虑下面的示例：

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 
----------------------------

我希望将 替换为"年龄"。但是，

colnames(tableWithMargins) <- c("Age", "No", "Yes", "Sum")

由于length（colnames（tableWithMargins））等于3，因此会产生错误。

- Waldir Leoncio

---

这个值似乎是硬编码在 pander:::pandoc.table.return 函数中进行格式化的地方。除非我漏看了什么，否则看起来很难替换。 - MrFlick

Answer 1

虽然这确实是一个有趣的想法，但您无法给该列命名。请随时在GH上创建一个工单。在此之前，您可以应用以下hack：

> tableWithNoRowNames <- cbind(data.frame(Age = rownames(tableWithMargins), tableWithMargins))
> rownames(tableWithNoRowNames) <- NULL
> emphasize.strong.cols(1)
> pander(tableWithNoRowNames)

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

**Adult** 118   57    175 

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

- daroczig