Замена COLNAMES на столе 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.

Answer 1

Вы не можете дать имя этого столбца, хотя это действительно интересная идея. Пожалуйста, не стесняйтесь 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 
--------------------------