r - 如何从 kable() 为表中的名称添加下标？

Question

给定一个 data.frame A，我如何使用带下标的行和列名称？最终我想通过rmarkdown中的kable()生成一个表格(输出:word文档)。

A <- data.frame(round(replicate(3, runif(2)),2))
rownames(A) <- c("Hola123", "Hola234")
A

          X1   X2   X3
Hola123 0.47 0.55 0.66
Hola234 0.89 0.45 0.20

通过 kable(A) 创建表格时，如何使行和列名称中的所有数字都带有下标？

我已经尝试过:

rownames(A) <- c(expression(Hola["123"]), expression(Hola["234"]))
names(A) <- c(expression(X["1"]), expression(X["2"]), expression(X["3"]))

但在.rmd文件中通过kable()创建表时，不会出现下标。

Answer 1

要在 rmarkdown 文档中添加下标，您可以将文本嵌入两个波形符之间:text~sub~。当使用函数kable时，表格中的任何文本都会被识别为markdown语法。这样你的 rmarkdown 代码应该是:

```{r}
A <- data.frame(round(replicate(3, runif(2)),2))
rownames(A) <- c("Hola~123~", "Hola~234~")
names(A) <- c("X~1~", "X~2~", "X~3~")
knitr::kable(A)
```