Заменить имена столбцов в kable / R markdown

Мой фрейм данных имеет уродливые имена столбцов, но при отображении таблицы в моем отчете я хочу использовать их «настоящие» имена, включая специальные символы '(', новые строки, греческие буквы, повторяющиеся имена и т. д.

Есть ли простой способ заменить имена в knitr, чтобы разрешить такое форматирование?

Предложенное решение

Что я пытался сделать, так это подавить печать имен фреймов данных и использовать add_header_above для лучших имен и имен, охватывающих несколько столбцов. Некоторые советы, которые я видел, говорят о том, чтобы использовать:

x <- kable(df)
gsub("<thead>.*</thead>", "", x) 

чтобы удалить имена столбцов. Это нормально, но проблема в том, что когда я впоследствии add_header_above, возвращаются исходные имена столбцов. Если я использую col.names=rep('',times=ncol(d.df)) в kable(...), имена исчезают, но строка остается, оставляя промежуток между моими новыми именами столбцов и телом таблицы. Вот фрагмент кода для иллюстрации:

```{r functions,echo=T}
drawTable <- function(d.df,caption='Given',hdr.above){
require(knitr)
require(kableExtra)
require(dplyr)

hdr.2 <- rep(c('Value','Rank'),times=ncol(d.df)/2)
x <- knitr::kable(d.df,format='latex',align='c',
  col.names=rep('',times=ncol(d.df))) %>%     
kable_styling(bootstrap_options=c('striped','hover',
  'condensed','responsive'),position='center',
   font_size = 9,full_width=F)

x %>% add_header_above(hdr.2) %>%
  add_header_above(hdr.above)
}
```

```{r}
df <- data.frame(A=c(1,2),B=c(4,2),C=c(3,4),D=c(8,7))
hdr.above <- c('A2','B2','C2','D2')
drawTable(df,hdr.above = hdr.above)
```