在R Markdown中将内部文档链接设为数据表值的问题

你的代码存在两个核心问题导致链接无法点击：一是转义参数位置错误，二是未正确关闭HTML内容转义。以下是分步修复方案：

基础修复：让链接可点击到同一幻灯片 #

先修正最基本的链接渲染问题，确保链接能正常指向目标幻灯片：

---
title: "Example"
output: slidy_presentation
  
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)

library(DT)
library(tidyverse)

Table #

mtcars %>%
  rownames_to_column(var = "plot") %>%
  # 用行名作为链接文本，生成指向plot幻灯片的锚点
  mutate(plot = paste0("[", plot, "](#/plot)")) %>%
  # 关键：关闭转义，让HTML链接被正常渲染
  datatable(escape = FALSE)

plot #

plot(mtcars)

### 关键修正点：
1. **移除mutate中的无效参数**：你之前把`escape = TRUE`写在`mutate`里，这完全无效，`escape`是`datatable()`的专属参数。
2. **设置`escape = FALSE`**：DT默认会转义所有HTML/Markdown内容，必须关闭转义才能让链接被识别为可点击的元素。

---

## 进阶实现：每个值指向不同幻灯片
如果要让表格中每个车型链接到对应的独立幻灯片，需要配合Slidy的锚点规则（标题转小写、空格替换为`-`）来生成动态链接：

```r
---
title: "Example"
output: slidy_presentation
  
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)

library(DT)
library(tidyverse)

Table #

mtcars %>%
  rownames_to_column(var = "model") %>%
  # 生成对应每个车型的幻灯片锚点链接
  mutate(
    model_link = glue::glue("[{model}](#/plot-{str_replace_all(tolower(model), ' ', '-')})")
  ) %>%
  select(model_link, mpg, cyl, disp) %>%
  datatable(escape = FALSE, rownames = FALSE)

plot-mazda rx4 #

mtcars %>% filter(rownames(.) == "Mazda RX4") %>% plot(main = "Mazda RX4")

plot-mazda rx4 wag #

mtcars %>% filter(rownames(.) == "Mazda RX4 Wag") %>% plot(main = "Mazda RX4 Wag")

### 核心逻辑：
- Slidy会自动将幻灯片标题转为锚点：比如标题`## plot-mazda rx4`对应的锚点是`#/plot-mazda-rx4`
- 用`str_replace_all()`统一处理车型名称的格式，确保链接锚点和幻灯片锚点完全匹配

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