如何使用数学模式自动重命名列？

Question

考虑这个简单的例子

---
title: "Untitled"
output:
  pdf_document: default
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
options(knitr.table.format = "latex")
```
## Slide with R Output
```{r , echo = FALSE ,warning = FALSE}

library(knitr)
library(kableExtra)
library(dplyr)

  cars %>% 
    filter(dist < 5) %>%
     kable('latex',  booktabs = T, escape = F, col.names = c( "$\\alpha$"  , "$\\beta$" ) ) %>%
    kable_styling(latex_options = c("striped", "hold_position"),
                full_width = T)

```

现在，它可以正确生成以下输出

问题在于，col.names中的重命名是手动的，并且在我的数据框具有许多列时非常繁琐。

我希望能够说“如果您在数据框中看到此变量dist，然后将其映射到$ \ alpha $。否则保留原样。

这怎么办？ 注意，我正在使用rmarkdown::render()渲染文件 谢谢！