替换 pandoc 表上的列名

鉴于以下示例

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。

最佳答案

您不能为该列命名，尽管它确实是一个有趣的想法。请随时 create a ticket on GH 。在此之前，您可以应用以下技巧:

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

关于替换 pandoc 表上的列名，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/30538788/