正如@cengstro所指出的，你的解决方案在kableExtra 1.3.4中不起作用。对我来说，通常的latex代码起作用，例如。

mtcars %>% 
  filter(mpg==21.0) %>%
  select(c(1:2)) %>%  
  kable(col.names=c("$m_{pg}$","$c_{yl}$")) %>%
  kable_styling(full_width = F)

• • 结果：**

编辑：如果你不想用斜体，你可以这样写：

mtcars %>% 
  filter(mpg==21.0) %>%
  select(c(1:2)) %>%  
  kable(col.names=c("$\\text{m}_{\\text{pg}}$","$\\text{c}_{\\text{yl}}$"), escape = F) %>%
  kable_styling(full_width = F)

减价表示法是^.^和~.~，用于写入上标和下标。

---
title: "R Notebook"
output:
  html_document
---

```{r}
library(kableExtra)
library(dplyr)

mtcars %>% 
  filter(mpg==21.0) %>%
  select(c(1:2)) %>%  
  kable("html", col.names=c("m~pg~","c~yl~")) %>%
  kable_styling()

输出如下所示：
![](https://i.stack.imgur.com/0zsIR.png)

为了完整起见，如果你想在PDF输出中这样做，你可以使用latex命令。

mtcars %>%
filter(mpg==21.0) %>%
select(c(1:2)) %>%
kable(col.names=c("m\textsubscript{pg}","c\textsubscript{yl}"), escape = FALSE) %>%
kable_styling()