如何在Rmarkdown PDF中交叉引用列表中的kable表格？

问题现象 #

使用bookdown::pdf_document2生成PDF时，直接在代码块内生成的kable表格能正常实现交叉引用，但将kable对象存入列表后再调用输出，表格标题显示正常，交叉引用却完全失效。实际场景中该列表由本地自定义包的函数生成。

问题原因 #

bookdown的交叉引用机制依赖代码块标签（tab:xxx）与表格锚点的绑定。当kable对象被存入列表后再输出，原代码块的标签无法被bookdown正确关联到表格的LaTeX锚点上，导致交叉引用找不到目标。

解决方案 #

方案1：生成kable时手动指定label #

在调用kbl()生成表格时，直接通过label参数指定交叉引用的标签，替代依赖代码块标签的方式：

```{r dw, include=FALSE}
library(kableExtra)

ls_eg <- vector("list")
ls_eg$df1 <- mtcars[1:5, c("mpg", "cyl")]

# 生成kable时手动指定label
ls_eg$kbl <- 
  ls_eg$df1 |>
  kbl(booktabs = TRUE,
      caption = "Kable as a list element",
      label = "kbl-as-list-element") |>  # 新增label参数
  kable_styling(latex_options = "HOLD_position")

Include Table in body of report #

See table @ref(tab:kbl-as-list-element) now works correctly.

ls_eg$kbl

### 方案2：用`knit_print()`包裹列表内的kable对象
在输出列表中的kable时，使用`knit_print()`触发bookdown的交叉引用处理逻辑，重新绑定代码块标签与表格锚点：
```r
```{r dw, include=FALSE}
library(kableExtra)
library(knitr)  # 加载knitr包

ls_eg <- vector("list")
ls_eg$df1 <- mtcars[1:5, c("mpg", "cyl")]

ls_eg$kbl <- 
  ls_eg$df1 |>
  kbl(booktabs = TRUE,
      caption = "Kable as a list element") |>
  kable_styling(latex_options = "HOLD_position")

Include Table in body of report #

See table @ref(tab:kbl-as-list-element) now works correctly.

# 用knit_print包裹输出
knit_print(ls_eg$kbl)

### 方案3：调整本地包函数的输出逻辑
如果列表由本地包函数生成，可修改函数逻辑：
- 在函数内部生成kable时，为每个表格指定唯一的`label`参数；
- 让函数返回的kable对象保留可被`knit_print`识别的元数据，确保bookdown能正确关联交叉引用标签。

## 效果说明
采用上述任意方案后，列表内的kable表格均可正常触发交叉引用，与直接在代码块生成的表格效果一致。

内容的提问来源于stack exchange，提问作者Peter